Pseudo Code:
var n,k,i : integer;
begin
n:=strtoint(edit1.Text);
k:=strtoint(edit2.Text);
for i:=1 to n do
listbox1.Items.Add(inttostr(i*k));
end;
Semoga Bermanfaat :)
Program N Bilangan Bulat Kelipatan K menggunakan Delphi 7
Posted by :
Unknown
Minggu, 30 Desember 2012
Pseudo Code:
var n,k,i : integer;
begin
n:=strtoint(edit1.Text);
k:=strtoint(edit2.Text);
for i:=1 to n do
listbox1.Items.Add(inttostr(i*k));
end;
Semoga Bermanfaat :)
Langganan:
Posting Komentar (Atom)
2 comments:
ni bukannya program perkalian ya?
kalo dibalik gimana? misal 30 itu kelipatan 2 ga? 31 kelipatan 2 ga?
kalo gitu berarti harus bikin form yang baru pake delphi nya,, di sini hanya untuk pengaturan n bilangan bulat kelipatan k aja, nggak bisa dibalik lagi..