Uses Robot Begin Field (7.7): While FreeFromleft do begin paint: left; down; end: While FreeFromUp do paint: up: end: While CellisFree do begin paint: right; down: end: end.
как это будет выглядеть в Паскаль АВС?
Ответы на вопрос
Ответил Ziorar
0
Внизу скрин, как это выглядит (робот бежит вниз по диагонали, потом вверх по стенке, затем в начальную точку.
А вот исправленная программа, которая это делает (в программе из задания была кучка ошибок):
Uses Robot;
Begin
Field (7,7);
While FreeFromleft do
begin
paint;
left;
down;
end;
While FreeFromUp do
begin
paint;
up;
end;
While CellisFree do
begin
paint;
right;
down;
end;
end.
Приложения:

Новые вопросы