Реализовать процедуру вычисления энтропии для текстового файла на английском языке.

[Vesnushka_me]

Задача: Реализовать процедуру вычисления энтропии для текстового файла на английском языке. В процедуре необходимо подсчитывать частоты появления символов (прописные и заглавные буквы не отличаются, знаки препинания рассматриваются как один символ, пробел является самостоятельным символом), которые можно использовать как оценки вероятностей появления символов. Затем вычислить величину энтропии Шеннона. Точность вычисления -- 4 знака после запятой. Обязательно предусмотреть возможность ввода имени файла, для которого будет вычисляться энтропия.

Начала решать с подсчета количества символов в файле.

var f:text;
buf, s: string;
m:integer;

begin
assign(f,'y:\pascal\lala.txt');
reset(f);
repeat
readln(f,buf);
s:=s+buf;
until eof(f);
m:=length(s);
writeln(m);
end.

Не могу сообразить, как подсчитать частоту появления. Вообще с помощью чего это сделать? С помощью массива?
Помогите и направьте, пожалуйста. Долго уже мучаюсь, не пойму никак(



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[type_Oleg]

Да, наверное надо массив частот. Лучше относительных частот. Это называется статистический ряд.
Ваша строка s - это тоже фактически массив символов, типа вариационного ряда. Ряд вариант - конкретных случайных символов.
Надо написать функцию, которая по строке s вычислит статистический ряд относительных частот.

type statR=array[1..28]of Real;
function fStat(s:string):statR;
// и т.д.

28 = 26 букв + пробел + любой из . , ; - ! ? ( )
Непонятно правда, как понимать многоточие в тексте, или излишнюю экспрессию, типа !!!

PS Код строчной буквы и прописной отличается на $20 (32 в десятичной). Например A - $41, a - $61

[ViktorR]

Может так?
Описываем множество символов - знаки препинания.
Описываем массив с целыми элементами.
Читаем строку из файла. Просматриваем строку по символьно до конца строки.
Преобразуем символ в верхний регистр. Проверяем попадание символа в множество знаков препинания. Если это знак препинания, то +1 в первый элемент массива. Если это пробел, то +1 во второй элемент массива.
Если это буква или цифра, то определяем ее код: Типа: <Символ> - '0' + 2 (тут надо подумать) и +1 в соответствующий элемент массива.
Затем читаем и обрабатываем следующую строку и так до конца файла.
Теперь у нас есть кол-во символов и массив с частотой их появления в тексте.


Как-то так, ...

[type_Oleg]

Вот так например - расчет относительных частот. Относительная частота = частота / объем выборки. Поэтому Real, см выше.

function fStat(s:string):statR;
const
 LETTER='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';
 PUNCT='.,;-!?()';
var n,i,j:Integer;
  tmp:statR;
begin
 for i:=1 to 28 do tmp[i]:=0;
 n:=Length(s);
 for i:=1 to n do
  begin
   for j:=1 to 26 do
    if (s[i]=LETTER[j])or(s[i]=LETTER[j+26])
     then tmp[j]:=tmp[j]+1/n;
   if (s[i]=' ')then tmp[27]:=tmp[27]+1/n;
   for j:=1 to 8 do
    if (s[i]=PUNCT[j])then tmp[28]:=tmp[28]+1/n;
  end;
 fStat:=tmp;
end;

[Vesnushka_me]

Спасибо большое за участие!
Пока не смотрела. Как сделаю, напишу обязательно, как получилось)