Курсовая работа: Створення програми "Шаховий кінь"

if (a+b) mod 2=0 then floodfill (a*sz+3,b*sz+3,white);

end;

assign (f,'tmp. dta');

circle (row [1] *sz+sz div 2,col [1] *sz+sz div 2,10);

for c: =2 to 64 do

begin

rewrite (f);

write (f,c);

close (f);

reset (f);

read (f,n);

close (f);

outtextxy (row [c] *sz+3,col [c] *sz+3,n);

circle (row [c] *sz+sz div 2,col [c] *sz+sz div 2,10);

line (row [c] *sz+sz div 2,col [c] *sz+sz div 2,row [c-1] *sz+sz div 2,col [c-1] *sz+sz div 2);

readkey;

end;

readln;

closegraph;

end;

procedure addknight;

var

a,b,e: integer;

begin

arr [i,j]: =1;

row [move_num]: =i;

col [move_num]: =j;

inc (move_num);

for a: =1 to 8 do