Estrutura de Repetição. For to, until.

Até agora, depois que a gente executava o programa e digitava o que ele pedia, ele dava o resultado e fechava. Com os comando de repetição a coisa começa a mudar.

Começando pelo For... to... do. Este comando permite que quem está programando defina o número de vezes que o comando será rodado.




Exemplo:

program altura;

var
 m, cm, cf: integer;
 perc, alt, maior, menor: real;
 sexo: char;

begin
 maior:= -1;
 menor:= 999;
 cm:= 0;
 cf:= 0;
 writeln('M para Masculino. F para Feminino');
 for m:= 1 to 3 do
begin
 writeln('Altura');
 readln(alt);
 writeln('Sexo:');
 readln(sexo);
 writeln('');

if (sexo = 'M') then
 cm:= cm+1;

if (sexo = 'F') then
 cf:= cf+1;

if (alt > maior) then
 maior:=alt;

if (alt < menor) then
 menor:=alt;

end;

perc:= (cf*100)/(cf+cm);

writeln('Quantidade de homens eh:', cm);
writeln('Quantidade de mulheres eh:', cf);
writeln('Percentual de mulheres eh: ', perc:0:2);
writeln('A pessoa mais alta tem: ', maior:0:2);
writeln('A pessoa mais baixa tem: ', menor:0:2);

readln;

end.
-

O programa irá pedir a altura e o sexo do "entrevistado" 3 vezes. Note que o for to é seguido de um begin, que é o comando que será repetido, e no final dos contadores temos um end;

O segundo comando de repetição é o until(até). Ou seja, o programa ficará se repetindo até que o usuário digite um comando pedido pelo usuário. Um exemplo seria repetir o programa até o que usuário digite "fim" para sair.

Exemplo:


Program ex02;

var
 ref, nr, cr1, cr2, cr3, ct: integer;
 op: string;
begin
cr1:=0;
cr2:=0;
cr3:=0;

 repeat
  writeln('Numero de refeicoes:');
  readln(ref);

if (ref < 10) then
 cr1:= cr1+1

else if ((ref >= 10) and (ref <= 20)) then
 cr2:= cr2+1

else
 cr3:= cr3+1;

 writeln('fim - para encerrar');
 readln(op);

 ct:= ct+1;
until (op = 'fim');

 writeln('Numero de entrevistados: ', ct);
 writeln('Numero <10:', cr1);
 writeln('10 < Numero < 20:', cr2);
 writeln('Numero > 20:', cr3);

readln;

end.

-

O programa pedirá o número de refeições feitas pelo usuário em um mês. O programa só irá parar de se repetir quando o usuário digitar "fim" quando for pedido. No final ficaria assim:




O programa irá dizer o número de entrevistados, de acordo com o contador(ct:= ct+1;), quantas vezes você fez menos de 10 refeições no mês, quantas vezes você fez entre 10 e 20 refeições e quantas vezes você fez mais de 20 refeições no mês.

O último e próximo comando de repetição é o while, que deve ser dado na próxima aula!

By Ítalo Tabosa with No comments