Создайте поле размером 7 на 7. Составьте программу, в результате которой робот закрасит диагональные и вертикальные клетки поля. Исходное положение Робота и результат выполнения программы показаны на рисунке 3.34
Помогите пожалуйста, срочно нужно
Помогите пожалуйста, срочно нужно
More Questions From This User See All
Answers & Comments
Ответ:
uses Robot;
begin
Field(7,7);
for i:integer:=1 to 3 do
begin
left;
up
end;
paint;
for i:integer:=1 to 6 do
begin
right;
down;
paint
end;
for i:integer:=1 to 6 do left;
for i:integer:=1 to 6 do
begin
paint;
up;
right
end;
paint
end.
Объяснение:
картинка