|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.06.2022, 09:29 | #1 |
Новичок
Джуниор
Регистрация: 23.08.2012
Сообщений: 1
|
Алгоритм Хаффмана для сжатия данных
Есть код, который должен сжимать данные по алгоритму Хаффмана, но почему-то на выходе выдает совсем не тот результат, который должен. Берется слово из файла, затем преобразуется в последовательность чисел, считаются частоты, с которыми появляются те или иные буквы, после чего выводится результат, и соответственно меняется размер файла, но цифры не соответствуют. Помогите, пожалуйста понять в чем ошибка или упростите мой код, желательно с комментариями, чтобы знать в чем ошибка.
Код:
http://it-informs.ru
|
21.06.2022, 15:03 | #2 | ||
Участник клуба
Регистрация: 17.04.2022
Сообщений: 1,833
|
Цитата:
Не проще прочитать ReadLn всю строку и затем уже выполнять сцепление строк. Ужасно написано в целом. Зачем здесь else? Цитата:
В остальных случаях это выглядит как проверка на появление символа менее 2-х раз (если бы не for j := i ). Вообще if s[i]=s[j] стоит проверить сразу на входе в цикл for до запуска вложенного цикла по h. Тогда вы избавитесь от лишних проходов цикла по h. Последний раз редактировалось macomics; 21.06.2022 в 15:50. |
||
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Алгоритм сжатия Хаффмана (найти ошибки), Pascal | WestCoast | Фриланс | 0 | 16.01.2014 20:28 |
Алгоритм сжатия LZW | dollemika | Помощь студентам | 11 | 20.06.2012 07:40 |
Алгоритм сжатия jpeg | VARCHUN | Помощь студентам | 0 | 08.05.2012 17:01 |
Алгоритм сжатия Хаффмана | onryo | Общие вопросы Delphi | 0 | 10.04.2011 16:08 |
Алгоритм сжатия+ zlib | Воин-Леший | Общие вопросы Delphi | 1 | 09.12.2007 15:05 |