Алгоритм сжатия данных LZ77
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
ршении кодировки
Для сохранения закодированного текста, то он должен вызвать вызвать SaveDialog (Save), в котором можно создать файл, в который будет сохраняться результат(Рис.4.7).
Рис.4.7..SaveDialog
Программа оповестит пользователя об успешном сохранении данных, указав путь к файлу. (Рис.4.8)
Рис.4.8. Оповещение об успешном сохранении данных
Если после завершения кодировки пользователь вновь захочет закодировать текст, то ему необходимо будет очистить форму (Рис.4.9) и выполнить все необходимые шаги, описанные выше. Очистить форму можно нажав на пункт Clear.
Рис.4.9. Очистка
Ограничения работы программы:
Программа работает со строкой, длина которой не имеет превышений.
Программа работает только с текстовыми файлами и цифрами, причем другие символы использоваться не могут.
Тестировалась на операционных системах семейства Windows NT (XP/7).
5. Результаты тестирования приложения на разных объемах данных
Результат тестирования программы.
6. Анализ работы алгоритма LZ77 и выводы
Рис. 6.1. График зависимости количества сравнений от количества элементов
Из данного графика видно, что увеличение количества элементов ведет к увеличению количества сравнений. Количество сравнений можно посчитать по формуле , где n - количество элементов.
В результате проделанной работы было изучено большое количество литературы, рассмотрены несколько алгоритмов сжатия. Написана программа для сжатия данных по алгоритму Лемпела-Зива LZ77.
Список использованных источников
1. Дж. Бакнел Фундаментальные алгоритмы и структуры данных в Delphi- СПб: ООО ДиаСофтЮП, 2003.-560 с.
. Д. Хопкрофт Структуры данных и алгоритмы Д. Хопкрофт: Уч.пос.- М.:Вильямс, 2000.
. Н.Вирт Алгоритмы и структуры данных. Н.Вирт.М.: Мир, 1989.,87с .
. В.В.Фаронов Delphi. Программирование на языке высокого уровня: Учебник для вузов В.В.Фаронов.: Питер,2009
. Д. Райли Абстракция и структуры данных. Вводный курс. Д. Райли - М.: Мир, 1993 г.
Приложение
unitUmain;,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,,StdCtrls,ComCtrls,ExtDlgs;=class(TForm):TButton;:TEdit;:TListBox;:TListBox;:TListBox;:TEdit;:TEdit;:TUpDown;:TUpDown;:TButton;:TButton;:TMemo;:TButton;:TButton;Click(Sender:TObject);Click(Sender:TObject);Click(Sender:TObject);Click(Sender:TObject);Click(Sender:TObject);
{Privatedeclarations}
{Publicdeclarations};:TForm1;,st,slov,buff:string;,sizebf,sizesl,ind,shft:integer;
{$R*.dfm}.Button1Click(Sender:TObject);,temp:integer;:string;(x,y:string):byte;//определяемдлинусовпадения,j,k:integer;:=pos(y[1],x);:=1;:=2;:=ktosizebfdo[i]=y[j+1]then(j);(result);;(result);;(varx,y:string;n:integer);//заполняемсловарьснова,j,delta:integer;+length(x)345:=1;:=length(x)-delta+1tosizesldo
begin[i]:=y[j];//дописываемизбуфера
inc(j);;;
//;(varx:string;m:integer);,j:integer;:=1tolength(x)-mdo
x[i]:=x[i+m];//выталкиваемпроверенныебуквы:=length(x);(x,j-m);//устанавливаемновуюдлину
i:=length(x)+1;(i<=sizebf)and(ind<length(st))do
begin//еслистроканезакончиласьибуфернеполон
x:=x+st[ind+1];
inc(i);inc(ind);;
//;.Clear;.Clear;.Clear;:=Str.Text;:=StrToInt(Edit1.Text);:=StrToInt(Edit2.Text);:='';:='';:=1;:=1tosizebfdo:=buff+st[i];:=sizebf;.Items.Add(buff);.Items.Add(slov);''then.Items.Add(buff);.Items.Add(slov);;;('Готово!');;.Button2Click(Sender:TObject);.text:='';.items.clear;.Items.Clear;.Items.Clear;;.Button4Click(Sender:TObject);;;.Button3Click(Sender:TObject);:TOpenDialog;:TextFile;,s:string;.Clear;.Lines.Add('');:=TOpenDialog.Create(self);.InitialDir:=GetCurrentDir;
//Тольк оразрешенные существующие файлымогут быть выбраны
openDialog.Options:=[ofFileMustExist];
//Разрешеновыбратьтолько.txtфайлы.Filter:=
'TextFiles|*.txt';
//Показдиалоготкрытияфайла.Execute('File:'+openDialog.FileName);:=openDialog.FileName;(Tekst,FilePass);(Tekst);(Tekst)do(Tekst,s);.Lines.Add(s);;.Lines.Delete(0);
elseShowMessage('Открытие файла остановлено');
Str.Text:=memo1.Text;;.Button5Click(Sender:TObject);:TSaveDialog;:=TSaveDialog.Create(self);.InitialDir:=GetCurrentDir;.Options:=[ofFileMustExist];.Filter:='TextFiles|*.txt';.Execute.Items.SaveToFile(SaveDialog.FileName+'.txt');('File:'+SaveDialog.FileName);('Сохранение файла остановлено');;.