Written Dreams'

Berikut ini contoh listing program untuk cetak belah ketupat pada pascal :

berikut listingnya :

program bintang;
uses crt;
var i,y,x:byte;
begin
 clrscr;
 x:=5;
 for i:= 5 downto 1 do
 begin
   write(' ':x);
   for y:= 5 downto i do
    write('*':2);
   writeln;
   x:=x-1;
 end;
 x:=2;
 for i:= 1 to 4 do
 begin
   write(' ':x);
   for y:= 4 downto i do
    write('*':2);
   writeln;
   x:=x+1;
 end;
 readln;
end.

Semoga bermanfaat...