ПОмогите с задачей на паскале!! очень прошу!

[alexBlack]

Astor, сразу не сообразил. При таком заполнении дерева можно проще сделать. Опять на Delphi, но функций нет.

Неплохо бы приводить код ошибки и место, где она возникает.

type
   TreeLink = ^Tree;
   Tree = record
      Data: string;
      Left, Right: TreeLink;
   end;

procedure InsTree(var t:TreeLink; Num, NumNode : integer; S:String);
var PNum, LNum, k : integer;
begin
   if t = nil then begin
      new(t);
      with t^ do begin
         Left  := nil;
         Right := nil;
         Data  := S;
      end;
   end else begin
      { По текущему номеру узла можно определить номер
        узлов, которые справа и слева от него }
      k := 1; PNum := NumNode;
      While PNum > k do begin
         PNum := PNum - k;
         k := k * 2;
      end;
      { PNum - номер узла внутри уровня от 1 }
      { LNum - номер левого узла от текущего }
      LNum := (PNum-1)*2 + NumNode - PNum + 1 + k;
      if (LNum = Num) or (t^.Left <> nil)
      then InsTree(t^.left , Num, LNum, S);

      if (LNum+1 = Num) or (t^.Right <> nil)
      then InsTree(t^.Right, Num, LNum+1, S)
   end;
end;

Procedure PrintTree(var S:String; t:TreeLink);
begin
   if t <> nil then begin
      PrintTree(S, t^.left);
      PrintTree(S, t^.right);
      S := S + t^.data + ',';
   end;
end;

var txtfile : text;
    S, S1 : String;
    kd: TreeLink;
    N, i:integer;
begin
   kd := nil;
   Assign(txtfile, 'in.txt');
   Reset(txtfile);
   s := '';
   while not eof(txtfile) do begin
      Readln(txtfile, S1);
      if S1[length(s1)] <> ',' then s1 := s1 + ',';
      s := s + s1;
   end;
   Close(txtfile);

   N := 1; // Номер узла
   for i := 1 to length(s) do begin
      while (Pos(',', s) > 0) do begin
         S1  := copy(s, 1, Pos(',', S) - 1);
         delete(s, 1, Pos(',', S));
         insTree(kd, N, 1, S1);
         inc(N);
      end;
   end;

   s := '';
   PrintTree(s, kd);

   Assign(txtfile, 'out.txt');
   Rewrite(txtfile);
   writeln(txtfile, s);
   Close(txtfile);

   readln;
end.

[Astor]

РЕБЯТА, БОЛЬШОЕ ВАМ СПАСИБО! ВСЕ РАБОТАЕТ ПРАВИЛЬНО! БЛАГОДАРЕН ВАМ ЗА ПОМОЩЬ! но еще одна просьба - мне уже просто стыдно просить, заливаюсь краской, не поможете с комментариями к коду? просто надо разобраться и понять(без этого никак), я вам надоел уже наверно, простите меня такого

[Astor]

alexBlack, уже все норм! разобрался я! спасиб еще раз

[alexBlack]

В посте #16 добавил комментарии

[Astor]

СПАСИБО! Буду разбираться и понимать! Благодарю за помощь

[Astor]

Здравствуйте снова, сегодня показал преподавателю программу! он принял - но я объяснил все очень поверхостно! сочинял на ходу! можете сделать комментарии очень подробные, для чего нужна каждая строчка? а то я не очень могу разобраться! объясните пожалуста даже для чего например надо вот это

Type
  TreeLink = ^Tree;
  Tree = Record
       Number: Integer;
       Data : String;
       Left, Right : TreeLink;
  End;

что означает каждая переменная! я знаю что прошу от вас многого но будьте ко мне добры! зарание СПАСИБО

[Astor]

ТО есть объясните мне все! как все происходит! спасибо

[Serge_Bliznykov]

да.. отсюда однозначно следует вывод, что программа, которую Вы привели - написана не Вами.. ;-(
Type - ключевое слово Паскаль - начали описание своих типов
TreeLink = ^Tree; - тип TreeLink является ссылкой (указателем) на тип Tree
Tree = Record - тип Tree - это запись (структура), состоящая из:
Number: Integer; - Number - переменная целочисленного типа
Data : String; - строка
Left, Right : TreeLink; - и два указателя на тип Tree Left - на левую ветку, Right - на правую ветку
End; - описание типа Tree закончено

в указатель (он же pointer, он же ссылка) помещается адрес другой переменной. в нашем случае адрес переменной типа Tree

понятненько?..

вот, случайно поиск нажал - в яндексе- "Вершина в двоичном дереве имеет значение и два указателя, left и right, которые показывают на его дочерние вершины......"

[Astor]

Дак я же говорил что ту программу писал не я! Мне помогали! Но обхода дерева не было! Спасибо за эти комменты, но можно всю программу прокомментировать?? Очень прошу

[Serge_Bliznykov]

но можно всю программу прокомментировать

наверное, можно.. но я бы не взялся... ;-)
Попробуйте сделать это сами - будут вопросы по конкретным строчкам/операторам - милости прошу...
А так - до безумия можно дойти ;-((
if t <> nil then begin - если переменная t не равняется NIL (пустому указателю), тогда... оно Вам надо? неужели непонятно, что делает, например, такая строчка:
s := '';
или такая:
Close(txtfile); ???