Estrutura de repetição 2: While

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!

By Ítalo Tabosa with No comments