Курсовая работа: Кратчайший путь передвижения короля по шахматному полю

nadoX, nadoY:integer;

razmerX, razmerY:integer;

tf: boolean;

implementation

{$R *.dfm}

procedure TForm2.dda_line(x1,y1, x2, y2: integer);

// Процедура получает координаты конца и начала и «рисует» линию между ними по алгоритму ДДА

var

i, L, xstart, ystart, xend, yend: integer;

dx, dy: real;

x, y: array [0..1000] of real;

begin

xstart:=x1;

ystart:=y1;

xend:=x2;

yend:=y2;

L:=max(abs(xend-xstart), abs(yend-ystart));

dx:=(x2-x1)/L;

dy:=(y2-y1)/L;

i:=0;

x[i]:=x1;

y[i]:=y1;

inc(i);

while(i<L) do begin

x[i]:=x[i-1]+dx;

y[i]:=y[i-1]+dy;

inc(i);

end;

x[i]:=x2;