I.        
Deskripsi
Program
Program ini merupakan program kelipatan
angka 5. Pada program output akan menuliskan semua angka kelipatan 5 diantara
indeks atas dan indeks bawah. Program ini menggunakan logika perulangan Repeat….
Until…. .
II.     
Interface
Program
III.  
Coding
Program
| 
NamaKomponen | 
Event | 
Perintah | 
| 
Button1 | 
OnClick | 
procedure TForm1.Button1Click(Sender: TObject); 
var 
 
  atas,bawah:integer; 
  a,b:string; 
begin 
bawah:=strtoint(edit1.Text); 
atas:=strtoint(edit2.Text); 
repeat 
if bawah mod 5=0 then 
begin 
Memo1.Lines.Append(inttostr(bawah)); 
bawah:=bawah+5; 
end 
else 
bawah:=bawah+1; 
until bawah>atas; 
end; | 
IV.   Output
Untuk Source Code dan Aplikasi lengkapnya bisa di download Disini
