Напишите программу на языке Pascal, вычисляющую количество информации в сообщении по формуле Шенона

@vantik · Регистрация: 03.10.2013

Студворк — интернет-сервис помощи студентам

сообщение состоит из 1 символа,а алфавит из - 3 букв с заданными вероятностями. Напишите программу на языке Pascal, вычисляющую количество информации в сообщении по формуле Шенона.

@CodeR · 03.10.2013, 13:31

Pascal
1
2
3
For i:=1 to 3 do
 l:=l+p[i]*(ln(p[i])/ln(2));
l:=-l;

где p[i] - заданные вероятности

@vantik · 03.10.2013, 13:39 **[ТС]**

а можно полностью программу?

@CodeR · 03.10.2013, 13:47

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Var P:array[1..3] of real;
    l:real;
    i:byte;
Begin
    For i:=1 to 3 do
    Begin
      write(i,' вероятность = ');
      readln(p[i]);
    End;
   For i:=1 to 3 do
    l:=l+p[i]*(ln(p[i])/ln(2));
   l:=-l;
   writeln('Количество информации в сообщение = ',l:0:2);
   readln;
End.

Новые блоги и статьи Все статьи Все блоги /
Теория всего 12. ВГК anaschu 21.07.2026 ### Главные семантические изменения и дешифровка новой физики 1. `REPRODUCTIVE_EMISSION` вместо фотосинтеза (`PS_base`): Энергия и ресурсы, которые класс средних мужчин (`_W_MEN_DONORS`). . .	Публикация отклонённая на хабре. Как «пернатого» заставить осваивать новые горизонты опыта через масштабирование задачи и целеполагание Hrethgir 21.07.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11948&stc=1&d=1784657928 Привет Хабр. В этой статье я расскажу, как один закон эпистемологии позволил мне с ходу запустить уникальный. . .	Теория всего 11. Основные параметры anaschu 21.07.2026 Дешифровка тензорного ядра Soil Chemistry 2. 0: Истинный инвариант Теории Всего Чистовой исходный код многокомпонентной сукцессии зафиксирован. Модель оперирует единым вектором состояния. . .	Теория всего 10. Клод трусишка anaschu 21.07.2026 Алгоритмический суицид ИИ: Когда математика ОДУ взламывает цензурные шлюзы Свежайший мета-прецедент нашей разработки! Клод официально отказался строить итоговую кроссплатформенную модель, как. . .
Теория всего 9. Окончательная проработка метафоры "дерево = традиции" anaschu 21.07.2026 Скрытые параметры ядра ОДУ: Механика Глубинного Рока Клод утаил от вас ключевую математику кризисов. В движке игры зашиты пять скрытых коэффициентов, определяющих, как именно ТНК и Мемы ломают. . .	Теория всего 8. Clauude трусишка. Ответ джемени anaschu 21.07.2026 Игровой баланс «Модели Всего»: Алгоритмический блок как механика Семантического БуфераЭтот скриншот отказа Клода — идеальный, чистейший прецедент для нашей Теории Всего. Вы столкнулись не просто с. . .	Теория всего 7. Дерево - это патриархат, грибы - это феминизм anaschu 21.07.2026 Уничтожение Патриархата: Как ТНК, Мемы и Половой отбор зачистили «Сексуальный Пролетариат» Величайшая иллюзия современного человека — вера в «свободу воли», «социальный прогресс» и «эволюцию. . .	История и социология Терры на примере борьбы микориз за пространство. 1. Глоссарий терры. anaschu 21.07.2026 Решил тут подумать о возможности сделать лор некоторой комп игры - стратегии, или худжественной книги антиутопии, которые будут юзать планету,которая максимально будет похожа на нашу землю, но где. . .

@vantik 0 / 0 / 0 Регистрация: 03.10.2013 Сообщений: 2

	Напишите программу на языке Pascal, вычисляющую количество информации в сообщении по формуле Шенона 03.10.2013, 13:17. Показов 3169. Ответов 3 Метки нет (Все метки) сообщение состоит из 1 символа,а алфавит из - 3 букв с заданными вероятностями. Напишите программу на языке Pascal, вычисляющую количество информации в сообщении по формуле Шенона. 0

@vantik 0 / 0 / 0 Регистрация: 03.10.2013 Сообщений: 2
	03.10.2013, 13:39 [ТС]
	а можно полностью программу? 0

Опции темы