Дерево

[Dvach]

Сообщение от Stilet

Ерунда какая-то а не задание... Что-то тут не так.
И какой текст ошибки?

Ошибка 92: предполагается '[' или '('
Попозже попробую в Delphi .

[Stilet]

Ошибка 92: предполагается '[' или '('

Фрипаскаль:

type
  pr=^r;
  r=record
    n:integer;
    a:array of pr;
  end;

var q:pr; i:integer;
begin
 new(q);
 SetLength(q^.a,2);
 for i:=Low(q^.a) to High(q^.a) do new(q^.a[i]);
 for i:=Low(q^.a) to High(q^.a) do dispose(q^.a[i]);
 SetLength(q^.a,0);
 dispose(q);
end;

Нет никаких ошибок. Фриха все это умеет не хуже Делфи.
Просто где-то ты запутался. Пройдись отладкой посмотри на какой строке что там происходит.

[Dvach]

Сообщение от Stilet

Фрипаскаль:

type
  pr=^r;
  r=record
    n:integer;
    a:array of pr;
  end;

var q:pr; i:integer;
begin
 new(q);
 SetLength(q^.a,2);
 for i:=Low(q^.a) to High(q^.a) do new(q^.a[i]);
 for i:=Low(q^.a) to High(q^.a) do dispose(q^.a[i]);
 SetLength(q^.a,0);
 dispose(q);
end;

Нет никаких ошибок. Фриха все это умеет не хуже Делфи.
Просто где-то ты запутался. Пройдись отладкой посмотри на какой строке что там происходит.

В твоем коде ту же ошибку выдает... проверил и свой код пошагово но без особого успеха так как ошибка на первой строчке выполнения программы где я выделяю память New(Root); Походу дело в компиляторе... Хотя это странно как то .

[Stilet]

Lazarus 124 + FreePascal 264.

[Dvach]

Переустановил Free Pascal и все заработало. Всем спасибо