Program bintang segiiga sama sisi menggunakan gotoxy

Program gambar_segitiga_firman;

Uses Wincrt;

Var i,j:integer;

Begin

     For i:= 1 to 7 do

     Begin

          Gotoxy(10-1*i,1+i);

          For j:= 1 to i do

          write('+':2);

     End;

End.

Share On