Perulangan (ForToDo dan ForDownTo)
berikut contoh perulangan ForToDo dan Perulangan ForDownTo :
A. Contoh Design Program
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.
Tidak ada komentar:
Posting Komentar