Membuat bentuk belah ketupat dengan Pascal :
Disini saya akan membagi sedikit tutorial bagaimana membuat bentuk belah ketupat menggunakan pascal..
Contoh Tampilannya :


uses crt;
var a,b,c:byte;
begin
clrscr;
 for a:= 1 to 4 do
   begin
   for b:= 4 downto a do
     write(' ');
      for b:= 1 to a do
        write(a:2);
        writeln;
        end;
 for a:= 4 downto 1 do
   begin
   for b:= a to 4 do
     write(' ');
      for b:= 1 to a do
        write(a:2);
        writeln;
        end;
        readln;
end.

Posted in: Tugas Kampus