PDA

توجه ! این یک نسخه آرشیو شده می باشد و در این حالت شما عکسی را مشاهده نمی کنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : مربع جادویی



یاس
12-01-2008, 11:34 AM
program morabaejadooe;
uses wincrt;
const w=15;
type a=array [1..w, 1..w] of integer;
var
i,j,b,s,k:integer;
c:a;
begin
writeln('*please enter the number odd*');
readln(b);
begin
for i:=1 to b do
for j:=1 to b do
c[i,j]:=0;
k:=1;
s:=1;
i:=1;
j:=(b div 2)+1;
c[i,j]:=k;
while (k< (sqr(b))) do
begin
k:=k+1;
i:=i-1;
j:=j-1;
if (i=0) and (j<>0) then
i:=b
else
if (j=0) and (i<>0) then
j:=b;
if k=b+s then
begin
i:=i+2;
j:=j+1;
s:=s+b;
end;
c[i,j]:=k;
end;
for i:=1 to b do
begin
for j:=1 to b do
write(c[i,j]:5);
writeln;
end;
end;
end.