Найти энтропию сообщения

[Бубликова]

Люди!!! Простите пожалуйста!!! Я -НОЛЬ!!! Мне жутко стыдно, что я такая лохушка в этом деле!!! Прошу вас!!! Просто умоляю!!! Помогите мне!! Завтра нужно сдавать контрольную!!! Задание следующее(не знаю, правильно ли я с ним обратилась к Вам):
Найти энтропию сообщения, состоящего из:
а) R= 6 букв русского алфавита
б) E= 6 букв английского алфавита
в) D= 41 десятичных цифр
г) Q= 3 восьмеричных цифр
д) B= 2 двоичных цифр
е) H= 2 шестнадцатиричных цифр

Боже!!! Храни программистов!!

[alex_fcsm]

uses crt;
var r:real;
    i:integer;

begin
clrscr;
r:=0;
for i:=1 to 6 do
 r:=r+(ln(1/33)/ln(2))/33;
writeln('R=',-r:6:4);
r:=0;
for i:=1 to 6 do
 r:=r+(ln(1/26)/ln(2))/26;
writeln('E=',-r:6:4);
r:=0;
for i:=1 to 41 do
 r:=r+(ln(1/10)/ln(2))/10;
writeln('D=',-r:6:4);
r:=0;
for i:=1 to 3 do
 r:=r+(ln(1/8)/ln(2))/8;
writeln('Q=',-r:6:4);
r:=0;
for i:=1 to 2 do
 r:=r+(ln(1/2)/ln(2))/2;
writeln('B=',-r:6:4);
r:=0;
for i:=1 to 2 do
 r:=r+(ln(1/16)/ln(2))/16;
writeln('H=',-r:6:4);
end.

[Бубликова]

alex_fcsm
а как бы мне это записать по русски, а не на языке программистов???

[alex_fcsm]

http://ru.wikipedia.org/wiki/%D0%98%...BF%D0%B8%D1%8F

Смотри формулу H(x)

[Бубликова]

Спасибки большое.... уфф...((