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

if move_num>=65 then

begin

exit;

end;

b: =i+ktmov1 [a] ;

e: =j+ktmov2 [a] ;

if (b<1) or (b>8) or (e<1) or (e>8) then

continue;

if (arr [b,e] =1) then

continue;

i: =b;

j: =e;

addknight;

end;

dec (move_num);

arr [row [move_num],col [move_num]]: =0;

dec (move_num);

i: =row [move_num] ;

j: =col [move_num] ;

inc (move_num);

end;

begin

ktmov1 [1]: =-2;

ktmov1 [2]: =-1;

ktmov1 [3]: =1;

ktmov1 [4]: =2;

ktmov1 [5]: =2;

ktmov1 [6]: =1;

ktmov1 [7]: =-1;