Perulangan (ForToDo dan ForDownTo)

berikut contoh perulangan ForToDo dan Perulangan ForDownTo :

A. Contoh Design Program

B. Komponen yang dibutuhkan.

1. 3(tiga) komponen label (ada di tab standard component pallete).

2. 3(tiga) komponen edit (ada di tab standard component pallete).

3. 1(satu) komponen memo (ada di tab standard component pallete).

4. 2(dua) komponen Radiobutton (ada di tab standard component pallete)

C. Design Properties (ada di jendela object inspector)

Object / Komponen	Name	Caption / Text
Label1 Label2 Label3 Edit1 Edit2 Memo1 Radiobutton1 Radiobutton2	Label1 Label2 Label3 Edit1 Edit2 Memo1 Radiobutton1 Radiobutton2	Angka Pertama Angka Dua Hasil Perulangan (dikosongkan) (dikosongkan) - For To Do For Downto Do

D. Kode Program

1. Program For To Do

Double Klik Radiobutton1 atau pilih events onclick pada Objects Inspector, Tuliskan Kode Program Sebagai berikut :

procedure TForm1.RadioButton1Click(Sender: TObject);

var

angka_awal,angka_akhir,hasil_perulangan:integer;

begin

angka_awal:=strtoint(edit1.Text);

angka_akhir:=strtoint(edit2.Text);

for hasil_perulangan:= angka_awal to angka_akhir do

begin

memo1.Lines.Add(inttostr(hasil_perulangan));

end;

end;

2. Program For Downto Do

Double Klik Radiobutton2 atau pilih events onclick pada Objects Inspector, Tuliskan Kode Program Sebagai berikut :

procedure TForm1.RadioButton2Click(Sender: TObject);

var

angka_awal,angka_akhir,hasil_perulangan:integer;

begin

angka_awal:=strtoint(edit1.Text);

angka_akhir:=strtoint(edit2.Text);

for hasil_perulangan:= angka_awal downto angka_akhir do

begin

memo1.Lines.Add(inttostr(hasil_perulangan));

end;

end;

E. Penjelasan Singkat Program

For To Do digunakan untuk melakukan perulangan dari angka kecil ke angka besar.

For DownTo Do digunakan untuk melakukan perulangan dari angka besar ke angka kecil.

Download contoh program