Предмет: Информатика,
автор: nastuxxw
Робот должен закрасить поле размером 9х9 «в клетку».программа abc pascal. буду очень благодарна!
Только в конце символ "\" уберите, он случайно нажался
спасибо большое
Пожалуйста. Добавлю тогда в ответ.
Ответы
Автор ответа:
0
Программа для исполнителя Робот в PascalABC.NET:
Uses Robot;
begin
Field (9,9);
While FreeFromleft do
left;
While FreeFromUp do
up;
loop 5 do
begin
loop 4 do
begin
paint;
right;
right;
end;
paint;
if FreeFromDown then
begin
While FreeFromleft do
left;
down;
down;
end;
end;
end.
Приложения:
Похожие вопросы
Предмет: Алгебра,
автор: grigorenkovadim07
Предмет: Английский язык,
автор: shuhratbekg
Предмет: Математика,
автор: robertpati
Предмет: Другие предметы,
автор: Аноним
Предмет: География,
автор: kostyaxantonow09
Uses Robot;
Begin
Field (9,9);
While FreeFromleft do
left;
While FreeFromUp do
up;
loop 5 do
begin
loop 4 do
begin
paint;
right;
right;
end;
paint;
if FreeFromDown then
begin
While FreeFromleft do
left;
down;
down;
end;
end;
end.\