Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Структуры

Автор: Тёмный Эльф 17.01.2007 7:38

Всем доброй ночи.
Помогите пожалуйста разобраться. Я решил написать программу, которая создает однонаправленный список по данным входного файла, затем строит дерево из этого списка и выводит это дерево по правилу левое-корень-правое в выходной файл.
Текст программы ниже. Вроде бы процедуры создания списка и вывода дерева рабочие. Но программа выводит совсем не то. Может быть, само формирование дерева из списка неверно? Или я неправильно обратился к процедуре при вызове из головной программы InsTree(p^.el,kd); ?


program der;
Type
TreeLink=^Tree;
Tree=Record
Data:integer;
Left,Right:TreeLink;
End;

next=^elem;
Elem=RECORD
EL:integer;
Sled: next;
END;
VAR
Uk1,p:next; kd: TreeLink;
variant_obhoda:Integer;

Procedure VVOD(var p:next);
var
m:next;
F1:text;
BEGIN
Assign(F1,'dan.inp');
Reset(f1);
Assign(output,'res.out');
rewrite(output);
New(m);
p:=m;
Readln(f1,m^.el);
m^.sled:=nil;
while not EOF(f1) do
begin
New(m^.sled);
m:=m^.sled;
Readln(f1,m^.el);
m^.sled:=NIL;
End;
Close(f1);
m:=p;
While m<>NIL do
Begin
Writeln(m^.el);
m:=m^.sled;
End;
end; {формирование и вывод линейного списка}

Procedure InsTree(znak:integer; var t:treeLink);
var n:treeLink; p:next;
Begin
if t=nil then
begin
new(t);
with t^ do
begin
Left:=nil;
Right:=nil;
Data:=p^.el;
end;
end
else
if p^.el<=t^.data
then
InsTree(p^.el,t^.left)
else
InsTree(p^.el,t^.right);
end; {создание дерева по данным линейного списка}

Procedure PrintTree(t: TreeLink);
Begin
if t<>Nil
then
begin
PrintTree(t^.Left);
Writeln(t^.Data);
PrintTree(t^.Right);
end;
End; {левое-корень-правое}

BEGIN
VVOD(Uk1);
kd:=nil;
p:=uk1;
While p<>nil do
begin
InsTree(p^.el,kd);
p:=p^.sled;
end;
writeln('.....Получившиеся дерево........');
PrintTree(kd);
end.


Автор: Тёмный Эльф 17.01.2007 7:52

Я немного ошибся, вот исправленная процедура.
Теперь программа работает как надо. То есть, строит однонаправленный линейный список по данным входного файла, затем строит дерево из этого списка, сортирует (обход дерева по принципу левое-корень-правое) и выводит в выходной файл.


Procedure InsTree(var znak:integer; var t:treeLink);
var n:treeLink;
Begin
if t=nil then
begin
new(t);
with t^ do
begin
Left:=nil;
Right:=nil;
Data:=znak;
end;
end
else
if znak<=t^.data
then
InsTree(znak,t^.left)
else
InsTree(znak,t^.right);
end; {создание дерева по данным линейного списка}