Метод Хаффмана Паскаль

[Ксения19]

Задание: написать программу которая считывает текст с файла, выводит вероятности появления каждого из символов в тексте, и рассчитывает среднее кол-во бит на символ(сумма произведений вероятностей на длину кода). Ниже текст прогграммы которая выводит вероятности и считает длину текста, НЕ ЗНАЮ КАК РЕАЛИЗОВАТЬ ДАЛЬШЕ, помогите кто в этом разбирается, пожалуйста
Program lab2;
var
b: char;
f: text;
s: char;
l: string;
k: array [0..255] of integer;
i: integer;

const
Sum: Longint = 0;
begin
Write('file name: ');
readln (l);
assign (f,l);
Reset (f);
while not EOF(f) do
begin
read(f,s);
inc (sum,1);
k[ord(s)]:=k[ord(s)]+1;
end;
for i:= 0 to 255 do
if k[i]>0 then
writeln(k[i],'/', sum);
{writeln ('obem = ', sum) ;}
close(f);
readln;
end.

[JuniorProger]

Ниже текст прогграммы которая выводит вероятности и считает длину текста, НЕ ЗНАЮ КАК РЕАЛИЗОВАТЬ ДАЛЬШЕ

Так что не получается сделать-то? Рассчитать среднее кол-во бит на символ?

[Ксения19]

Сообщение от JuniorProger

Так что не получается сделать-то? Рассчитать среднее кол-во бит на символ?

да, именно это не знаю как реализовать

[JuniorProger]

Ну так у тебя же написано, что среднее кол-во бит на символ - это сумма произведений вероятностей на длину кода. Допустим у тебя k[0] - вероятность появления нулевого символа, k[1] - первого, k[n] - n-го символа. Длина текста я так понял Sum. Тогда, судя по тому, что ты написала, среднее кол-во бит на символ равно k[0]*Sum + k[1]*Sum +...+k[n]*Sum что равно Sum*(k[0] + k[1] +...+ k[n]).

[Mad_Cat]

Сообщение от JuniorProger

Ну так у тебя же написано, что среднее кол-во бит на символ - это сумма произведений вероятностей на длину кода. Допустим у тебя k[0] - вероятность появления нулевого символа, k[1] - первого, k[n] - n-го символа. Длина текста я так понял Sum. Тогда, судя по тому, что ты написала, среднее кол-во бит на символ равно k[0]*Sum + k[1]*Sum +...+k[n]*Sum что равно Sum*(k[0] + k[1] +...+ k[n]).

и k[0]*Sum + k[1]*Sum +...+k[n]*Sum что равно Sum*(k[0] + k[1] +...+ k[n] равно будет Sum

[Hacker19_90]

Sum*(k[0] + k[1] +...+ k[n] равно будет 1

разве?
помоему это будет равно Sum
тк (k[0] + k[1] +...+ k[n]) сумма вероятностей и равна 1
+ умножить на sum получится sum
Или я что-то путаю?

[Ксения19]

Сообщение от JuniorProger

Ну так у тебя же написано, что среднее кол-во бит на символ - это сумма произведений вероятностей на длину кода. Допустим у тебя k[0] - вероятность появления нулевого символа, k[1] - первого, k[n] - n-го символа. Длина текста я так понял Sum. Тогда, судя по тому, что ты написала, среднее кол-во бит на символ равно k[0]*Sum + k[1]*Sum +...+k[n]*Sum что равно Sum*(k[0] + k[1] +...+ k[n]).

нет не так, вероятности нужно умножать на длину кодовой комбинации, например кодовая комбинация=001, тогда её длина =3, так вот, у каждого символа будет свой код, вот как их закодировать мне и непонятно

[JuniorProger]

Hacker19_90, ты прав. Mad_Cat, прав Hacker19_90

[Ксения19]

Сообщение от JuniorProger

Hacker19_90, ты прав. Mad_Cat, прав Hacker19_90

не путайте длину КОДА и длину текста

[Hacker19_90]

чёт я запутался ТС
Давайте сначала
и так есть текст в котором мы должны определить вероятность появления символа!
это не вопрос!
Но потом
сумма произведений вероятностей на длину кода
длину какого кода? кода чего?