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

Reset(f);{Файл открыт для чтения}

ReadLn(f,i0,j0); {Начало пути}

ReadLn(f,iz,jz); {Конец пути}

ReadLn(f,nr,mr); {Размеры комнаты барьеров}

//---------------------------------------------

x0:=(i0-1)*mr+(j0-1); //Комната-Начало

z:=(iz-1)*mr+(jz-1); //Комната-Конец

zEnd:=z;

//---------------------------------------------

//Обнулить

for i:=1 to nr do begin

for j:=1 to mr do begin

Wr[i,j].L:=0;

Wr[i,j].U:=0;

Wr[i,j].R:=0;

Wr[i,j].D:=0;

end;

end;

for i:=1 to nr do begin

//----------------------------------------

if i=1 then

for j:=1 to mr do Read(f,Wr[i,j].U)

else

for j:=1 to mr do Wr[i,j].U:=Wr[i-1,j].D;

//----------------------------------------

for j:=1 to mr do begin

if j=1 then Read(f,Wr[i,1].L);

Read(f,w,Wr[i,j].R);

if j<mr then Wr[i,j+1].L:=Wr[i,j].R;