Estruturas de repetição [While, Repeat e For]
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));
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
0 comentários:
Postar um comentário