Membuat Piramida Love Dengan Turbo Pascal

uses crt;
var
   i,j,t,x: byte;

begin
     clrscr;
     write('Tinggi Piramida: ');readln(t);
     textcolor(12);
     for i := t downto 1 do
     begin
          inc(x);
          gotoxy(0 + x, i + 2);

     for j := 1 to i do
     begin
          write(#03)
     end;
     end;

     for i := t downto 1 do
     begin
          gotoxy(t + 0,i + 2);
     for j := i downto 1 do
         write(#03);
     end;

     gotoxy(1,t + 3);
     writeln;
     textcolor(10);
     writeln('By: Ardiansyah Reza Reza (2015)');
     readln;
end.

Hasilnya sebagai berikut.

Tweet