[Tugas Praktikum 3 Pemvis] Logika Perulangan (Program Kelipatan Angka 10)

08.33 |

I. Tujuan Praktikum

Tujuan dari praktikum ini adalah untuk mengetahui proses algoritma perulangan, dapat menggunakan alternatif perulangan pada Delphi, yaitu dengan For, While, atau Repeat, serta mengetahui karakteristik dari alternatif perulangan tersebut.

II. Deskripsi Program

Program Kelipatan Angka 10

Program ini merupakan program kelipatan angka 10. Pada program output akan menuliskan semua angka kelipatan 10 diantara indeks atas dan indeks bawah. Program ini menggunakan logika perulangan Repeat…. Until…. .

III. Interface Program

Gambar 3.1 Interface dari Program dan nama komponennya

IV. Coding Program

Nama Komponen	Event	Perintah
btnbtn1	OnClick	procedure TForm1.btnBtn1Click(Sender: TObject); var atas,bawah:integer; begin bawah:=strtoint(edt1.Text); atas:=strtoint(edt2.Text); repeat if bawah mod 10=0 then begin mmo.Lines.Append(inttostr(bawah)); bawah:=bawah+10; end else bawah:=bawah+1; until bawah>atas; end;