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.

Answer 2

В Паскале ABC код, который вы предоставили, будет выглядеть следующим образом:

pascalCopy code
while FreeFromleft do
begin
  paint('left');
  down;
end;

while FreeFromUp do
  paint('up');

while CellisFree do
begin
  paint('right');
  down;
end;

Предполагается, что вам нужно определить и реализовать функцию paint, которая будет выполнять соответствующие действия в зависимости от переданного аргумента.