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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

else
exit
end
end;
inc(index)
until c='E';
GetNextMonkey:=True {Если не было аварийных выходов,все в
порядке }
end;
{Функция, находящая план по всем маршрутам начиная с por.}
{Рекурсивно вызывает саму себя пока не использует все
маршруты }
{Если удалось построить план ,возвращает true}
Function GetMonkeys(por:integer):boolean;
var
t0,b0,l0,r0:integer;
D:TPoint;
p:PPlan;
OK:boolean;
Count:integer;
begin
if por>NOfM then
begin {Все маршруты согласованы }
GetMonkeys:=True; {Запоминаем ,что план построен}
new(p);
while not Empty do {Очищаем стек}
PopStack(p^,T0,B0,L0,R0);
exit

Страницы