Contabilidade resolvido ufpa

Disponível somente no TrabalhosFeitos
  • Páginas : 2 (285 palavras )
  • Download(s) : 0
  • Publicado : 19 de janeiro de 2013
Ler documento completo
Amostra do texto
Estrutura de seleção ( if then else )
Sintaxe

If (se) <expressão lógica>
Then (então)
Begin
Sequência de comandos 1
End;
Else (senão)
Begin
Sequência decomandos 2
end;

estrutura ( case )

case <expressão> of
lista de valores 1: sequência de comandos 1;
lista de valores 2: sequência de comandos 2;

else <sequência de comandosn >

end;

exemplo:

Um programa que exibisse o conceito de uma dada pontuação obtida poderia ser o seguinte:
program ConvertePontuacaoEmConceito;
var NPontos: integer;
Conc :char;
begin
writeln('Digite a pontuação obtida');
readln(NPontos);
case NPontos of
0 .. 49: Conc := 'D';
50 .. 69 : Conc := 'C';
70 .. 89 : Conc := 'B';
90 .. 100: Conc := 'A';
end;writeln('O numero de pontos igual a ', NPontos, 'corresponde a um conceito ', Conc);
end.

Estruturas de repetição

Comando for

Sintaxe

for Variavel := Expressao1 to Expressao2 do< para i de x ate y faca >
seqüência de comandos

exemplo

Por exemplo, o programa
var i : integer;
begin
for i := 1 to 10 do
write(i, ' ');
end.

Se, por alguma razão, sepretende que a variável de controle seja decrementada e, portanto, que o Valor
final seja menor que o Valor inicial, deve-se substituir a preposição to pela "preposição" downto. Assim, oprograma
var i : integer;
begin
for i := 5 downto 1 do
write(i, ' ');
end.

Comando while …… interromper loop : ctrl + break
Sintaxe:

while Expressão lógica do <enquanto'expressão verdade' faça >
seqüência de comandos

exemplo:

var Num, Divisor : integer;
begin
write('Digite um numero: ');
readln(Num);
Divisor := 2;
while Num mod Divisor <>0 do
Divisor := Divisor + 1;
if Divisor < Num
then
writeln(Divisor, ' eh divisor proprio de ', Num);
else
writeln(Num, ' e primo');
end.

Pg 59
Palavras reservadas pascal
tracking img