Criando estruturas de repetição em pascal (compilador Delphi).
Usando a estrutura For.
Usando a estrutura While.
Usando a estrutura For.
For variavel := inicio to fim do
begin
processo;
end;
Exemplo. (Exibindo 10 Mensagens de uma vez só)begin
processo;
end;
procedure Tform1.usandoFor;
begin
for i:=1 to 10 do
begin
ShowMessage("Mensagem " + IntToStr(i));
end;
end;
end.
begin
for i:=1 to 10 do
begin
ShowMessage("Mensagem " + IntToStr(i));
end;
end;
end.
Usando a estrutura While.
while (condição) do
begin
processo;
contador;
end;
Exemplo.begin
processo;
contador;
end;
i:= 1;
procedure Tform1.usandoWhile;
begin
while(i <= 10) do
begin
ShowMessage("Mensagem " + IntToStr(i));
i:=i+1;
end;
end;
end.
procedure Tform1.usandoWhile;
begin
while(i <= 10) do
begin
ShowMessage("Mensagem " + IntToStr(i));
i:=i+1;
end;
end;
end.
