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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

begin
dir.x:=dir.y;
dir.y:=0
end
else
begin
dir.y:=-dir.x;
dir.x:=0
end;
Next.x:=Cur.x+Dir.x; Next.y:=Cur.y+Dir.y
end;
'B':begin {Развернем обезьянку }
dir.x:=-dir.x;
dir.y:=-dir.y;
Next.x:=Cur.x+Dir.x; Next.y:=Cur.y+Dir.y
end;
'W':begin {Впереди стенка}
if Plan[Next.x,Next.y] in ['?','-','|'] then
begin
if dir.x=0
then Plan[Next.x,Next.y]:='-' {вертикальная или
горизонтальная}
else Plan[Next.x,Next.y]:='|';
if Next.y>T then T:=Next.y;
if Next.y<B then B:=Next.y;
if Next.x>R then R:=Next.x; {Изменяем габариты плана(если
нужно)}
if Next.x<L then L:=Next.x
end

Страницы