Membuat Simbol Nazi dengan Pascal #187

andrypein.net : Aga kerenan sedikit, kita simbol nazi dengan pascal ceritanya, semoga sudah pada tau kan lah logo nazi kaya apa bentuknya.

Konsepnya masih bermain baris dan kolom dan pemahaman pengulangan saja sih sebenarnya, (walaupun jika dilihat source code nya si logika2 pengulangannya cukup membingungpusingkan)

Dan seperti inilah hasil akhirnya :

Berikut skrip kode simbol nazi dengan pascal.

var
  baris,kolom,n : integer;
begin
write('input angka : ');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
              write(' ');
          end;
        writeln;
      end;
    readln;
end.

IdeaOne Src

*AFK