Pola Belah Ketupat dengan Pascal #201

andrypein.net : Lagi suka-suka nya saja sih ini mah, sharing kode pascal untuk membuat pola-pola, mulai dari persegi, segitiga dll lah banyak di post aing yang sebelumnya.

Untuk sekarang ane bikin belah ketupat dengan pascal  gan, tau kan lah ya bentukannya.

Simak gan kode belah ketupat dengan pascal nya :

program belahketupat;
var
  i,j,k,n : integer;
begin
  readln(n);
  for i := 1 to N do
    begin
      for k := (N-1) downto i do
        begin
          write ('  ');
        end;
      for j:= 1 to i do
        begin     
          write(j,' ');
        end;
      for j:=(i-1) downto 1 do
        begin
          write(j,' ');
        end;
      writeln(' ');
    end;
  for i := (N-1) downto 1 do
    begin
      for k := (N-1) downto i do
        begin
          write ('  ');
        end;
      for j := i downto 1 do
        begin
          write (j,' ');
        end;
      for j := 1 to (i-1) do
        begin
          write(j,' ');
        end;      
      writeln(' ');
    end;
end.

Output skrinsut nya kalau di running akan seperti ini gan.

IdeaOne Src

*AFK