Известно, что в ящике лежит 64 шара. из них чёрных 16, белых 16, жёлтых 2, красных 4. какое количество информации несут сообщение о том, что из ящика случайным образом достали жёлтый шар? сколько информации несет сообщение о цвете вынутого шара?
109
126
Ответы на вопрос:
Количество информации можно определить как -log2(p), где p - вероятность данного события. оно измеряется в битах. также можно использовать равносильное выражение log2(1/p) вероятность взятия чёрного шара равна 10/20 = 0,5, белого - 4/20 = 0,2, жёлтого такая же - 0,2, красного - в 2 раза меньше - 0,1. значит, если мы взяли чёрный шар, мы получили кол-во информации log2(1/0,5) = log2(2) = 1 бит, если белый, то log2(1/0,2) = log2(5) = 2,3219 бит если жёлтый, то столько же 2,3219 бит если красный, то log2(1/0,1) = log2(10) = 3,3219 бит
Program tlg; var s: string; i,n: integer; p: real; begin writeln('введите текст телеграммы, разделяя слова ровно одним пробелом'); readln(s); write('укажите стоимость слова в рублях: '); read(p); n: =1; for i: =1 to length(s) do if s[i]=' ' then inc(n); writeln('стоимость телеграммы, руб: ',n*p: 0: 2) end. тестовое решение: введите текст телеграммы, разделяя слова ровно одним пробелом грузите апельсины бочками братья карамазовы укажите стоимость слова в рублях: 3.78 стоимость телеграммы, руб: 18.90 program revstr; var s,s1: string; i,j,n: integer; begin write('исходная строка: '); readln(s); s: =' '+s; n: =length(s); i: =n; j: =n; s1: =''; while i> 0 do begin j: =i; while (s[j]=' ') and (j> 1) do dec(j); { удалили пробелы } i: =j; while (s[j]< > ' ') and (j> 1) do dec(j); { пробежали по непробелам } if j> 0 then s1: =s1+' '+copy(s, j+1, i-j); i: =j-1 end; s1: =copy(s1,2,length(s1)-1); writeln(s1) end. тестовое решение: исходная строка: а роза упала на лапу азора азора лапу на упала роза а
Популярно: Информатика
-
вася78320.03.2020 21:11
-
mrlams28821.03.2023 12:45
-
Bronin200205.04.2022 16:38
-
ksenia23110626.09.2020 22:12
-
Олежик12131418.01.2022 15:34
-
fff56731.10.2020 04:51
-
pashafil517.05.2021 08:34
-
denmalyshevs17.02.2023 00:46
-
07072002kl25.02.2021 17:54
-
Математик09406.09.2020 12:04