program zmeika;
uses graph,crt;
var n,i,j,driver,mode:integer;
a:array[0.. 10,0..10] of word;
function
f(i,j:integer):word;
var s:word;
begin
s:=i+j;
if s>= n then
f:=n*n-f(n-1-i,n-1-j)+1
else
f:=s*(s+1) div 2+1+(s mod 2)*(i-j)+j;
end;
begin
driver:=detect;
initgraph(driver,mode,'c:\dosbox\pascal\bgi');
settextstyle(7,0,1);
setcolor(yellow);
outtextxy(200,20,'„ўг¬Ґал© ¬ ббЁў'); {text zadaniya}
settextstyle(2,0,5);
setcolor(white);
outtextxy(45,60,'„ ¬ ваЁж 8*8 б н«Ґ¬Ґв ¬Ё ®в a1 ¤® a64, а бЇ®«®¦Ґле Ї® § Є®г '); {text zadaniya}
outtextxy(40,85,'а ў®¬Ґа®Ј® а бЇаҐ¤Ґ«ҐЁп. –Ґ«м § ¤ зЁ а бЇ®«®¦Ёвм н«Ґ¬Ґвл Ї® б奬Ґ:'); {text zadaniya}
rectangle(210,150,410,350);
moveto(400,340);
linerel(0,-20);
linerel(-20,20);
linerel(-20,0);
linerel(40,-40);
linerel(0,-20);
linerel(-60,60);
linerel(-20,0);
linerel(80,-80);
linerel(0,-20);
linerel(-100,100);
linerel(-20,0);
linerel(120,-120);
linerel(0,-20);
linerel(-140,140);
linerel(-20,0);
linerel(160,-160);
linerel(0,-20);
linerel(-180,180);
linerel(0,-20);
linerel(160,-160);
linerel(-20,0);
linerel(-140,140);
linerel(0,-20);
linerel(120,-120);
linerel(-20,0);
linerel(-100,100);
linerel(0,-20);
linerel(80,-80);
linerel(-20,0);
linerel(-60,60);
linerel(0,-20);
linerel(40,-40);
linerel(-20,0);
linerel(-20,20);
linerel(0,-20);
linerel(5,5);
linerel(-5,-5);
linerel(-5,5);
readkey;
restorecrtmode;
n:=8;
for i:=n-1 downto 0 do
begin
for j:=n-1 downto 0 do
begin
a[i][j]:=f(j,i);
write(a[i][j]:3);
end;
writeln;
writeln;
end;
readkey;
end.
Вывод массива в graph'е |