Оптимальное кодирование информации (Delphi) -  Исходник программы, предназначенной для подсчета повторений букв (дискретная математика - алгоритмы Шеннона-Фано, Хаффмана) - Автор  Al Ar.
 

   В этой программе используется подсчет повторений букв. Из расчета повторяемости, т.е. чем чаще повторяется буква, тем короче двухзначный код (алгоритмы Шеннона-Фано, Хаффмана), программа выдает результаты: длина сообщения, кол-во символов алфавита, энтропия сообщения, средняя энтропия символа, длина символа при равномерном кодировании, абсолютная избыточность в представлении сообщения, средняя абсолютная избыточность в представлении символа.