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

👇

Увидеть ответ

Ответ:

ladakorobova

03.02.2020

нц пока не сверху свободно

закрасить

вправо

кц

нц пока сверху свободно

вправо

кц

нц пока справа свободно

закрасить

вправо

кц

нц пока не справа свободно

закрасить

вниз

кц

нц пока справа свободно

вниз

кц

нц пока не справа свободно

закрасить

вниз

кц

4,8(75 оценок)

Открыть все ответы

Ответ:

PashaVershinin

03.02.2020

// PascalABC.NET 3.0, сборка 1128
begin
var a:=ArrRandom(70,1,100).PrintLn;
Writeln('Количество элементов, кратных трем: ',
a.Where(x->x mod 3=0).Count);
var p:=a.OrderByDescending(x->x).Take(4).ToArray;
if (p[0]=p[1]) and (p[0]=p[2]) and (p[0]<>p[3]) then
Writeln('В массиве ровно три одинаковых максимальных элемента')
else Writeln('В массиве не три одинаковых максимальных элемента');
Writeln('Массив, из которого удалены элементы с нечетными значениями');
a.Where(x-> not Odd(x)).PrintLn
end.

Тестовое решение:
38 85 87 89 78 50 26 92 6 41 14 57 14 41 81 5 30 21 27 71 92 55 76 53 84 18 62 28 85 58 14 58 42 92 1 93 68 67 53 65 15 45 47 57 76 60 6 88 44 4 27 21 39 67 96 84 10 35 6 60 88 98 7 48 28 56 16 23 40 88
Количество элементов, кратных трем: 25
В массиве не три одинаковых максимальных элемента
Массив, из которого удалены элементы с нечетными значениями
38 78 50 26 92 6 14 14 30 92 76 84 18 62 28 58 14 58 42 92 68 76 60 6 88 44 4 96 84 10 6 60 88 98 48 28 56 16 40 88

3 76 40 20 39 100 15 85 75 58 43 48 2 57 45 90 12 50 92 70 64 33 94 38 18 59 74 10 31 13 61 34 100 77 42 61 76 95 38 100 27 44 7 75 23 22 24 52 70 39 91 68 79 74 83 70 82 2 2 80 26 6 55 62 97 10 48 25 16 84
Количество элементов, кратных трем: 19
В массиве ровно три одинаковых максимальных элемента
Массив, из которого удалены элементы с нечетными значениями
76 40 20 100 58 48 2 90 12 50 92 70 64 94 38 18 74 10 34 100 42 76 38 100 44 22 24 52 70 68 74 70 82 2 2 80 26 6 62 10 48 16 84

4,8(73 оценок)

Ответ:

misskuleshova

03.02.2020

Чтобы квадрат вписался в круг, его диагональ должна быть равна диаметру круга. Если трактовать "уместиться" как "пролезть", то диагональ должна быть меньше диаметра..
Формулы площадей квадрата S₁ и круга S₂ известны, что легко позволяет нам найти нужное условие.
$\displaystyle S_1=a^2 \to a=\sqrt{S_1}; \ d=a \sqrt{2}= \sqrt{2S_1} \\ S_2=\frac{\pi D^2}{4} \to D=\sqrt{\frac{4S_2}{\pi}}; \\ d\ \textless \ D \to \sqrt{2S_1}\ \textless \ \sqrt{\frac{4S_2}{\pi}}; \ 2S_1\ \textless \ \frac{4S_2}{\pi} \ \to \ \boxed{\pi s_1\ \textless \ 2S_2}$
Если нужно, чтобы случай, когда квадрат вписан в круг тоже учитывался, строгое неравенство следует заменить нестрогим.

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var s1:=ReadReal('Площадь квадрата');
var s2:=ReadReal('Площадь круга');
if pi*s1<2*s2 then Writeln('Квадрат умещается в круге')
else Writeln('Квадрат не умещается в круге')
end.

Тестовое решение:
Площадь квадрата 24.6
Площадь круга 28.4
Квадрат не умещается в круге

4,8(87 оценок)

Это интересно:

Кулинария-и-гостеприимство

11.11.2022

Сладкий рецепт: американские панкейки с нутеллой...

Кулинария-и-гостеприимство

04.04.2021

Как готовить только для себя: полезные советы и рецепты...

Дом-и-сад

23.11.2020

Как навести порядок в гараже: полезные советы от специалистов...

Транспорт