[Julia93]

Здравствуйте,
Подскажите, пожалуйста, можно ли создать односвязный список элементами которого являются бинарные деревья? (на Паскале)

[Bargest]

Подсказываю: Можно.

P.S. Какая списку разница, какие у него элементы? Ставишь элементом указатель на вершину дерева, и вот список деревьев готов.

[Julia93]

я описала такой тип:

Код:

1 2 3 4 5 6 7 8 9

type ukoz=^elem;      uk=^bt;      bt=record            inf:integer;            l,r:uk;         end;      elem=record info:uk;                  next:ukoz;           end;

я создала первый элемент в списке. Он записался, а со второго начинается ошибка:

Код:

1 2 3 4

procedure add_sort(var beg:ukoz;x:integer); var p,q:ukoz; begin new(p);       <b>p^.info^.l:=nil;p^.info^.r:=nil;</b>  -вот с этого места          p^.next:=nil;

Сам фрагмент программы:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

procedure sozd; var x:integer; begin beg:=nil;read(x);        while x<>0 do                     begin add_sort(beg,x);                           read(x);                     end; end; procedure add_sort(var beg:ukoz;x:integer); var p,q:ukoz; begin new(p);       p^.info^.l:=nil;p^.info^.r:=nil;       p^.next:=nil;       p^.info^.inf:=x;       if beg=nil then beg:=p else          if beg^.info^.inf>x then             begin p^.next:=beg;                   beg:=p;             end          else              begin q:=beg;                    while (q^.next<>nil) and(x>q^.next^.info^.inf)do                    q:=q^.next;                    p^.next:=q^.next;                    q^.next:=p;              end; end;

lmikle: пользуемся тегами!!!

Подскажите в чем проблема? и как от нее избавиться

[AlexSku]

Откуда в процедуре sozd появляется переменная beg? Она что, глобальная?