Membuat segitiga siku siku angka pada delphi
Untuk membuat segitiga siku siku angka pada delphi ini, menggunakan kondisi perulangan for to do dan hanya dengan satu edit box pada formnya jadi seperti inilah bentuk formnya
setelah membuat form seperti di atas lalu ketik codingannya pada buttonnya seperti ini:
procedure TForm1.Button2Click(Sender: TObject);
var
a,b,c:integer;
d:string;
begin
a:=strtoint(edit1.text);
for b:=1 to a do
d:=' ';
for c:=1 to b do
begin
ListBox1.Items.Add (d);
d:=d+inttostr(c);
end;
end;
seperti itulah contoh codingannya untuk outputnya ada menggunakan listbox dan seperti ini contohnya saat dirun
