Bem, já vimos if...then, case... of, e a primeira parte da estrutura de repetição, for e repeat. Agora chegou a vez do while.

While em inglês significa "enquanto". Ou seja, enquanto uma condição for verdadeira, o programa executará a tarefa novamente. Exemplo: Você pode pedir uma senha, e para o acesso ser permitido, a senha tem que ser = 123:




program exe3;



var

senha: integer;



begin

 writeln('Digite sua senha');

  readln(senha);



while (senha <> 123) do

 begin

  writeln('A senha esta errada, digite novamente');

  writeln('');

  writeln('Digite a senha novamente');

  readln(senha);

 end;



 writeln('Acesso permitido');

readln;

end.





--

Que ficará assim:

--



Outro exemplo seria um programa que pedisse o nome e a altura de uma moça inscrita para algum concurso de beleza, e até o usuário não digitar "fim", ele continuará pedindo novos nomes e alturas. No final ele dirá o nome e quanto mede a moça mais alta e o número de candidatas inscritas:




program ex05;



var

 op, nom1, nom: string;

 cont1, maior, alt1, alt: real;



begin

maior:= -1;

 while (op <> 'fim') do

begin

 writeln('Digite nome');

 readln(nom);

 writeln('');

 writeln('Digite sua altura');

 readln(alt);

 if (alt > maior) then

begin

maior:=alt;

nom1:=nom;

end;

 writeln('');

 writeln('Digite "fim" p/ sair');

 readln(op);

 cont1:=cont1+1;

end;



 writeln('Nome: ', nom1, ' e sua altura: ', maior:0:2);

 writeln('Numero de inscritos: ', cont1:0:2);

readln;

end.



--

Ficará assim:






--

Até a próxima!