не, як при початковому етапі, зображеному на малюнок 5.
У підсумку, коренева папка буде мати такі файли, показані на малюнку 11.
В
Малюнок 11 - Коренева папка
4. Реалізація на Delphi методу кодування Хаффмана
Лістинг програми:
const nmax = 250; masbol = Array [1 .. 1000] of boolean; maschast = Array [1 .. 1000] of integer;: TForm1;
{$ R *. dfm} s1: string;: string;: array [1 .. nmax] of string; s: array [1 .. nmax] of char;: array [1. . nmax] of char;: maschast;: byte; tablica; jjj, i, j: integer; var f: textfile;. opendialog1.Filter: = 'текстові файли | * txt | всі | *'; Form1.openDialog1.Execute and fileexists (Form1.opendialog1.Filename) then.memo1.Lines.LoadFromFile (Form1.openDialog1.FileName)
else MessageDlg ('що-то не так з файлом', mtwarning, [mbOk], 0);
s1: = Form1.memo1.text;: = 0; i: = 1 to length (s1) do begin: = 0; j: = 1 to krs dos1 [i] = s [j ] then: = j; jjj> 0 then c [jjj]: = c [jjj] +1 begin: = krs +1; [krs]: = s1 [i]; [krs]: = 1;;;. StringGrid1. colcount: = 3;. StringGrid1. rowcount: = krs +1; i: = 1 to krs do begin.stringgrid1.cells [1, i]: = s [i];. stringgrid1.cells [2, i]: = inttostr (c [i]);; (f, 'табліца.txt'); (f); i: = 1 to krs do (f, s [i], '', inttostr (c [i])); (f);; TForm1.Button1Click (Sender: TObject);;; fmin (k: integer; v: maschast; f: masbol): integer; imin, min, i: integer;: = 32767;: = 0; i : = 1 to k dof [i] and (min> v [i]) then begin: = v [i];: = i;;: = imin;; TForm1.Button2Click (Sender: TObject); n1, n2, i, j, kvo: integer;, r2: char;: masbol;: textfile; i: = 1 to krs do to krs dorod [i] = r1 then begin [i]: = '1 '+ kod [i]; [i]: = r2; rod [i] = r2 then [i]: = '0' + kod [i ]; [n2]: = c [n2] + c [n1];: = kvo-1; kvo = 1; i: = 1 to length (s1) doj: = 1 to krs do begins1 [i] = s [ j] TObject); i, k, j: integer; i: = 0 to Form1.ComponentCount-1 do (Form1.Components [i] is TMemo) then (Form1.Components [i] as TMemo). Clear; (Form1.Components [i] is TEdit) then (Form1.Components [i] as TEdit). Text: ='';; k: = 0 to StringGrid1.RowCount - 1 doj: = 0 to StringGrid1.ColCount - 1 do.Cells [j , k]: ='';
end;.
Висновок
У цій роботі було поставлено завдання розробити програму для класичного методу кодування Хаффмана на Delphi версії 7.0.
Першим такий алгоритм опублікував Девід Хаффман (David Huffman) [1] у 1952 році. Алгоритм Хаффмана двухпроходний. На першому проході будується частотний словник і генеруються коди. На другому проході відбувається безпосередньо кодування. p align="justify"> Варто відзначити, що за 50 років з дня опублікування, код Хаффмана нітрохи не втратив своєї актуальності і значущості. Так з упевне...
