Помогите пожалуйста разобраться. Я решил написать программу, которая создает однонаправленный список по данным входного файла, затем строит дерево из этого списка и выводит это дерево по правилу левое-корень-правое в выходной файл.
Текст программы ниже. Вроде бы процедуры создания списка и вывода дерева рабочие. Но программа выводит совсем не то. Может быть, само формирование дерева из списка неверно? Или я неправильно обратился к процедуре при вызове из головной программы 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.