Олимпиадные задачи по программированию. Ч. 4. Лучшие решения. Ускова О.Ф - 64 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

write('Формируем карту расположения комнат...');
pFirst := nil; pEnd := nil;
pLast1 := nil; pLast2 := nil; pLast3 := nil; pLast4 := nil;
x := 0; y := 0; nRooms := 0;
readln(f1, n);
for i := 1 to n do begin
if eof(f1) then Error('неожиданный конец файла !');
readln(f1, c);
AddRoom(x, y, c);
end;
close(f1);
writeln('ОК (найдено комнат: ', nRooms, ')');
write('Поиск кратчайшего пути ................');
SetLabels;
if (pFirst <> nil) then n := pFirst^.lab else n := 0;
writeln('OK (количество шагов: ', n, ')');
write('Запись кратчайшего пути в файл........');
rewrite(f2);
GetPath(f2);
close(f2);
writeln('ОК');
write('Очистка памяти ........................');
DestroyRooms;
writeln('OK');
write('Кратчайший путь.......................');
reset(f2);
while (not eof(f2)) do begin
read(f2, c);
write(c);
end;
close(f2);
writeln; writeln;
writeln('Кратчайший путь сохранен в файле output.txt');
write('Нажмите любую клавишу для выхода...');
readkey;
end.

Страницы