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
Tidak ada komentar:
Posting Komentar