kali ini akan saya posting menampilkan bilangan menurun dengan for down to
Berikut ini tampilan nya dengan menggunakan perulangan for down to.
coding nya sebagai berikut :
sebelum nya pada form beri memo dan button seperti tampilan diatas.
klik 2 x pada button
lalu ketikan ini
var
a,b: Integer;
s: string;
begin
Memo1.Clear;
for a:=10 downto 1 do
begin
s:='';
for b:=1 to a do
s:=s+' '+IntToStr(b);
Memo1.Lines.Add(s);
end;
Komentar
Posting Komentar