Membuat Program Perulangan dengan Statement For..To..Do.., While..Do, dan Repeat..Until - Program Delphi 2010

 1. Perulangan dengan statement For..To..Do    

      Untuk melakukan perulangan (iterasi) satu pernyataan atau satu blok pernyataan , selama beberapa kali yang ditentukan oleh suatu nilai awal dan nilai akhir.
Bentuk penulisannya adalah:

For <pencacah>:=<awal>To<akhir>Do<pernyataan>;
Atau
For <pencacah>:=<awal>DownTo<akhir>Do<pernyataan>;

      <pencacahan> adalah variable bertipe ordinal, yaitu variable yang mempunyai nilai yang pasti jika dinaikkan atau diturunkan satu satuan, misalnya tipe integer dan subrange. Nilai pencacah tidak boleh diubah dalam pernyataan yang diulang.
      Pada bentuk, For..To..Do akan mengulang <pernyataan> dan akan berhenti kalau <pencacah> sudah melebihi nilai <akhir>, sedangkan pada bentuk kedua, For.. DownTo.. Do.. akan mengulang <pernyataan> dan akan Berhenti kalau <pencacah> sudah lebih kecil dari nilai <akhir>.

2. Perulangan dengan statement While… do
       While..Do dipakai untuk melakukan pengulangan satu pernyataan atau satu blok pernyataan,  jika selama (while) suatu kondisi bernilai true. Bentuk penulisannya adalah:
While<ekspresi>di<pernyataan>;
Penjelasan jalannya struktur perulangan:

1. Program akan menguji nilai <ekspresi> yang hars berupa nilai Boolean
2. Jika nilai <ekspresi> adalah False, maka <pernyataan> tidak dilaksanakan dan langsung ke prosedur 5
3. Jika nilai <ekspresi> adalah true, maka <pernyataan> akan dilaksanakan satu kali.
4. Kembali ke prosedur 1
5. Program melanjutkan ke pernyataan seteah tanda titik koma (akhir pernyataan pengulangan).

3. Pengulangan dengan statement Repeat..Until
          Perulangan ini hampir sama dengan While.. Do. Perbedaannya adalah:
1. Dapat melakukan perulangan lebih dari satu pernyataan, baik berupa pernyataan tunggal atau berupa blok pernyataan. Jadi yang diulang adalah segala sesuatu yang berada diantara pernyataan Repeat.. Until
2. Pasti melakukan (minimal satu kali) segala sesuatu yang berbeda diantara pernyataan Repeat.. Until, karena pengujian terletak di bagian bawah pernyataan, yaitu pada pernyataan Until.
Bentuk penulisan struktur Repeat..Until adalah:

Repeat
<pernyataan 1>;
<pernyataan n>;
Until <ekspresi>;

        Sebagai Contoh, disini saya membuat suatu program perulangan bilangan 1 sampai 20 dengan menggunakan 3 statement di atas. Untuk kode editornya di bawah ini:

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
listbox1.Items.Clear;
for i := 1 to 20 do
 begin
 listbox1.Items.Add('Perulangan FOR Ke=' +inttostr(i));
 end;

end;

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
i:=0;
listbox1.Items.Clear;
Repeat
 inc(i);
 listbox1.Items.Add('Perulangan Repeat Ke=' +inttostr(i));
 Until i>20
end;

procedure TForm1.Button3Click(Sender: TObject);
var
i:integer;
begin
i:=0;
listbox1.Items.Clear;
while i<20 do
begin
  inc(i);
  listbox1.Items.Add('perulangan While Ke=' +inttostr(i));
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
close;
end;

end.

Untuk contoh programnya, silahkan download di sini


Sumber : Belajar Praktis Pemograman Delphi dan Software Presentasi ; Tedi Budiman