PemrogramanPascal

Pola Belah Ketupat dengan Pascal #201

Karet gelang dapat melar jika ditarik-tarik, serius

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.

belah ketupat dengan pascal
yea man

IdeaOne Src

*AFK

Andry Fadrie K

CPU : AMD Ryzen 5 1600 12Core
Mobo : Asus ROG Strix B450-F GAMING
RAM : 16GB
Storage : 12.8TB
VGA : NVIDIA GeForce GTX 1050ti
OS : KDE Neon
Kernel : 5.11.0-46

Related Articles

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan.

Back to top button