Tutorial Perulangan While Do dan Repeat Until Menggunakan Delphi 7.0
Nahh.... ini adalah Contoh design form-nya kawan......
komponen yang dibutuhkan adalah....
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)
kode program
1. Program While Do
Double Klik Radiobutton1 atau pilih events onclick pada Objects Inspector,
Tuliskan Kode Program Sebagai berikut :
var
angka_awal,angka_akhir:integer;
begin
memo1.clear;
angka_awal:=strtoint(edit1.Text);
angka_akhir:=strtoint(edit2.Text);
while angka_awal<=angka_akhir do
begin
memo1.Lines.Add(inttostr(angka_awal));
inc(angka_awal);
end;
end;
2. Program Repeat Until
Double Klik Radiobutton2 atau pilih events onclick pada Objects Inspector,
Tuliskan Kode Program Sebagai berikut :
var
angka_awal,angka_akhir:integer;
begin
memo1.clear;
angka_awal:=strtoint(edit1.Text);
angka_akhir:=strtoint(edit2.Text);
repeat
memo1.Lines.Add(inttostr(angka_awal));
inc(angka_awal)
until
angka_awal>angka_akhir;
end;
Penjelasan Singkat Program
Memo1.clear digunakan untuk menghapus isi memo1
Inc kependekan dari increment, inc(angka_awal) digunakan untuk menambah
angka_awal dengan angka 1 (satu)
Perulangan While Do, Repeat Until, For To Do dan For DownTo Do akan
menghasilkan nilai yang sama.
sekian dulu yaa....?? Semoga bermanfaat kalau ada kesalahan ataupun kekurangan di maklumi saja hehehe.....
Wassalam.........
