X
تبلیغات
رایتل

بازدید : مرتبه
تاریخ : چهارشنبه 2 دی‌ماه سال 1388

سلام بنا به درخواست شما پروژه ها را آماده کردم به زبان پاسکال البته سورس برنامه است 

برای دیدن برنامه ها روی ادامه کلیک کنید

سوال: برنامه ای بنویسید که مربع جادویی n*n را چاپ کند ؟

جواب: 

program test;
uses
crt;
var
a:array[1..10,1..10]of byte;
row,col,i,j,n,x,y:integer;
begin
clrscr;
write('Enter number (odd)  1..9: ');
readln(n);
writeln;
row:=1;
col:=n div 2+1;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=0;
a[row,col]:=1;
for i:=2 to n*n do
begin
row:=row-1;
col:=col-1;
if(row=0) then
row:=n;
if(col=0) then
col:=n;
if(a[row,col]=0) then
a[row,col]:=i
else
begin
if (row>=n) and (col>=n) then
begin
row:=row-n;
col:=col-n;
end;
row:=row+2;
col:=col+1;
a[row,col]:=i;
end;
end;
for x:=1 to n do
begin
for y:=1 to n do
begin
if (a[x,y]>=1) and (a[x,y]<=9) then
write(' ');
write(' ',a[x,y]);
end;
writeln;
end;
readln;
end.
فردا ادامه را هم میگذارم 

بای




طبقه بندی:
ارسال توسط امیرحسین
آرشیو مطالب
صفحات جانبی
پیوند های روزانه
امکانات جانبی