10. На бесконечном поле имеется вертикальная стена. Длина стены неизвестна. От нижнего конца стены влево отходит горизонтальная стена также неизвестной длины. Робот находится в клетке, расположенной справа от верхнего края вертикальной стены. На рисунке указан один из возможных способов расположения стен и Робота. Робот обозначен буквой «Р». Напишите для Робота программу, закрашивающую все клетки, расположенные непосредственно правее вертикальной стены, ниже горизонтальной стены, угловую клетку и клетки выше горизонтальной стены. Робот должен закрасить только клетки, удовлетворяющие данному условию. Например, для приведенного выше рисунка Робот должен закрасить следующие клетки (см. рисунок). Конечное расположение Робота может быть произвольным. Алгоритм должен решать задачу для произвольного размера поля и любого допустимого расположения стен внутри прямоугольного поля. При исполнении алгоритма Робот не должен разрушиться. Выполнение алгоритма должно завершиться. Алгоритм может быть выполнен в среде формального исполнителя или записан в текстовом редакторе. Сохраните алгоритм в формате программы Кумир или в текстовом файле. Название файла и каталог для сохранения Вам сообщат организаторы.

Алгоритм для Робота

Условие: Робот закрашивает клетки, расположенные непосредственно правее вертикальной стены, ниже горизонтальной стены, угловую клетку и клетки выше горизонтальной стены.

Описание алгоритма:

Робот должен исследовать поле вокруг себя, определяя положение стен, и закрашивать клетки, соответствующие заданным условиям. Алгоритм должен быть универсальным и работать для любых допустимых расположений стен.

Предполагаемые команды (на основе типичного синтаксиса Робота):

• Вверх
• Вниз
• Вправо
• Влево
• Закрасить
• Стена(направление): возвращает истину, если в указанном направлении стена.
• Пусто(направление): возвращает истину, если в указанном направлении свободно.

Алгоритм (псевдокод):

алг Программа_Закраски
нач
  // Определяем положение стен относительно Робота
  // Если есть вертикальная стена слева:
  если Стена(Влево) то
    // Двигаемся вправо до вертикальной стены, чтобы найти ее край
    повтор
      Вправо
    пока не Стена(Влево)
    
    // Закрашиваем клетки непосредственно правее вертикальной стены
    пока не Стена(Вниз)
      Закрасить
      Вниз
    конец пока
    
    // Обрабатываем горизонтальную стену
    // Двигаемся вправо до горизонтальной стены
    пока не Стена(Вниз)
      Вправо
    конец пока
    
    // Закрашиваем клетки ниже горизонтальной стены
    пока не Стена(Вправо)
      Закрасить
      Вправо
    конец пока
    
    // Закрашиваем угловую клетку (если применимо)
    // Далее закрашиваем клетки выше горизонтальной стены
    // Для этого нужно вернуться к вертикальной стене и двигаться вверх, 
    // но учитывать, что горизонтальная стена может быть не прямой.
    // Требуется более сложная логика обхода.
    
  иначе
    // Если вертикальной стены слева нет, то это недопустимая конфигурация или
    // робот находится в другом положении. Требуется уточнение. 
    // Для данной задачи предполагаем, что робот изначально находится в указанном положении.
  конец если

  // Упрощенный подход, предполагающий, что робот может закрашивать в заданных направлениях, 
  // игнорируя необходимость точного определения границ стен, если они не мешают.
  // Закрашиваем непосредственно правее вертикальной стены (т.е. если есть стена слева)
  если Стена(Влево) то
    Закрасить // угловая клетка
    // Двигаемся вниз, пока не упремся в горизонтальную стену
    пока не Стена(Вниз) do
      Закрасить
      Вниз
    конец пока
    
    // Закрашиваем ниже горизонтальной стены
    // Двигаемся вправо, пока не упремся в правую стену (или край поля)
    пока не Стена(Вправо) do
      Закрасить
      Вправо
    конец пока
    
    // Теперь нужно закрасить клетки выше горизонтальной стены.
    // Для этого нужно добраться до положения над горизонтальной стеной.
    // Это может потребовать движения влево до вертикальной стены, затем вверх, 
    // и затем снова вправо над горизонтальной стеной.
    
    // Простейший вариант: Закрасить клетки, которые находятся на той же высоте, 
    // что и первая закрашенная клетка (выше горизонтальной стены), 
    // и справа от вертикальной стены.
    
    // Вернуться к начальной позиции (или близкой к ней) для закраски верхних клеток
    // Это может быть сложно без точного знания границ стен.
    
    // Если предположить, что нам нужно закрасить все клетки правее вертикальной стены
    // и выше горизонтальной стены, до тех пор, пока мы не достигнем края поля или другой стены:
    
    // Определение области для закраски: правее вертикальной стены, выше горизонтальной.
    // Так как точные размеры и положения неизвестны, алгоритм должен быть адаптивным.
    
    // Пример реализации, если бы мы знали точные координаты или могли легко их определять:
    // Координаты стены P: (Px, Py)
    // Если P = (2, 5), стена слева от P - вертикальная, стена снизу от P - горизонтальная.
    // Нужно закрасить: (3, 5), (4, 5), ... (до конца строки)
    // и (3, 4), (3, 3), ... (до горизонтальной стены)
    // и (4, 4), (4, 3), ... (до горизонтальной стены)
    // и так далее.
    
    // Более реалистичный алгоритм, основанный на сенсорах:
    
    // Шаг 1: Найти и закрасить клетки ниже горизонтальной стены.
    // Начать с клетки справа от P.
    пока не Стена(Вниз) do
      Закрасить
      Вниз
    конец пока
    // Продолжить вправо, пока не упремся в правую стену.
    пока не Стена(Вправо) do
      Закрасить
      Вправо
    конец пока
    
    // Шаг 2: Закрасить угловую клетку (если еще не закрашена, т.е. P)
    // В задаче P - это клетка Робота, которая не закрашивается, 
    // закрашиваются клетки справа от вертикальной стены.
    // Предположим, что "угловая клетка" - это клетка непосредственно справа от P, 
    // если P находится на пересечении стен.
    // Если P = (2,5), стена слева (x=1), стена снизу (y=4)
    // Закрасить: (3,5), (4,5), ... (строка 5)
    // Закрасить: (3,4), (4,4), ... (строка 4)
    
    // Алгоритм для движения и закрашивания:
    
    // Движемся вниз пока не встретим горизонтальную стену
    пока не Стена(Вниз) do
        Закрасить
        Вниз
    конец пока
    // Закрашиваем все клетки под горизонтальной стеной, двигаясь вправо
    пока не Стена(Вправо) do
        Закрасить
        Вправо
    конец пока
    
    // Теперь нужно добраться до клеток выше горизонтальной стены
    // Возвращаемся влево до вертикальной стены
    пока не Стена(Влево) do
        Влево
    конец пока
    // Двигаемся вверх до горизонтальной стены
    пока не Стена(Вверх) do // Здесь должна быть проверка на верхнюю стену, если она есть.
        Вверх // Предполагаем, что есть свободное пространство выше
    конец пока
    // Теперь мы находимся над горизонтальной стеной, но слева от P.
    // Нужно вернуться вправо до стены P.
    // Проблема: неизвестно, где именно находится P относительно вертикальной стены.
    // Если P = (2,5), стена слева x=1. Робот в (2,5).
    // Если мы хотим закрасить (3,5), (4,5) ...
    
    // Проще всего, если Робот может обходить препятствия.
    // Закрасить все клетки, которые НЕ являются стеной и находятся правее вертикальной стены и выше горизонтальной.
    
    // Алгоритм, который будет работать независимо от размеров поля, 
    // но требует, чтобы Робот мог определять границы поля и стен.
    
    // 1. Найти вертикальную стену слева от Робота.
    // 2. Определить первую клетку справа от этой стены, которая находится выше горизонтальной стены.
    // 3. Закрасить эту клетку и двигаться вправо, закрашивая, пока не встретится стена.
    // 4. Затем вернуться к вертикальной стене и двигаться вверх, закрашивая, пока не встретится горизонтальная стена.
    
    // Более конкретный алгоритм для кумира:
    алг ЗакраситьЗону
    нач
      // Двигаемся вниз, пока не упремся в горизонтальную стену
      пока не Стена(Вниз) do
        Закрасить
        Вниз
      конец пока
      // Двигаемся вправо, пока не упремся в стену поля или другую стену
      пока не Стена(Вправо) do
        Закрасить
        Вправо
      конец пока
      
      // Теперь нам нужно закрасить клетки выше горизонтальной стены.
      // Возвращаемся к вертикальной стене (слева от P)
      пока не Стена(Влево) do
        Влево
      конец пока
      // Теперь мы слева от P. Нужно подняться над горизонтальной стеной.
      // Если над P есть свободная клетка, поднимаемся
      // Проблема: неизвестно, где точно находится горизонтальная стена.
      // Для универсальности, можно использовать цикл, который закрашивает все доступные клетки.
      
      // Алгоритм, который предполагает, что Робот всегда может двигаться и закрашивать 
      // в допустимых зонах, не разрушаясь.
      
      // Определить границу вертикальной стены слева
      пока Стена(Влево) do
        Влево
      конец пока
      // Робот теперь находится непосредственно слева от вертикальной стены.
      // Нужно подняться до верхней границы зоны для закраски.
      
      // Простой вариант: закрашиваем все что можно, кроме стен
      // Это не соответствует условию