Cara Membuat Segitiga Siku-siku Angka pada Delphi

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

Selamat mencoba dan semoga bermanfaat 😄