Source “Magic Square”

Gimana yah cara bikin program segi empat ajaib ( magic square ) ??? Ada yang tau gak nieh… Eah dibawah ini ada sedikit source code program  magic square dengan inputan “n” (n = 1, 2,3 dst ) kemudian akan ditampilkan bilangan sejumlah (nxn) dalam bentuk square.
Ini adalah bentuk output dari program tersebut jika n=3
*    *    *
*    *    *
*    *    *
dengan (*) adalah bilangan random.

Misalkan dimasukkan n = 3, maka salah satu contoh outputnya adalah
6    1    8
7    5    3
2    9    4


Nah…source code sederhana untuk menampilkan output diatas adalah sebagai berikut…

program magic_square;

uses wincrt;

type kotak_ajaib = array[1..100,1..100] of integer;

var n, k, baris, kolom : integer;
X                  : kotak_ajaib;
pil                : integer;

begin
screensize.x := 80;
screensize.y := 100;

clrscr;
gotoxy(5,4); write('Masukkan ukuran kotak ajaib, n =  '); readln(n);
writeln;

{ inisialisasi kotak, array di isi dengan 0  }
for baris:=1 to n do
for kolom:=1 to n do X[baris,kolom] := 0;

baris := 1;
kolom := (n + 1) div 2;
k := 0;

while k<sqr(n) do
begin
k := k + 1;
begin
x[baris,kolom] := k;
baris := baris - 1;
kolom := kolom - 1;
end;

begin
if (baris=0) and (kolom<>0) then baris := n

else if (kolom=0) and (baris<>0) then kolom := n

else if (baris=0) and (kolom=0) then
begin
baris := 2;
kolom := 1;
end;

if x[baris,kolom]<>0  then
begin
baris := baris + 2;
kolom := kolom + 1;
end;
end;
end;

for baris := 1 to n do
begin
for kolom := 1 to n do
write(x[baris,kolom]:6);
writeln; writeln;
end;
readln;

end.

Nah itu tadi source  code nya. Silakan di copas ( copy paste ) hihi..

Semoga bermanfaat deH…

4 comments
    • Tix Tux said:

      Ahaha……
      Ngetik dewe ngunu kugh!!

  1. dedy9 said:

    neng nulis dewe tenan ora tulisane td? pasti cuman kopas…. iya to?

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: