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.
как это будет выглядеть в Паскаль АВС?
Ответы
Ответ дал:
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.
Приложения:
![](https://st.uroker.com/files/b42/b4277eccd8f81a8cbb8bf9633782fcb4.png)
Вас заинтересует
4 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад