На бесконечном поле есть горизонтальная и вертикальная стены. Правый конец горизонтальной стены соединён с нижним концом вертикальной стены. Длины стен неизвестны. В каждой стене есть ровно один проход, точное место прохода и его ширина неизвестны. Робот находится в клетке, расположенной непосредственно справа от вертикальной стены у её верхнего конца. На рисунке указан один из возможных способов расположения стен и Робота (Робот обозначен буквой «Р»). Напишите для Робота алгоритм, закрашивающий все клетки, расположенные непосредственно выше горизонтальной стены и правее вертикальной стены. Проходы должны остаться незакрашенными. Робот должен закрасить только клетки, удовлетворяющие данному условию. Например, для приведённого выше рисунка Робот должен закрасить следующие клетки (см. рисунок).
При исполнении алгоритма Робот не должен разрушиться, выполнение алгоритма должно завершиться. Конечное расположение Робота может быть произвольным. Алгоритм должен решать задачу для любого допустимого расположения стен и любого расположения и размера проходов внутри стен. Алгоритм может быть выполнен в среде формального исполнителя или записан в текстовом редакторе. Сохраните алгоритм в текстовом файле.
Хосспаде Иегове, да научитесь же вы язык указывать! Perl. 2. @array; #Формат ввода не задан, будем считать что он уже заполнен. $min = $array[0]; $max = $array[0]; for $i (@array) { $min = $i if ($i < $min); $max = $i if ($i > $min); } %hash = map {$_ => 1} @array; for $i in ($min..$max) { print "$i " if (!(exists $hash{$i})); } 3. use Quantum::Superpositions; #Модуль для квантовых вычислений, жутко удобная штука. @primes; $n = <>; push @primes, ($i) if ($i % all(2..sqrt($i)+1) != 0) i for $i (2..$n); #ответ в массиве @primes. 4. На этот вопрос я не так давно отвечал, ну ладно. $n = <>; @multipliers; for $i (2..$n) { if (!($n % $i)) { push @multipliers, ($i); $n /= i; } } #ответ в массиве @multipliers. А теперь укажите-таки язык и я, если с этим языком знаком напишу нормальный, не извращённый ответ.
Хосспаде Иегове, да научитесь же вы язык указывать! Perl. 2. @array; #Формат ввода не задан, будем считать что он уже заполнен. $min = $array[0]; $max = $array[0]; for $i (@array) { $min = $i if ($i < $min); $max = $i if ($i > $min); } %hash = map {$_ => 1} @array; for $i in ($min..$max) { print "$i " if (!(exists $hash{$i})); } 3. use Quantum::Superpositions; #Модуль для квантовых вычислений, жутко удобная штука. @primes; $n = <>; push @primes, ($i) if ($i % all(2..sqrt($i)+1) != 0) i for $i (2..$n); #ответ в массиве @primes. 4. На этот вопрос я не так давно отвечал, ну ладно. $n = <>; @multipliers; for $i (2..$n) { if (!($n % $i)) { push @multipliers, ($i); $n /= i; } } #ответ в массиве @multipliers. А теперь укажите-таки язык и я, если с этим языком знаком напишу нормальный, не извращённый ответ.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
