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