Pemrograman Pascal

Membuat Simbol Tambah dengan Pascal #185

Kamu tidak akan jagoan berenang jika dilatih catur

Andry Fadrie K Juni 13, 2012

0 789 Less than a minute

andrypein.net : Untuk membuat simbol TAMBAH dengan pascal diperlukan input bilangan ganjil saja (3 5 7 dll).

Karena kalo diinput bilangan genap maka hasil akhir polanya akan ngaco acak-acakan bruh.

Yosh, beginilah script code untuk membuat simbol tambah dengan pascal.

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