На схеме изображены помещения, ограниченные радиальными и шестиугольными стенами. по краям лабиринта стены покрашены в красный цвет. в шестиугольных стенах смонтированы двери между помещениями. радиальные стены соединены с красной стеной. дверей в красной стене нет. каждое помещение имеет свой уникальный номер. номер центрального помещения, из которого стартует робот, всегда равен 0. ни один номер не повторяется дважды. между помещениями установлены двери. каждая дверь связывает некоторую пару помещений. между двумя помещениями может быть не более одной двери. нет ни одного помещения, в которое нельзя прийти из центра и из которого нельзя выйти к красной стене, двигаясь по направлению из центра. в радиальных стенах двери отсутствуют. робота добраться до красной стены. робот в данном лабиринте ведет себя следующим образом: каждый раз он случайно (равновероятно) выбирает дверь, ведущую в сторону от центра. в каких помещениях робот будет заканчивать работу чаще? определите вероятности попадания робота в помещения с красной стеной. формат входных данных в первой строке программе подается целое число n (1≤n≤102) — количество дверей. далее в n строках через пробел записываются пары целых чисел a, b (0≤a, b≤n, a≠b) — номера помещений, которые соединены дверью. формат выходных данных для каждого помещения с красной стеной в отдельной строке выведите вероятность попадания робота в данное помещение в следующем формате: номера помещений запишите в порядке возрастания; после каждого номера поставьте двоеточие; затем через пробел укажите вероятность попадания в указанное помещение. если вероятность является целым числом, укажите это число. если вероятность — дробное число, то запишите его в виде простой дроби x/y, где нод(x, y)=1. система оценки за будут начислены, если все тесты будут пройдены успешно. sample input: 23 0 1 0 2 0 3 0 9 1 16 1 17 16 15 15 14 15 13 17 21 17 18 18 19 18 20 2 4 2 5 4 6 4 7 5 8 3 22 9 23 9 10 10 11 10 12 sample output: 6: 1/16 7: 1/16 8: 1/8 11: 1/16 12: 1/16 13: 1/16 14: 1/16 19: 1/32 20: 1/32 21: 1/16 22: 1/4 23: 1/8
Ответы
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var a:=ArrRandomReal(28,0.001,2); a.Println;
Writeln(NewLine,'P=',a.Where(x->x<1.0).Aggregate(1.0,(p,x)->p*x))
end.
Тестовое решение
0.0398313784756844 0.521430412644721 1.21896472712139 1.94948843003553 1.15333909315725 0.788220413078657 0.284177359403659 1.78978303515016 0.678028235740042 1.55275635141682 0.189534365820482 0.741079475998916 1.8561824476473 1.56863753180655 1.46180190814184 0.424840159483645 1.72583213937042 1.9121896329998 1.74689281148598 1.49191368740467 0.900698237893031 0.867495573381193 1.51968024434926 1.28361295387922 0.144896066409953 0.40525055964489 0.897010715250862 1.71948831971571
P=7.74656862552087E-06
begin
var a:=ArrRandomReal(28,0.001,2); a.Println;
Writeln(NewLine,'P=',a.Where(x->x<1.0).Aggregate(1.0,(p,x)->p*x))
end.
Тестовое решение
0.0398313784756844 0.521430412644721 1.21896472712139 1.94948843003553 1.15333909315725 0.788220413078657 0.284177359403659 1.78978303515016 0.678028235740042 1.55275635141682 0.189534365820482 0.741079475998916 1.8561824476473 1.56863753180655 1.46180190814184 0.424840159483645 1.72583213937042 1.9121896329998 1.74689281148598 1.49191368740467 0.900698237893031 0.867495573381193 1.51968024434926 1.28361295387922 0.144896066409953 0.40525055964489 0.897010715250862 1.71948831971571
P=7.74656862552087E-06
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Соедините две строки, используя алгоритмический язык программирования.
Автор: Vitproficosmetics
Построить дерево по его коду: 5, 4, 4, 5, 6, 6, 1, 2, 3, 1.
Автор: Artak96993298
Модельдеу сөзінің рысша және ағылшынша нұсқасын жазу помагите у нас тжб
Автор: kolyabelousow4059
Выбери верный ответ. Табличный
Автор: АлександровнаВладлен243
Вкаком состоянии находится долька яблока если ее можно согнуть и она при этом не ломается
Автор: misstimarina2016
Гироскопиялық датчикті роботка орналастыру алгорит мін жаз.
Автор: Леонтьева
Как можно упаковать информацию при хранении на диске
Автор: bulk91675
procedure MatPrint(a:array[,] of integer);
begin
for var i:=0 to Length(a,0)-1 do begin
for var j:=0 to Length(a,1)-1 do Write(a[i,j]:4);
Writeln
end
end;
procedure MatReplaceOdd(a:array[,] of integer; value:integer);
begin
for var i:=0 to Length(a,0)-1 do
for var j:=0 to Length(a,1)-1 do
if a[i,j].IsOdd then a[i,j]:=value
end;
begin
var n,m:integer;
Write('Задайте число строк и столбцов матрицы: ');
Read(n,m);
var a:=MatrixRandom(n,m,-99,99);
Writeln('Исходный массив');
MatPrint(a);
MatReplaceOdd(a,26);
Writeln('Результирующий массив');
MatPrint(a)
end.
Тестовое решение
Задайте число строк и столбцов матрицы: 5 7
Исходный массив
-14 86 52 -85 -52 -79 78
20 -80 68 89 -45 -45 -36
-41 -60 96 43 16 56 -58
-39 81 1 26 -15 -98 89
57 -51 79 -28 -24 -63 -74
Результирующий массив
-14 86 52 26 -52 26 78
20 -80 68 26 26 26 -36
26 -60 96 26 16 56 -58
26 26 26 26 26 -98 26
26 26 26 -28 -24 26 -74