Структуры, построение дерева из однонаправленного списка Опции

[Тёмный Эльф]

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

[Тёмный Эльф]

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

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; {создание дерева по данным линейного списка}

Сообщение отредактировано: Тёмный Эльф - 17.01.2007 3:54