PascalPemrograman

Pola Kincir Angin dengan Pascal #199

Sinar hitam itu ada,

andrypein.net : Karena masih suka dengan pola-pola an, maka aing lanjut saja dengan membuat pola kincir angin dengan pascal.

So beginilah skrip kode pola kincir angin dengan pascal.
var
  x,y,n : integer;
begin
  readln(n);
  for y:=1 to n do
    begin
      for x:=1 to n do
        begin
          if ((x <= y) and (y <= n div 2+1))
          or ((x <= n-y+1) and (x >= n div 2+1))
          or ((x >= y) and (y >= n div 2+1))
          or ((x >= n-y+1) and (x <= n div 2+1)) then
            write('*')
          else
            write(' ');
        end;
      writeln;
    end;  

Tar hasilnya akan begini, kalem aing share di ideone nya juga biar gg.

kincir angin dengan pascal
itulah memang

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

2 Comments

Tinggalkan Balasan

Alamat email Anda tidak akan dipublikasikan.

Back to top button