Компрессия информации и упорядочение дерева по алгоритму Виттера
Компрессия информации и упорядочение дерева по алгоритму Виттера
2 Министерство Образования и Науки Украины ПОЯСНИТЕЛЬНАЯ ЗАПИСКА к курсовому проекту на тему: “Компрессия информации и упорядочение дерева по алгоритму Виттера” по курсу “ Кодирование и защита информации. ” 2005 Аннотация Пояснительная записка содержит описание разработанной программы и руководство по ее использованию. Также в ней приводится описание используемых методов компрессии информации. Содержание Аннотация 2 Введение 4 1. Постановка задачи 5 2. Основные обозначения 6 3. Обзор и характеристика существующих методов сжатия информации, основанные на процедуре кодирования хаффмена 7 3.1. Динамическое кодирование хаффмена 7 3.2. Алгоритм динамического кодирования методом fgk 8 3.3. Алгоритм динамического кодирования виттера 9 Программная реализация 13 Руководство пользователя 13 Заключение 15 Библиографический список 16 Приложения 17 Введение В настоящее время большое внимание уделяется информации, недаром наш век называют “информационным”. Во время того, как люди познают технологии хранения и передачи информации, встает вопрос о ее компрессии. Производительность существующих компьютерных сетей может быть заметно увеличена за счет повышения скорости передачи данных по каналам связи, которое обеспечивается использованием методов сжатия информации (эффективное кодирование). Для решения этой проблемы было разработано большое количество разнообразных методов кодирования информации, которые могут быть реализованы программно. Данная разработка представляет собой программный модуль, обеспечивающий комрессию и декомпрессию информации. 1. Постановка задачи Необходимо разработать программу для кодирования и декодирования непрерывно поступающей информации. Для компрессии использовать алгоритм динамического кодирования Виттера. Разработать удобный интерфейс общения с пользователем. 2. Основные обозначения m-размер алфавита источника сообщений; zj - j-й символ алфавита; M(k) =z(1), z(2), …, z(k) - первые к символов в сообщении; k - число символов в сообщении, обработанных до текущего момента времени K-количество различных символов, обработанных на текущий момент времени; Wj-вес символов zj, поступивших на момент обработки сообщения. lj - расстояние от корня дерева до zj - го листа. 3. Обзор и характеристика существующих методов сжатия информации, основанные на процедуре кодирования хаффмена Алгоритм динамического кодирования Виттера представляет собой усовершенствование динамического кодирования Хаффмена. Класический метод кодирования Хаффмена предпологает до начала преобразования знание вероятностей появления символов на выходе источника информации. Символы упорядочиваются по убыванию вероятностей их возникновения. На передающей и приемной сторонах должны быть известны кодовые деревья для каждого сообщения. Таким образом для его реализации требуется два прохода кодируемого массива. При 1-м просмотре вычисляются вероятности появления каждого знака в сообщении и составляется таблица кода Хаффмена. На следуещем этапе осуществляется кодирование на основании статистической структуры дерева Хаффмена и передача символов в сжатом виде. Выйгрыш полученный за счет сжатия данных может заметно снижаться, особенно при передачи коротких сообщений, в связи с необходимостью передавать декодеру дополнительную информацию о кодовом дереве. Еще один недостаток это наличие задержки от момента поступления данных от источника до выдачи соответствующих кодовых комбинаций, что ограничивает использование неравномерного кодирования в системах реального времени. 3.1. Динамическое кодирование хаффмена В начале 70-х годов были разработаны однопроходные методы сжатия информации. Суть состоит в том, что передатчик строит дерево Хаффмена в темпе поступления данных от источника. В процессе кодирования происходит “обучение” кодера на основе статистических характеристик источника сообщений в ходе которого вычисляются оценки исходных вероятностей сообщения и производится модификация кодового дерева Хаффмена. Т. к. происходит непрерывное изменение дерева, этот процесс получил название динамического кодирования Хаффмена. Декодер должен непрерывно “учиться” наряду с кодером осуществляя синхронное изменение дерева. Для обеспечения синхронности процессов кодирования и декодирования кодер выдает символ в несжатом виде, если он впервые появился на выходе источника, и отмечает его на кодовом дереве. При повторном появлении символа на входе декодера он передается неравномерной кодовой комбинацией, определяемой позицией символа на текущем кодовом дереве. На одном уровне не может быть меньше 2-х узлов, пара узлов является дочерней, т.к. имеет общий родительский узел, вес которого равен сумме весов дочерних узлов. Хаффменское дерево должно обладать следующими свойствами: Листья имеют неотрицательный вес W>0, каждый родительский узел имеет дочерние узлы, а его вес равен сумме дочерних весов. На каждом уровне дерева, кроме корневого должно быть не менее одной пары узлов, имеющих общий родительский узел. Все узлы нумеруются в возрастающем порядке, узлы с номерами (2j-1) и 2j являются узлами одного уровня для 1<=j<=m-1, их общий родительский узел имеет более высокий уровень. 3.2. Алгоритм динамического кодирования методом fgk Суть алгоритма состоит в процедуре вычисления листьев и построения бинарного дерева с минимальным весом пути Wjlj. На 1-м этапе дерево Хаффмена преобразуется в эквивалентное исходному, которое может быть преобразовано в хаффменовское дерево для M(k+1). 1-й этап начинается после получения от источника символа z(k+1), который получает статус текущего узла. Затем происходит обмен текущего узла (включаю поддерево) с узлом имеющим наибольший порядковый номер с таким же весом. В качестве нового текущего узла иницилизируется родительский узел последнего текущего узла. Обмен в случае необходимости многократно повторяется пока не будет достигнут корень дерева. Максимальное количество перестановок, которые могут понадобиться равна высоте дерева. На 2-м этапе инкрементируется лист дерева соответствующий обрабатываемому символу и последующие промежуточные узлы, расположенные на пути движения от листа к корню дерева. 3.3. Алгоритм динамического кодирования виттера Данный алгоритм позволяет построить динамическое хаффменское дерево таким образом, что бы минимизировать сумарную длину внешнего пути и расстояние от корня дерева до листа. Число обменов узлов в процессе модификации сводится к минимуму. Минимизация высоты дерева h= max{ lj} позволит предотвратить образование длинных кодовых комбинаций при кодировании очередного символа в сообщении. Алгоритм Виттера обладает следующими преимуществами по сравнению с алгоритмом FGK: Количество обменов узлами, при котором текущий узел перемещается в верх по кодовому дереву в процессе его модификации ограничивается еденицей. Алгоритм Виттера минимизирует длину внешнего пути дерева lj и гарантирует дерево минимальной высоты h= max{ lj} при условии минимизации суммарной длины внешнего пути дерева. По алгоритму Виттера осуществляется так называемая неявная нумерация (implicit numbering) узлов кодового дерева. При неявной нумерации узлы хаффменского дерева нумеруются в порядке увелечения по уровням слева направо и снизу вверх. Важнейшим условием неявной нумерации является соблюдение необходимого условия построения дерева: Для каждого веса W все листья дерева с весом W должны предшествовать всем внутренним узлам веса W. Структурная схема алгоритма динамического кодирования Виттера приведена на рисунке 1. На рисунке 2 приведена структурная схема процедуры скольжения и приращения.
Программная реализация Для разработки программы был выбран язык программирования высокого уровня Delphi 5.0 (Object Pascal). Он весьма полно выражает идеи структурного программирования. Это проявляется в том, что Delphi может успешно использоваться для записи программ на разных уровнях ее детализации, не прибегая к помощи блок-схем или специального языка проектирования программ. Средства языка Delphi позволяют осуществлять достаточный контроль правильности использования данных различных типов и программных объектов как на этапе трансляции так и на этап ее выполнения. Delphi позволяет без особых трудностей реализовать удобный пользовательский интерфейс, не пребигая к написанию низкоуровневого кода. В проекте предпологается кодирование непрерывно поступающей информации, поэтому программа позволяет пользователю вводить исходное сообщение с клавиатуры, которое кодируется и отображает структуру кодового дерева хаффмена. Декодировку сообщения можно производить по символьно и по битам. В программе есть так же возможность считать данные для кодирования из фыйла. Руководство пользователя Программа работает под управлением операционной системы Windows 9. x. Программа имеет удобный пользовательский интерфейс. Программа имеет две основные области: кодировка и декодировка. Справа расположено поле для ввода сообщения. В процессе поступления сообщения в окне кодировка строится кодовое дерево. В поле Сообщение отображаются поступающие данные. В поле Закодированное отображается закодированное сообщение. Декодировку можно производить как по символам, так и по битам. Для этого используются соответствующие кнопки: Символ и Бит. Результат декодировки отображается в поле Декодирование. В процессе декодирования строится кодовое дерево. Заключение В ходе выполнения курсовой работы были закреплены знания, полученные в ходе изучения дисциплины “Кодирование и защита информации”. Работа выполнена в соответствии с постановкой задачи на курсовое проектирование. Для проверки работоспособности программы и правильности обработки входных данных разработан тестовый пример. Тестирование программы подтвердило, что программа правильно выполнила обработку данных и выдает верные результаты. Библиографический список Конспект лекций по курсу “Кодирование и защита информации” Цымбал В.П. “Теория информации и кодирование. ” - Киев: “Вища школа”, 1982 - 303с. В.С. Чернега “Сжатие информации в компьютерных сетях” - СевГТУ, Севастополь 1997. Приложения ПРИЛОЖЕНИЕ A Тестирование программы Исходное сообщение: Hello world! Таблица 1. Итерация№1 |
Итерация №1 | | Сообщение: H | | Закодировнное сообщение: 01101000 | | |
* 3 H 2 Таблица 2. Итерация№2 |
Итерация №2 | | Сообщение: He | | Закодировнное сообщение: 01101000 001100101 | | |
H 5 3 4 * e 2 Таблица 3. Итерация№3 |
Итерация №3 | | Сообщение: Hel | | Закодировнное сообщение: 01101000 001100101 1001101100 | | |
7 5 6 * l H e 1 2 3 4 Таблица 4. Итерация№4 |
Итерация №4 | | Сообщение: Hell | | Закодировнное сообщение: 01101000 001100101 1001101100 01 | | |
7 l 5 6 e 3 4 * H 2 Таблица 5. Итерация№5 |
Итерация №5 | | Сообщение: Hello | | Закодировнное сообщение: 01101000 001100101 1001101100 01 110 01101111 | | |
9 7 8 e h l 3 4 5 6 * o 2 Таблица 6. Итерация№6 |
Итерация №6 | | Сообщение: Hello_ | | Закодировнное сообщение: 01101000 001100101 1001101100 01 110 01101111 100 00100000 | | | 11 9 10 e l 5 6 7 8 * - h o 1 2 3 4 Таблица 7. Итерация№7 |
Итерация №7 | | Сообщение: Hello_ w | | Закодировнное сообщение: 01101000 001100101 1001101100 01 110 01101111 100 00100000 01001110111 | | |
13 11 12 l 7 8 9 10 * w e - h o 1 2 3 4 5 6 Таблица 8. Итерация№8 |
Итерация №8 | | Сообщение: Hello_ wo | | Закодировнное сообщение: 01101000 001100101 1001101100 01 110 01101111 100 00100000 01001110111 111 | | |
13 11 12 o l 7 8 9 10 e h 3 4 5 6 * w 2 Таблица 9. Итерация№9 |
Итерация №9 | | Сообщение: Hello_ wor | | Закодировнное сообщение: 01101000 001100101 1001101100 01 110 01101111 100 00100000 01001110111 111 1110 01110010 | | |
15 o 13 14 9 10 11 12 h w e - l 3 4 5 6 7 8 * r 1 2 Таблица 10. Итерация№10 |
Итерация №10 | | Сообщение: Hello_ worl | | Закодировнное сообщение: 01101000 001100101 1001101100 01 110 01101111 100 00100000 01001110111 111 1110 01110010 111 | | |
15 13 l 14 9 10 11 12 h w e - o 3 4 5 6 / 7 8 * r 1 2 Таблица 11. Итерация№11 |
Итерация №11 | | Сообщение: Hello_ world | | Закодировнное сообщение: 01101000 001100101 1001101100 01 110 01101111 100 00100000 01001110111 111 1110 01110010 111 1100 01100100 | | |
17 15 16 l 11 12 13 14 h w e o 5 6 7 8 9 10 * d - r 1 2 3 4 ПРИЛОЖЕНИЕ В Текст программы unit Form; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Core; type TForm1 = class(TForm) InChar: TEdit; Panel1: TPaintBox; Panel2: TPaintBox; Label1: TLabel; Label2: TLabel; CodeTableMemo: TMemo; MessageMemo: TMemo; Label3: TLabel; Label4: TLabel; CodedMsg: TMemo; Button1: TButton; DecodedMsg: TMemo; Button2: TButton; Label5: TLabel; procedure InCharKeyPress(Sender: TObject; var Key: Char); procedure Button1Click(Sender: TObject); procedure FormResize(Sender: TObject); procedure FormPaint(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Tree, DecodeTree: PTree; codetable: array [char] of string; decodetable: array [char] of string; procedure MakeCodeTable(Top: PTree); implementation {$R *. DFM} procedure DrawTree(D: TPaintBox; P: Ptree; w,h: integer); var C: TCanvas; procedure Draw(T: PTree; x,y,level,ofs: integer); begin if(T<>nil) then begin if(T. Left<>nil) then begin c. MoveTo(x,y); c. LineTo(x-(ofs div 2),y+30); end; if(T. Right<>nil) then begin c. MoveTo(x,y); c. LineTo(x+(ofs div 2),y+30); end; C. Ellipse(x-12,y-12,x+12,y+12); if t. isleaf then if t. symbol=#0 then C. TextOut(x-4,y-25,'*') else C. TextOut(x-4,y-25,t. Symbol); C. TextOut(x-6,y-7, inttostr(T. wiegth)); C. TextOut(x-6,y+12, inttostr(T. number)); Draw(T. Left,x-(ofs div 2),y+30,level+1,ofs div 2); Draw(T. Right,x+(ofs div 2),y+30,level+1,ofs div 2); end; end; begin C: =D. Canvas; C. Brush. Color: =clBtnFace; C. FillRect(D. ClientRect); Draw(P,w div 2,30,1,w div 2); end; procedure MakeDeCodeTable(Top: PTree); procedure CT(P: PTree; code: string); begin if P<>nil then begin if (P. Wiegth>=0) and (P. IsLeaf) then begin decodetable [P. Symbol] : =code; end; if not P. IsLeaf then begin CT(P. Left,code+'0'); CT(P. Right,code+'1'); end; end; end; begin CT(Top,''); end; var DCounter: integer; DString: String; DByte: byte; DB: Boolean; procedure AddCharToDMess(C: Char); var S: String; begin With Form1. DecodedMsg do begin S: =Text; Clear; Text: =S+C; end; end; procedure Decode(BIT: Char); var i,j: integer; c: char; begin if DB then begin if DCounter=0 then DCounter: =7 else dec(DCounter); DByte: =((DByte shl 1) or (byte(bit) and 1)); if DCounter=0 then begin AddSymbol(DecodeTree,chr(DByte)); CheckWiegth(DecodeTree); Enumerate(DecodeTree); Huffman(DecodeTree); Vitter(DecodeTree); DrawTree(Form1. Panel2,DecodeTree,Form1. Panel2. ClientWidth,500); MakeDeCodeTable(DecodeTree); AddCharToDMess(chr(DByte)); DString: =''; DB: =false; end; end else if DecodeTree=nil then begin DB: =true; Decode(BIT); end else begin DString: =DString + Bit; for c: =#0 to #255 do begin if DecodeTable [c] =DString then begin if c=#0 then begin DB: =true; DCounter: =0; end else begin AddSymbol(DecodeTree,c); CheckWiegth(DecodeTree); Enumerate(DecodeTree); Huffman(DecodeTree); Vitter(DecodeTree); DrawTree(Form1. Panel2,DecodeTree,Form1. Panel2. ClientWidth,500); MakeDeCodeTable(DecodeTree); DString: =''; AddCharToDMess(c); DB: =false; break; end; end; end; end; end; procedure MakeCodeTable(Top: PTree); procedure CT(P: PTree; code: string); begin if P<>nil then begin if (P. Wiegth>=0) and (P. IsLeaf) then begin codetable [P. Symbol] : =code; end; if not P. IsLeaf then begin CT(P. Left,code+'0'); CT(P. Right,code+'1'); end; end; end; begin CT(Top,''); end; procedure ShowCT; var C: Char; begin Form1. CodeTableMemo. Clear; For c: =#0 to #255 do begin if CodeTable [c] <>'' then begin Form1. CodeTableMemo. Lines. Append(c+' - '+CodeTable [c]); end; end; end; procedure AddCharToMess(C: Char); var S: String; begin With Form1. MessageMemo do begin S: =Text; Clear; Text: =S+C; end; end; procedure AddCoded(c: char); var s: string; begin S: =Form1. CodedMsg. Lines. Text; Form1. CodedMsg. Clear; Form1. CodedMsg. Lines. Text: =S+' '+CodeTable [c]; end; procedure AddASC(c: char); var i: integer; s: string; b: byte; begin s: =''; b: =byte(c); for i: =1 to 8 do begin s: =chr((b and 1) +$30) +s; b: =(b shr 1); end; S: =Form1. CodedMsg. Lines. Text+' '+s; Form1. CodedMsg. Clear; Form1. CodedMsg. Lines. Text: =S; end; procedure TForm1. InCharKeyPress(Sender: TObject; var Key: Char); var B: Boolean; begin B: =AddSymbol(Tree,Key); CheckWiegth(Tree); Enumerate(Tree); Huffman(Tree); DrawTree(Panel1,Tree,Panel1. ClientWidth,500); Application. MessageBox('stop','stop',MB_OK); Vitter(Tree); DrawTree(Panel1,Tree,Panel1. ClientWidth,500); if B then begin AddCoded(#0); AddASC(key); end else begin AddCoded(key); end; MakeCodeTable(Tree); AddCharToMess(Key); ShowCT; InChar. Clear; end; procedure TForm1. Button1Click(Sender: TObject); var s: string; c: char; begin s: =CodedMsg. Text; if(s<>'') then begin while s [1] =' ' do Delete(s,1,1); while ((s<>'') and (s [1] <>' ')) do begin Decode(s [1]); Delete(s,1,1); end; CodedMsg. Clear; CodedMsg. Text: =s; end; end; procedure TForm1. FormResize(Sender: TObject); begin Panel1. Top: =20; Panel1. Height: =(ClientHeight div 2) - 20; Label2. Top: =(ClientHeight div 2); Panel2. top: =(ClientHeight div 2) +20; Panel2. Height: =(ClientHeight div 2) - 20; end; procedure TForm1. FormPaint(Sender: TObject); begin DrawTree(Panel1,Tree,Panel1. ClientWidth,500); DrawTree(Panel2,DecodeTree,Panel2. ClientWidth,500); end; procedure TForm1. Button2Click(Sender: TObject); var s: string; c: char; begin s: =CodedMsg. Text; if(s<>'') then begin while s [1] =' ' do Delete(s,1,1); if ((s<>'') and (s [1] <>' ')) then begin Decode(s [1]); Delete(s,1,1); end; CodedMsg. Clear; CodedMsg. Text: =s; end; end; end. unit Core; {$B-} interface uses Graphics; type PTree = ^TTree; TTree = record Left,Right,Up: PTree; Symbol: char; Wiegth: integer; Number: integer; IsLeaf: boolean; end; function NewNode(l,r,u: PTree; s: char; c,n: integer; i: boolean): PTree; procedure DeleteTree(var P: PTree); function AddNewSymbolToTree(var Top: PTree; c: char): boolean; function AddSymbolToTree(var Top: PTree; c: char): boolean; function AddSymbol(var Top: PTree; c: char): boolean; function MaxLevel(Top: PTree): integer; procedure NodesOnLevel(Top: PTree; var qol: integer; l,level: integer); function GetNodeFromLevel(P: Ptree; level,number: integer; var l,n: integer): PTree; procedure Enumerate(P: PTree); function CheckWiegth(P: PTree): integer; function GetNodeByNumber(P: PTree; number: integer): PTree; function GetLeafByWiegthMax(P: PTree; wiegth: integer): PTree; procedure Vitter(P: PTree); procedure Huffman(P: PTree); implementation Uses Math,SysUtils; {$B-} function CheckWiegth(P: PTree): integer; begin Result: =0; if P<>nil then begin if not P. Isleaf then begin Result: =CheckWiegth(P. left) +CheckWiegth(P. right); P. Wiegth: =Result; end else Result: =P. Wiegth; end else Result: =0; end; procedure Huffman(P: PTree); var i,j,k: integer; t,tt: PTree; tmp: TTree; begin k: =1; t: =GetNodeByNumber(P,k); while t<>nil do begin tt: =GetNodeByNumber(P,k+1); if tt<>nil then begin if tt. Wiegth<t. Wiegth then begin move(tt^,tmp,sizeof(tmp)); move(t^,tt^,sizeof(tmp)); move(tmp,t^,sizeof(tmp)); CheckWiegth(P); Enumerate(P); k: =1; end; end; inc(k); T: =GetNodeByNumber(P,k); end; end; procedure Vitter(P: PTree); var i,j,k,l: integer; t,tt,ttt: PTree; tmp: TTree; begin k: =1; t: =GetNodeByNumber(P,1); while t<>nil do begin if not T. IsLeaf then begin tt: =GetLeafByWiegthMax(P,t. wiegth); if(tt<>nil) then begin if(tt. Number>T. Number) then begin move(tt^,tmp,sizeof(tmp)); move(t^,tt^,sizeof(tmp)); move(tmp,t^,sizeof(tmp)); CheckWiegth(P); Enumerate(P); k: =1; end; end; end; inc(k); T: =GetNodeByNumber(P,k); end; end; function GetLeafByWiegthMax(P: PTree; wiegth: integer): PTree; var i: integer; Node: PTree; begin Result: =nil; i: =1; Node: =GetNodeByNumber(P, i); while Node<>nil do begin if Node. Wiegth > wiegth then exit; // ??????? if Node. IsLeaf and (Node. Wiegth=wiegth) then begin Result: =Node; end; inc(i); Node: =GetNodeByNumber(P, i); end; end; function GetNodeByNumber(P: PTree; number: integer): PTree; begin if(P<>nil) then begin if P. Number=number then result: =P else begin Result: =GetNodeByNumber(P. Left,number); if Result=nil then Result: =GetNodeByNumber(P. Right,number); end; end else Result: =nil; end; procedure Enumerate(P: PTree); var i,j,k,l,n,o,s: integer; T: PTree; begin n: =0; k: =MaxLevel(P); for i: =k downto 1 do begin o: =1; s: =1; l: =1; T: =GetNodeFromLevel(P, i,l,o,s); while T<>nil do begin inc(n); T. Number: =n; inc(l); o: =1; s: =1; T: =GetNodeFromLevel(P, i,l,o,s); end; end; end; function GetNodeFromLevel(P: PTREE; level,number: integer; var l,n: integer): PTree; var T: PTRee; begin result: =nil; if(P<>nil) then begin if(l<level) then begin inc(l); T: =GetNodeFromLevel(P. Left,level,number,l,n); dec(l); if(T=nil) then begin inc(l); Result: =GetNodeFromLevel(P. Right,level,number,l,n); dec(l); end else Result: =T; end else begin if(l=level) then begin if(n=number) then result: =P else begin result: =nil; end; inc(n); end else result: =nil; end; end else result: =nil; end; procedure NodesOnLevel(Top: PTree; var qol: integer; l,level: integer); begin if Top<>nil then begin if level=l then begin inc(qol); end else begin NodesOnLevel(top. Left,qol,l+1,Level); NodesOnLevel(top. Right,qol,l+1,Level); end; end; end; function MaxLevel(Top: PTree): integer; begin if(Top=nil) then begin Result: =0; end else begin Result: =Max(MaxLevel(Top. Left),MaxLevel(Top. Right)) +1; end; end; function AddSymbol(var Top: PTree; c: char): boolean; begin if(not AddSymbolToTree(Top,c)) then if(not AddNewSymbolToTree(Top,c)) then result: =false // Error else result: =true // Added else result: =false; // Updated end; function AddSymbolToTree(var Top: PTree; c: char): boolean; begin if Top=nil then Result: =False else begin if Top. IsLeaf then begin if Top. Symbol=c then begin inc(Top. Wiegth); result: =true; end else begin result: =false; end; end else begin if AddSymbolToTree(Top. left,c) or AddSymbolToTree(Top. right,c) then begin inc(Top. Wiegth); result: =true; end else result: =false; end; end; end; function AddNewSymbolToTree(var Top: PTree; c: char): boolean; begin if Top=nil then begin Top: =NewNode(nil,nil,nil,#0,1,0,false); Top. left: =NewNode(nil,nil,Top,#0,0,0,true); Top. Right: =NewNode(nil,nil,Top,c,1,0,true); result: =true; end else begin if (Top. Wiegth=0) and (top. Symbol=#0) then begin Top. Left: =NewNode(nil,nil,Top,#0,0,0,true); Top. Right: =NewNode(nil,nil,Top,c,1,0,true); Top. IsLeaf: =false; Top. Wiegth: =1; Result: =true; end else begin if (Top. Left<>nil) and AddNewSymbolToTree(Top. Left,c) then begin result: =true; exit; end; if (Top. Right<>nil) and AddNewSymbolToTree(Top. Right,c) then begin result: =true; exit; end; result: =false; end; end; end; procedure DeleteTree(var P: PTree); begin if P=nil then exit; DeleteTree(P. Left); DeleteTree(P. Right); Dispose(P); P: =nil; end; function NewNode(l,r,u: ptree; s: char; c,n: integer; i: boolean): PTree; var P: PTree; begin new(P); P. Left: =l; P. Right: =r; P. Up: =u; P. Symbol: =s; P. Wiegth: =c; P. Number: =n; P. IsLeaf: =i; result: =P; end; end.
|