Membuat Pola Hampir Nazi dengan Pascal #188

andrypein.net : Aing nyebutnya pola hampir nazi dengan pascal ini karena simbol cross bukan simbol nazi juga bukan, ya mirip-mirp lah intinya mah.

–> Link ke pola nazi <—

Skrinsut dari ideone nya kaya begini gan :

Okey, ini skrip pola hampir nazi dengan pascal, hampir sama dengan yang kemarin.

var
  kolom,baris,n : integer;
begin
readln(n);
for baris := 1 to n do
      begin
        for kolom := 1 to n do
          begin
            if (baris = 1) and (kolom <= n div 2+1) then
              write('*')
            else if (baris = n) and (kolom <= n div 2+1) then
              write('*')
            else if (kolom = 1) and (baris >= n div 2+1) then
              write('*')
            else if (kolom = n) and (baris <= n div 2+1) then
              write('*')
            else if (kolom = n div 2+1) or (baris = n div 2+1) then
              write('*')
            else if (baris = kolom) or (baris + kolom = n+1) then
              write('*')
            else
              write(' ');
          end;
        writeln;
      end;
    readln;

IdeaOne Src

*AFK