Дерево

[Utkin]

1) Нельзя после, так ошибка при выделении памяти под типизированный указатель (размер динамического массива внутри не опеределен)

Убейте указатели. Объявите динамический массив рекордов и будет Вам счастье.

2) Ну про SetLength я знаю , вот только где мне выделять память под массив? в отдельной функции? и как мне передать указатель в record. Это ведь не экземпляр класса и я не могу вызвать конструктор при выделении памяти под узел.

Вы раб указателей. Современные языки программирования и методики проектирования уходят от прямого манипулирования памятью. Это удел системных программистов. Начните сначала с учетом новой вводной - полностью исключить использование указателей как в модели дерева так и в реализации. Никаких ^ в коде.

Это ведь не экземпляр класса и я не могу вызвать конструктор при выделении памяти под узел.

Можете. Вы же знаете когда возникнет операция добавления узла. Тогда и вызываете свой SetLength. Такой вот ручной конструктор. Да и для динамических узлов ошибка возникать не будет. Но это не означает, что в массив не нужно будет распределять элементов. Вы просто отложите выделение памяти до другого момента.

Я конечно могу описать узел как объект а не запись но это уже не совсем то что требуется в задании.

Проблема в указателях, а не в записях.
И не попадитесь на удочку Паскаля. Есть динамические массивы, а есть открытые массивы. В последних размер изначально неизвестен, но как только Вы начнете с ним работать размер изменить не сможете. То есть как только передадите из функции/процедуры начнутся проблемы. Всегда объявляйте именно динамические массивы.

[Dvach]

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

Убейте указатели. Объявите динамический массив рекордов и будет Вам счастье.

Я бы рад но я не для себя дерево делаю , это лабораторная работа со строгой формулировкой задания и там нужно реализовать дерево с помощью ненавистных указателей. Прочитайте, пожалуйста, задание если вы этого еще не сделали.

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

Можете. Вы же знаете когда возникнет операция добавления узла. Тогда и вызываете свой SetLength. Такой вот ручной конструктор.

Смотрите, два возможных варианта:

New(current);
SetLenght(current^.child, 5);

ошибка

SetLenght(current^.child, 5);
New(current);

(это вообще глупость, понимаю)
естественно тоже ошибка и не важно в какую процедуру я это запихну. Возможно я сильно туплю, не могли бы вы показать код примерной реализации?
Узел добавляеться при выделении на него памяти, но в процедуру New нельзя запихнуть еще что то кроме указателя, не понятно как реализовать этот ручной конструктор.

[Utkin]

Вы получаете указатель на рекорд, а пытаетесь изменить размер массива. Попробуйте получить указатель на массив (нет делфи под рукой чтобы проверить).

[Dvach]

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

Вы получаете указатель на рекорд, а пытаетесь изменить размер массива. Попробуйте получить указатель на массив (нет делфи под рукой чтобы проверить).

Вы предлагаете получить указатель на массив не используя указатель на рекорд? но как это сделать если массив принадлежит рекорду.

[Stilet]

с помощью ненавистных указателей. Прочитайте, пожалуйста, задание если вы этого еще не сделали.

Тогда я тебя разочарую. Array of <чето> к указателям относится как Йежик к Бабе Яге. Оба млекопитающиеся, но не более.
А можешь полностью текст задания выложить. Какая-то нисрастуха получается.

[Dvach]

Смысл думаю понятен. Массив относиться к конкретному рекорду. И у каждого нового он должен быть свой ( со своим набором указателей на наследников)
Задание уже кидал, вот:
Каждая вершина содержит следующие поля:
- поле данных;
- поле, в котором указано число координирующих вспомагательных полей;
- вспомагательное поле, содержащее указатель на вершину более высокого уровня (предыдущую вершину). Для корневой вершины в него заносится значение NIL;
- вспомагательные поля, содержащие указатели на вершины нижнего уровня (у листьев - отсутствуют).
Если с текущей вершиной не связаны вершины нижнего уровня, то соответствующие вспомагательные поля отсутствуют
И вот схема дерева: http://pixs.ru/showimage/shemapng_2013252_14653489.png
Ссылки на файлообменник разрешены? могу кинуть docx файл.

[Аватар]

Не понял беды. В делфи это работает

var BeginNode: NodePointer;
...
  New(BeginNode);
  SetLength(BeginNode^.child,2);
  for i:=0 to High(BeginNode^.child) do New(BeginNode^.child[i]);

[Dvach]

Сообщение от Аватар

Не понял беды. В делфи это работает

var BeginNode: NodePointer;
...
  New(BeginNode);
  SetLength(BeginNode^.child,2);
  for i:=0 to High(BeginNode^.child) do New(BeginNode^.child[i]);

странно. В АВС паскале и Free Pascal это не работает..
в АВС выдает ошибку на строчке выделения памяти под указатель на рекорд:
"Ошибка времени выполнения: Невозможно упаковать тип "ByProCoder.Node" как неуправляемую структуру; невозможно вычислить размер или смещение, имеющие смысл."
Во Free Pascal вообще ругается на синтаксис в этой строчке child : array of NodePointer;

[Аватар]

Значит там не поддерживается такой вариант выделения памяти

[Stilet]

Ерунда какая-то а не задание... Что-то тут не так.

Во Free Pascal вообще ругается на синтаксис в этой строчке child : array of NodePointer;

И какой текст ошибки?