Работа с уровнями в дереве (Pascal)

[PhoenixPC]

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

type tree=^elem;
        elem=record
            info,ur:integer;
            L,R:tree;
        end;

var t:tree; x,i,N:integer;

procedure Create(t:tree; x:integer; l:integer);
  begin if x<t^.info then
          if t^.L<>nil then Create(t^.L, x, l+1)
          else begin 
            new(t^.L);
            t^.L^.info:=x;
            t^.L^.L:=nil;
            t^.L^.R:=nil;
            t^.L^.ur:=l; end
        else if t^.R<>nil then Create(t^.R, x, l+1)
          else begin 
                     new(t^.R);
                     t^.R^.info:=x;
                     t^.R^.L:=nil;
                     t^.R^.R:=nil;
                     t^.R^.ur:=l; end;
  end;

procedure PMax(t:tree; N:integer);
  var max:integer;
  begin
    max:=t^.info;
    if t<>nil then begin
      if t^.ur=N then
        if t^.info>max then max:=t^.info else PMax(t^.R, N+1);
    end;
  writeln('max na urovne N=', max);
  end;

Begin new(t);
  t^.ur:=1;
  i:=1;
  while x<>0 do begin
    read(x);
    if x<>0 then Create(t, x, i);
  end;
  readln(N);
  PMax(t, N);
  readln;
End.

[PhoenixPC]

Никто не знает?

[BDA]

type
  tree = ^elem;

  elem = record
    info, ur: integer;
    L, R: tree;
  end;

var
  k: tree;
  x, N: integer;

procedure add(var t: tree; x: integer; L: integer);
begin
  if t = nil then
  begin
    new(t);
    t^.info := x;
    t^.L := nil;
    t^.R := nil;
    t^.ur := L;
  end
  else if x < t^.info then
    add(t^.L, x, L + 1)
  else
    add(t^.R, x, L + 1);
end;

function max(a, b: integer): integer;
begin
  if a > b then
    max := a
  else
    max := b;
end;

function treemax(t: tree; N: integer): integer;
begin
  result := Low(integer);
  if N < 1 then
    exit;
  if t <> nil then
  begin
    if t^.ur = N then
      result := t^.info
    else
      result := max(treemax(t^.L, N), treemax(t^.R, N));
  end;
end;

procedure printtree(t: tree);
var
  i: integer;
begin
  if t <> nil then
  begin
    writeln(t^.info:t^.ur * 4);
    printtree(t^.L);
    printtree(t^.R);
  end;
end;

procedure deltree(var t: tree);
begin
  if t <> nil then
  begin
    deltree(t^.L);
    deltree(t^.R);
    dispose(t);
    t := nil;
  end;
end;

Begin
  k := nil;
  repeat
    read(x);
    if x <> 0 then
      add(k, x, 1);
  until x = 0;
  printtree(k);
  readln(N);
  writeln(treemax(k, N));
  deltree(k);
  readln;
End.

Проверьте.

[PhoenixPC]

BDA
Спасибо большое! Кое-что исправила - и все заработало!

[BDA]

Пожалуйста.
Может быть напишите исправленный вариант (так сказать, для будущих поколений)? Да и мне тоже интересно, что пришлось изменить - тестировал в дельфи, так как паскаля нет под рукой.

[PhoenixPC]

Конечно. Вот исправленный код: (делала в Турбо Паскале)

type
  tree = ^elem;
  elem = record
    info, ur: integer;
    L, R: tree;
  end;

var
  k: tree;
  x, N: integer;

procedure add(var t: tree; x: integer; L: integer);
begin
  if t = nil then
  begin
    new(t);
    t^.info := x;
    t^.L := nil;
    t^.R := nil;
    t^.ur := L;
  end
  else if x < t^.info then
    add(t^.L, x, L + 1)
  else
    add(t^.R, x, L + 1);
end;

function max(a, b: integer): integer;
begin
  if a >= b then
    max := a
  else
    max := b;
end;

function treemax(t: tree; N: integer): integer;
var result: integer;
begin
  result := -maxint;
  if t <> nil then
  begin
    if t^.ur = N then
      result := t^.info
    else
      result := max(treemax(t^.L, N), treemax(t^.R, N));
  end;
  treemax := result;
end;

procedure printtree(t: tree);
var
  i: integer;
begin
  if t <> nil then
  begin
    writeln(t^.info:t^.ur * 4);
    printtree(t^.L);
    printtree(t^.R);
  end;
end;

procedure deltree(var t: tree);
begin
  if t <> nil then
  begin
    deltree(t^.L);
    deltree(t^.R);
    dispose(t);
    t := nil;
  end;
end;

Begin
  k := nil;
  repeat
    read(x);
    if x <> 0 then
      add(k, x, 1);
  until x = 0;
  printtree(k);
  readln(N);
  writeln(treemax(k, N));
  deltree(k);
  readln;
End.

[BDA]

Попробуйте:

function treemax(t: tree; N: integer): integer;
begin
  treemax := minint;
  if t <> nil then
  begin
    if t^.ur = N then
      treemax := t^.info
    else
      treemax := max(treemax(t^.L, N), treemax(t^.R, N));
  end;
end;