Нельзя преобразовать тип ^TElem к integer

@ololo111 · Регистрация: 13.04.2012

Студворк — интернет-сервис помощи студентам

пытаюсь по этому:

Кликните здесь для просмотра всего текста

Pascal
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
28
29
uses crt;
type
PNode=^Node;  {Указатель на узел}
 Node=record  {Тип запись в котором будет храниться информация}
   data:integer;
   left,right:PNode; {Ссылки на левого и правого сыновей}
end;
 
var
  Tree,p1:PNode; {Tree адрес корня дерева, p1-вспомогательная переменная}
  n,x,i:integer;
  ch:char; {для работы менюшки}
 
{Процедура добавления элемента }
procedure AddToTree (var Tree:PNode;x:integer); {Входные параметры - адрес корня дерева и добавл элемент }
begin
 if Tree=nil then  {Если дерево пустое то создаём его корень}
   begin
     New(Tree);   {Выделяем память }
     Tree^.data:=x;     {Добавляем данные }
     Tree^.left:=nil;     {Зануляем указатели на левого }
     Tree^.right:=nil;  {и правого сыновей }
      exit;
   end;
 if x < Tree^.data then   {Доб к левому или правому поддереву это завсит от вводимого элемента}
     AddToTree(Tree^.left,x)  {если меньше корня то в левое поддерево }
  else
    AddToTree(Tree^.right,x);  {если больше то в правое}
end;

примеру разобраться в деревьях, и сделать что-то подобное но с двойной структурой, чтоб в одну дату 2 информации помещались,, так вот, как мне объявить дату, чтобы в строке 46 if Age < T^.Data then и тому подобных, он не писал Нельзя преобразовать тип ^TElem к integer...

Pascal
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Uses Crt;
type
  TPElem = ^TElem;
  TElem = record
  Left,Right,Data: TPElem;
    Name : string;
    Age : integer;
    TNext : TPElem;
  end; 
var
  PList, T, Tree : TPElem;
  i:integer;
  begin
    while true do
    begin
        writeLn('Выберите действие');
        writeLn('1 - Добавление');
        writeLn('6 - Exit');
     i := Ord(readKey) - ord('0');
     case i of
  1:
  begin 
    var k:integer;
    var Age:integer;
    Write('Задайте количество сотрудников: ');
    Readln(k);
    for i := 1 to k do
    begin
      if Tree = nil then
      begin
        New(T);
        Tree := T;
      end
      else
      begin
        New(T^.TNext);
        T := T^.TNext;
      end;
      T^.TNext := nil;
      Write('Введите имя: ');
      Readln(T^.Data^.Name);
       Write('Введите возраст: ');
       Readln(Age);
       T^.Data^.Left:=nil;  
       T^.Data^.Right:=nil; 
      if Age < T^.Data then
     T^.Data^.Left:=Age
      else
     T^.Data^.Right:=Age;
    end; 
    end;
   6:
   exit
end;  
end;
end.

@ololo111 · 02.04.2019, 17:40 **[ТС]**

что-то через отладчик смотрю, так он вообще в T^.Name := N; и T^.Age:=A; ничего не заносит, даже не создаёт их, просто команду проходит и всё.... вот на 2м скриншоте, это после повторного ввода, он после строки else AddToTree(T^.Right, A), вместо того чтобы идти на выход, идёт на верх к if Tree = nil then begin и заново повторяет цикл, и так до ошибки... а при вводе 1го элемента (ну имя и возраста), он нормально вводит и выходит... я уже и Exit там везде прописывать пробовал, ничего не меняется.

@ololo111 · 02.04.2019, 18:02 **[ТС]**

мне не понятно почему в такой версии программы, он перезаписывает T^.Name := N; с добавленным именем, в следующей строке AddToTree(T^.Left, A); возрастом, я ведь A добавляю в ветку T^.Left,, а не в T^.Name... что-за ерунда, вообще не понимаю.

@ololo111 · 02.04.2019, 18:03 **[ТС]**

ребят помогите, а то уже неделю вожусь с этой программой, а результата 0

@ololo111 · 03.04.2019, 22:26 **[ТС]**

а есть примеры с деверьями где в ветку не 1 элемент вводится, а 2?

Новые блоги и статьи Все статьи Все блоги /
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.
Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .

@ololo111 166 / 52 / 36 Регистрация: 13.04.2012 Сообщений: 620
	02.04.2019, 17:40 [ТС]
	что-то через отладчик смотрю, так он вообще в T^.Name := N; и T^.Age:=A; ничего не заносит, даже не создаёт их, просто команду проходит и всё.... вот на 2м скриншоте, это после повторного ввода, он после строки else AddToTree(T^.Right, A), вместо того чтобы идти на выход, идёт на верх к if Tree = nil then begin и заново повторяет цикл, и так до ошибки... а при вводе 1го элемента (ну имя и возраста), он нормально вводит и выходит... я уже и Exit там везде прописывать пробовал, ничего не меняется. Миниатюры 0

@ololo111 166 / 52 / 36 Регистрация: 13.04.2012 Сообщений: 620
	02.04.2019, 18:02 [ТС]
	мне не понятно почему в такой версии программы, он перезаписывает T^.Name := N; с добавленным именем, в следующей строке AddToTree(T^.Left, A); возрастом, я ведь A добавляю в ветку T^.Left,, а не в T^.Name... что-за ерунда, вообще не понимаю. Миниатюры 0

@ololo111 166 / 52 / 36 Регистрация: 13.04.2012 Сообщений: 620
	02.04.2019, 18:03 [ТС]
	ребят помогите, а то уже неделю вожусь с этой программой, а результата 0 0

@ololo111 166 / 52 / 36 Регистрация: 13.04.2012 Сообщений: 620
	03.04.2019, 22:26 [ТС]
	а есть примеры с деверьями где в ветку не 1 элемент вводится, а 2? 0