Pola Kincir Angin dengan Pascal #199

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.

IdeaOne Src

*AFK