Помогите составить программу кумир робот пожалуууйййстааа.
Текст к 1 задаче
. Где-то в поле Робота находится вертикальная стена с отверстием в одну клетку, размеры которой неизвестны. Робот из произвольной клетки справа от стены, но обязательно напротив нее, должен дойти до стены и закрасить клетки за стеной, как показано на рисунке.
текст ко 2
Необходимо перевести Робота из начального положения (◊) в точку A, закрашивая при этом указанные клетки поля. Размеры стен и расстояние между ними могут быть произвольны.
. Где-то в поле Робота находится вертикальная стена с отверстием в одну клетку, размеры которой неизвестны. Робот из произвольной клетки справа от стены, но обязательно напротив нее, должен дойти до стены и закрасить клетки за стеной, как показано на рисунке.
текст ко 2
Необходимо перевести Робота из начального положения (◊) в точку A, закрашивая при этом указанные клетки поля. Размеры стен и расстояние между ними могут быть произвольны.
использовать Робот
алг
нач
нц пока сверху свободно
закрасить
вверх
кц
нц пока сверху стена
закрасить
вправо
кц
нц пока сверху свободно
закрасить
вверх
кц
закрасить
кон
Ответы
задание 1:
использовать Робот
цел н
алг
нач
нц пока слева свободно
влево
кц
нц пока снизу свободно
вниз
кц
влево
н:=0
нц 2 раза
нц пока справа свободно
вверх
кц
нц пока справа стена
закрасить
вверх
н:=н+1
кц
кц
вниз
нц пока слева свободно
влево
закрасить
кц
нц для н от 1 до н
вниз
закрасить
кц
нц пока справа свободно
закрасить
вправо
кц
кон
задание 2:
использовать Робот
алг
нач
нц пока сверху свободно
закрасить
вверх
кц
нц пока сверху стена
закрасить
вправо
кц
нц пока сверху свободно
закрасить
вверх
кц
закрасить
кон
А ещё можно обе эти программы ужать, если все циклы писать в одну строку (и так даже понятнее становится):
использовать Робот
цел н=0
алг нач
нц пока слева свободно; влево кц
нц пока снизу свободно; вниз кц
влево
нц 2 раза
нц пока справа свободно; вверх кц
нц пока справа стена; закрасить; вверх; н:=н+1 кц
кц
вниз
нц пока слева свободно; влево; закрасить кц
нц для н от 1 до н; вниз; закрасить кц
нц пока справа свободно; вправо; закрасить кц
кон
Программа 2:
использовать Робот
алг нач
нц пока сверху свободно; закрасить; вверх кц
нц пока сверху стена; закрасить; вправо кц
нц пока сверху свободно; закрасить; вверх кц
закрасить
кон