Нужно написать программу на pascal abc net. суть программы такова, чтобы она рандомно выбирала цвета (красный, чёрный или зелёный), но с определёнными шансами, то есть красный=43,75%, чёрный=50% и зелёный=6,25%. в результате программа должна выдать человеку какой цвет выпадет. в множество красного цвета входят числа: 1,5,7,9,11,13,15 в множество чёрных: 2,4,6,8,10,12,14,16 в множество зелёных: 3.
181
237
Ответы на вопрос:
Считая, что функция random() возвращает случайные числа с равномерным законом распределения и что 7/16*100 = 43,75, 8/16*100 = 50, 1/16 = 6,25, можно решить так: begin var c: =random(1,16); case c of 1,5,7,9,11,13,15: writeln(c,' - красный'); 2,4,6,8,10,12,14,16: writeln(c,' - чёрный'); else writeln(c,' - зелёный'); end; end.пример: 7 - красный
1лампочка может гореть 3 цветами, 2 может гореть еще 3, 3 тоже 3. значит общее количество будет равно если нужно дерево вариантов, то на первой строке три варианта (что обозначает первую лампочку, один вариант - один цвет), от каждого из трех вариантов отходит три стрелочки (вторая лампочка, одна стрелочка - один и от каждого из этих вариантов отходит еще три стрелочки, обозначающие цвета.
Популярно: Информатика
-
kristos2405200628.11.2021 21:18
-
2003lyuba07.06.2020 15:07
-
nikita57734406.05.2021 11:44
-
vikahamka71101.06.2023 05:21
-
наруоклоктлалтмтата11.05.2020 17:43
-
taniysha3512.07.2022 17:54
-
Egolaspro16.05.2022 10:23
-
eksergeeva524.12.2020 04:25
-
sergeyyakimov0504.02.2023 13:41
-
Aksa210117.08.2021 08:24