Contabilidade resolvido ufpa

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 de comandos 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 comandos n >

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, se pretende 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, o programa 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