Курсовая работа: Поиск кратчайшего пути в лабиринте 2

y:=nil;

z:=nil;

end;

// процедура рисует найденный кратчайший путь

procedure TOcno.DrawWay(md:Tway);

var k,x,ir,jr:Integer;

wr,wrG:TRect;

h,w:Integer;

cx,cy:Integer;

begin

k:=md.z;

x:=k+1;

ir:=(x-1) div md.mr +1;

jr:=(x-1) mod md.mr +1;

wr:=R[ir,jr];

cx:=(wr.Left+wr.Right) div 2;

cy:=(wr.Top+wr.Bottom) div 2;

w:=(wr.Right-wr.Left) div 12;

h:=(wr.Bottom-wr.Top) div 7;

wr.Left:=cx-w;

wr.Right:=cx+w;

wr.Top:=cy-h;

wr.Bottom:=cy+h;

mC.Brush.Color:=RGB(0,255,255);

mC.Pen.Width:=3;

mC.Pen.Color:=RGB(0,0,0);

mC.Arc(wR.Left, wR.Top, wR.Right, wR.Bottom, wR.Left, wR.Top, wR.Left, wR.Top);

k:=md.zEnd;

x:=k+1;