Membuat Piramida Dengan Programman Pascal

Program kali ini, saya membuat piramida. Program ini menggunakan for to do sebagai pengulangan (looping) program. Sedikit saran, untuk program kali ini dibutukan pemahaman yang agak rumit menurut saya sendiri, karena setiap for to do dalam program akan mempengaruhi for to do program yang lain. Jadi, teman-teman harus mencermati isi setiap program kali ini. Nah berikut listingnya :

program piramida;

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();

     end;

     end;

     for i := t downto 1 do

     begin

          gotoxy(t + 0,i + 2);

     for j := i downto 1 do

         write();

     end;

     gotoxy(1,t + 3);

     writeln;

     textcolor(11);

     writeln('By: Igal.Gumelar');

     readln;

end.

Maka akan muncul sebuah output seperti ini : 

Nah bagaimana menarik bukan! Demikian postingan kali ini semoga bermanfaat, Thanks Assalamualikum✋