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

Б. Виведення зображення

В. Алгоритм пошуку

Реалізація програми

program horse;

uses graph,crt;

var

arr: array [1. .8,1. .8] of integer;

row: array [1. .64] of integer;

col: array [1. .64] of integer;

i,j,move_num,d: integer;

ktmov1: array [1. .8] of integer;

ktmov2: array [1. .8] of integer;

procedure writeboard;

var

a,d,m,b,sz,c: integer;

f: text;

n: string;

begin

sz: =32;

d: =detect;

initgraph (d,m,'');

setfillstyle (1,brown);

cleardevice;

for a: =1 to 8 do

for b: =1 to 8 do

begin