Question

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.
как это будет выглядеть в Паскаль АВС?​

Answer 1

Внизу скрин, как это выглядит (робот бежит вниз по диагонали, потом вверх по стенке, затем в начальную точку.

А вот исправленная программа, которая это делает (в программе из задания была кучка ошибок):

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.