Estruturas de repetição [While, Repeat e For]

Estruturas de repetição [While, Repeat e For]

  setembro 16, 2014    Anônimo

---

Estruturas de Repetição: for...to e for...downto

Sintaxe: for...to (contador crescente):
for variavel_contadora := valor_inicial to valor_final do begin
    {bloco de comandos}
end;

Utilizando o To :

var I: Integer;
begin
  for I := 0 to 10 do
    ShowMessage(IntToStr(I));

Sintaxe: for...downto (contador decrescente):

for variavel_contadora := valor_inicial downto valor_final do begin
  {bloco de comandos}
end;

Utilizando o DownTo :

var I: Integer;
begin
  for I := 10 DownTo 0 do
    ShowMessage(IntToStr(I));

Estrutura de Repetição: while...do

Sintaxe:

while (condição) do begin
    {bloco de comandos}
end;

Utilizando o while

Var I : Integer;
begin
  I := 0;
  while I < 10 do begin
    if I mod 2 = 0 then begin
      if I = 6 then begin
        ShowMessage('Valor é 6');
        I := I + 1;
        Continue;
      end else if I = 8 then begin
        ShowMessage('Parou quando I = 8');
        Break;
        ShowMessage('Esta linha não é Executada!!!!');
     end;
     ShowMessage(IntToStr(I));
  end;
  I := I + 1;
end;

Na estrutura while...do a repetição só ocorre enquanto a condição for verdadeira, e a condição é verificada antes da primeira execução do laço, ou seja, pode acontecer de o bloco de comandos não ser executado uma única vez.

Estrutura de Repetição: repeat...until

Sintaxe:repeat
    {bloco de comandos}
until (condição);

Utilizando repeat

Var K : Integer;
begin
  K := 7;
  repeat
    ShowMessage(IntToStr(K));
    Inc(K);
  until (K >= 10);

Na estrutura repeat...until o bloco de comandos é executado uma vez, para depois ser verificada a condição que determina se haverá a repetição. Esta repetição ocorre até que a condição seja verdadeira, ou seja, enquanto for falsa.

Exemplo: Download do exemplo