Pascal - While-do Loop

UMA while-doA instrução de loop em Pascal permite cálculos repetitivos até que alguma condição de teste seja satisfeita. Em outras palavras, ele executa repetidamente uma instrução de destino, desde que uma determinada condição seja verdadeira.

Sintaxe

A sintaxe de um loop while-do é -

while (condition) do S;

Onde, condition é uma expressão booleana ou relacional cujo valor seria verdadeiro ou falso e S é uma instrução simples ou grupo de instruções dentro do bloco BEGIN ... END.

Por exemplo,

while number>0 do
begin
   sum := sum + number;
   number := number - 2;
end;

Quando a condição se torna falsa, o controle do programa passa para a linha imediatamente após o loop.

Diagrama de fluxo

Aqui, o ponto-chave do loop while é que ele pode nunca ser executado. Quando a condição é testada e o resultado é falso, o corpo do loop será ignorado e a primeira instrução após o loop while será executada.

Exemplo

program whileLoop;
var
   a: integer;

begin
   a := 10;
   while  a < 20  do
   
   begin
      writeln('value of a: ', a);
      a := a + 1;
   end;
end.

Quando o código acima é compilado e executado, ele produz o seguinte resultado -

value of a: 10
value of a: 11
value of a: 12
value of a: 13
value of a: 14
value of a: 15
value of a: 16
value of a: 17
value of a: 18
value of a: 19