Perulangan FOR - TO - DO, UNTIL DO & REPEAT UNTIL

Macam-Macam bentuk perulangan pada Delphi:

Perulangan For – To – Do
Perulangan dengan statement for adalah perulangan yang digunakan untuk melakukan suatu proses dalam sebuah blok program. Proses perulangan For – To – Do dimulai dengan nilai terkecil ke besar.
Bentuk Umum :
For variabel := nilai awal to nilai akhir statement

Study Kasus :

{$APPTYPE CONSOLE}
uses
SysUtils;
Var
i : integer;
begin
writeln ('Ratih Arifiana Atika Irani');
readln;
for I := 1 to 10 do
writeln(i,'Yadika');
writeln('Bangil');
Readln;
End.
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

begin
  { TODO -oUser -cConsole Main : Insert code here }
end.



Dan ketika di run akan muncul tampilan sebagai berikut :

 










Study Kasus 2 :
WHILE ....DO 

{$APPTYPE CONSOLE}
uses
SysUtils;
Var
i : integer;
begin
writeln ('Ratih Arifiana Atika Irani');
readln;
write ('===============================');
readln;
readln;
I := 1;
while i<=10 do
begin
writeln(i,'Yadika');
readln;
writeln('Bangil');
Readln;
I := i+1;
end;
End.
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

begin
  { TODO -oUser -cConsole Main : Insert code here }
end.