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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

x,y:integer
end;
PPlan=^TPlan;
TPlan=array[-2*MaxN..2*MaxN,-2*MaxM..2*MaxM] of char;
{План }
TStack=^TElem;
TElem=record
Plan:TPlan;
L,R,T,B:integer;
Next:TStack
end;
var
Stack:TStack; {Стек}
Input,Output:Text; {Файлы ввода/вывода}
M,N:integer; {Размеры поля }
NOfM:integer; {Число маршрутов}
L,R,T,B:integer; {Текущие границы поля }
Cur,Next,Dir:TPoint; {Текущая и следующая точки и направление,
куда смотрит обезьяна}
Plan:TPlan; {План }
Monkeys:array[1..10] of string; {Маршруты }
{****************************}
{Процедуры работы со стеком }
{Инициализация стека}
procedure InitStack;
begin
Stack:=nil
end;

Страницы