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!