Обход в бинарном дереве

@Dreiser · Регистрация: 14.10.2012

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

Здравствуйте!
Есть задача создать свое генеалогическое дерево. К счастью, у нас в методичке указаны все процедуры и функции для него, но я напоролся на такую проблему, что программа вылетает при любом из трех видов обходов (Префиксным, Инфиксным или Суффиксным). Причем вылетает именно на строке вывода содержимого на экран.
Помогите, пожалуйста, разобраться, где ошибка!

Delphi

program Project1;
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
 tree=^node;
 node=record
    info:String;
    lint,rint: tree;
    end; 
 
function NewD (info: string): Tree; //создание нового узла
var P: tree;
begin
  New(p);
  P^.info := info;
  P^.lint := NIL;
  P^.rint := NIL;
  NewD := P;
end;
 
procedure SetLeft (P: tree; x: string); // левый "сын"
begin
  p^.lint := NewD(x);
end;
 
procedure SetRight (P: tree; x: string); // правый "сын"
begin
  p^.rint:= NewD(x);
end;
 
procedure PrefixObhod (P: tree);
begin
  if (P<>NIL) then
  begin
    writeln(P^.info);
    prefixobhod(P^.lint);
    prefixobhod(P^.rint);
  end;
end;
Procedure Title;
begin
  writeln('MY FAMILY TREE'); writeln;
end;
 
var name: string; P: tree; i,j: integer;
 
begin
  Title; i:=0; j:=0;
  write('Enter your name, it would be node: ');
  readln(Name);
  NewD(Name);
 
  repeat
  repeat
  write('Enter your mother: ');
  readln(Name);
  SetLeft(P, name);
 
  write('Enter her mother: ');
  readln(Name);
  SetLeft(P, name);
  j:=j+1;
  until j=1;
  write('Enter her father: ');
  readln(Name);
  SetRight(P, name);
  i:=i+1;
  until i=1;
 
  i:=0; j:=0;
  repeat
  repeat
  write('Enter your father: ');
  readln(Name);
  SetLeft(P, name);
 
  write('Enter his mother: ');
  readln(Name);
  SetLeft(P, name);
  j:=j+1;
  until j=1;
  write('Enter his father: ');
  readln(Name);
  SetRight(P, name);
  i:=i+1;
  until i=1;
 
  PrefixObhod (P);
  readln;
end.

@volvo · 22.12.2012, 15:59

Dreiser, ну смотри:

Delphi

  Title; i:=0; j:=0;
  write('Enter your name, it would be node: ');
  readln(Name);
  NewD(Name); // Здесь ты записал значение в P
 
  repeat
  repeat
  write('Enter your mother: ');
  readln(Name);
  SetLeft(P, name); // И его хочешь передавать в SetLeft?

Но ведь глобальная P не инициализирована, и компилятор тебя предупредил об этом. В процедуре NewD инициализировалась ЛОКАЛЬНАЯ переменная P, которая ничего общего с глобальной не имеет, и при попытке обратиться внутри SetLeftP к значению p^.rint (при P = nil), закономерно происходит вылет: разыменование нулевого указателя.

Хотя бы

Delphi

1	P := NewD(Name);

нужно сделать...

@Dreiser · 22.12.2012, 16:07 **[ТС]**

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

Dreiser, ну смотри:

Delphi

  Title; i:=0; j:=0;
  write('Enter your name, it would be node: ');
  readln(Name);
  NewD(Name); // Здесь ты записал значение в P
 
  repeat
  repeat
  write('Enter your mother: ');
  readln(Name);
  SetLeft(P, name); // И его хочешь передавать в SetLeft?

Но ведь глобальная P не инициализирована, и компилятор тебя предупредил об этом. В процедуре NewD инициализировалась ЛОКАЛЬНАЯ переменная P, которая ничего общего с глобальной не имеет, и при попытке обратиться внутри SetLeftP к значению p^.rint (при P = nil), закономерно происходит вылет: разыменование нулевого указателя.

Хотя бы

Delphi

1	P := NewD(Name);

нужно сделать...

О, спасибо!) хотя бы что-то выводит) правда совсем неправильно)
Показывает только меня и последних двух введенных людей... А вот если я ввел, допустим, своего отца, он же становится новым узлом, а новая запись уже пойдет от него. Как можно вернуться обратно ко "мне", чтобы ввести мать и она была на одном уровне с отцом?

@volvo · 22.12.2012, 16:46

Dreiser, дерево заполняется вот так:

Delphi

function CreateTree(s : string) : tree;
var
   name : string;
   p : tree;
begin
   write(s + ': '); 
   readln(name); // Если хочешь завершить ветвь - вводи пустую строку...
   if name <> '' then
   begin
      new(p);
      p^.info := name;
      p^.lint := CreateTree(name + '''s mother');
      p^.rint := CreateTree(name + '''s father');
   end
   else p := nil;
 
   result := p;
end;
 
// тут реализации PrefixObhod и Title
 
var 
  P: tree;
 
begin
  Title;
  p := CreateTree('Enter your name');
 
  PrefixObhod (P); // Поправь только эту процедуру, чтобы она отображала отступы хотя бы
  readln;
end.

, и не забывай удалять дерево по окончании работы...

@Dreiser · 22.12.2012, 17:01 **[ТС]**

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

Dreiser, дерево заполняется вот так:

Delphi

function CreateTree(s : string) : tree;
var
   name : string;
   p : tree;
begin
   write(s + ': '); 
   readln(name); // Если хочешь завершить ветвь - вводи пустую строку...
   if name <> '' then
   begin
      new(p);
      p^.info := name;
      p^.lint := CreateTree(name + '''s mother');
      p^.rint := CreateTree(name + '''s father');
   end
   else p := nil;
 
   result := p;
end;
 
// тут реализации PrefixObhod и Title
 
var 
  P: tree;
 
begin
  Title;
  p := CreateTree('Enter your name');
 
  PrefixObhod (P); // Поправь только эту процедуру, чтобы она отображала отступы хотя бы
  readln;
end.

, и не забывай удалять дерево по окончании работы...

Каково отличие между программистом и волшебником? Программист не носит колпака со звездочками!

Спасибо, попробую теперь сделать вывод похожий на дерево и вставить остальные функции. Спасибо Вам!

	22.12.2012, 17:01