Program Peulangan pada Delphi

Pertama-tama kita buat desain formnya terlebih dahulu dengan menggunakan komponen Textbox, Listbox dan CommandButton.  seperti pada gambar dibawah ini:

Setelah kita buat desain form seperti pada gambar diatas, klik 2x pada command button lalu ketikan kode program seperti ini :

Begin
ListBox1.Items.Clear;
a := strtoInt (edit1.Text);
For y := 1 to a do
Begin
b := ‘’;
for x := 1 to y do
Begin
b1 := ‘*’;
b := b+b1
end;
ListBox1.Items.add(b);
End;
End;
End.

Logika :

a := strtoInt (edit1.Text);
For y := 1 to a do
Blok program diatas yaitu menggunakan tipe data int dengan perulangan for, yaitu nilai perulangan y 1 sampai a atau sampai nilai yang kita masukan.

b := ‘’;
for x := 1 to y do
Blok program ini yaitu melakukan perulangan x 1 sampai y. y bernilai dari 1 to a .

b1 := ‘*’;
b := b+b1
Blok program ini akan mengeksekusi dan mengeluarkan output tidak berupa angka karena kita ketikan tanda “*” pada nilai b. b := b+b1 dan nilai b akan bertambah 1 terus menerus hingga kondisi bernilai true atau sampai kondisi untuk memberhentikannya sesuai dengan nilai yang dimasukan pada saat program dijalankan.

lalu jalankan program dan masukan jumlah yang ingin diinput dan output program akan seperti ini :

semoga bermanfaat..