VPF::Помогите найти ошибку в создании дерева

Loginanton

Дата 28.1.2009, 14:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 114
Регистрация: 8.11.2007

Репутация: нет
Всего: нет

Вот код программы:

Код

program eee;
type
    aaa = ^bbb;
    bbb = record
        d : integer;
        l : aaa;
        r : aaa;
        end; { record }
{ читаем данные из файла в дерево }
procedure P1(var a , root : aaa);
var
    f : text;
    b : aaa;
begin
    assign(f, 'in.txt');
    reset(f);
    new(a);
    root := a;
    readln(f, a^.d);
    a^.l := nil;
    a^.r := nil;
    while not eof(f) do begin
        new(b);
        readln(f, b^.d);
        b^.l := nil;
        b^.r := nil;
        a := root;
        while a <> nil do
        if b^.d < a^.d then
        a := a^.l
        else
        a := a^.r;
        a := b;
        end; { while }
    close(f);
    end; { procedure }
procedure P2(var a : aaa);
{ выводим на экран }
begin
    if a = nil then exit;
    P2(a^.l);
    writeln(a^.d);
    P2(a^.r);
    end; { procedure }
{ код головной части проги }
var
    a , root : aaa;
begin
    P1(a, root);
    P2(a);
    readln;
    end. { program }

Ошибка в процедуре P1, помогите пожалуйста найти.
В файле in.txt числа: 41 7 9 8 60 2 3 55 12 1

Это сообщение отредактировал(а) Loginanton - 28.1.2009, 14:12

volvo877

Дата 28.1.2009, 20:22 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Вообще-то:

Код

procedure P1(var root : aaa);

  procedure insert(var r: aaa; X: integer);
  begin
    if r = nil then begin
      new(r);
      r^.d := X;
      r^.l := nil; r^.r := nil;
    end
    else if r^.d < X then insert(r^.r, X)
         else if r^.d > X then insert(r^.l, X);
  end;

var
    f : text;
    i: integer;
begin
    assign(f, 'in.txt'); reset(f);
    root := nil;
    while not eof(f) do begin
      read(f, i);
      insert(root, i);
    end;
    close(f);
end; { procedure }

решает твою задачу... Или тебе надо итеративно?

Loginanton

Дата 31.1.2009, 13:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 114
Регистрация: 8.11.2007

Репутация: нет
Всего: нет

Итеративное решение у меня уже есть, спасибо за рекурсивное smile

СЭНСЭЙ

Дата 7.2.2009, 10:49 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 432
Регистрация: 20.3.2006

Репутация: нет
Всего: нет

А подскажите - в чем постановка задачи?

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »