Обстановка. Где-то на бесконечном поле находится лабиринт Г-образной формы. Ширина коридора лабиринта равна 1 клетке, а длина неизвестна. Расположение лабиринта неизвестно. Один из возможных вариантов показан на рисунке. Робот находится в самом дальнем углу лабиринта. Задание. Написать алгоритм вывода Робота из лабиринта. Постарайтесь написать алгоритм, работающий для любого расположения лабиринта. Подсказка: смотри решение классной задачи. Там осталось довести до универсального кода два блока конструкции «выбор».
...
var
N:integer=1801;
LABIRINT:array[0..1801,0..1801] of integer;
...
procedure rebuildArr2;
var i,j:integer;
begin
for i:=0 to ((N div 3) ) do
for j:=0 to ((N div 3) ) do
LABIRINT[i,j]:=LABIRINT[i*3,j*3];
N:=N div 3;
end;
...
Объяснение: