бинарные деревья, не рекурсивная проверка на равенство Опции

[compiler]

Добрый день!
Вот есть такая задачка:

10. Создайте программой два числовых двоичных дерева. Опишите рекурсивно и нерекурсивно логическую функцию, входными параметрами которой являются два дерева, проверяющую на равенство эти деревья. В программе используйте подпрограммы.

рекурсивный вариант у меня получился такой:

function equal(const tree0, tree1 :TTree ):boolean;
{ pre-order }
begin
   if tree0 = tree1 then equal:=true else
      if (tree0 = nil) and (tree1 <> nil) then equal:=false else
	 if (tree1 = nil) and (tree0 <> nil) then equal:=false else
	    equal:=(( tree0^.data =  tree1^.data) and
		    equal(tree0^.left, tree1^.left) and
		    equal(tree0^.right, tree1^.right));
end; { equal }

, а вот нерекурсивную функцию как то не получается... поиском нашел похожую задачу ( Help Me! ) , но не понял код...
помогите пожалуйста...
в атаче моя программа целиком.
заранее благодарен.

Сообщение отредактировано: compiler - 1.06.2008 20:29

[volvo]

там было как-то понятней описание..

По-моему, с очередью как раз гораздо понятней... Да и реализуется просто (набирал прямо здесь, не проверяя, но по-моему не ошибся нигде, подразумеваются стандартные процедуры работы с очередью Put/Get, за тем исключением, что Put должна реализовываться так, что переданное ей значение NIL в очередь не добавляется...):

function equal(const tree0, tree1: TTree): boolean;
var
  p0, p1 : TTree;
  q0, q1: tqueue;
begin
  equal := false;

  queue.init(q0); put(q0, tree0);
  queue.init(q1); put(q1, tree1);

  while not is_empty(q0) do begin

    p0 := get(q0); put(q0, p0^.left); put(q0, p0^.right);
    if is_empty(q1) then exit;
    p1 := get(q1); put(q1, p1^.left); put(q1, p1^.right);

    if p0^.data <> p1^.data then exit;

  end;
  equal := is_empty(q1);

  done(q0); done(q1);
end;

Сообщение отредактировано: volvo - 1.06.2008 22:28

[compiler]

По-моему, с очередью как раз гораздо понятней... Да и реализуется просто ...

ну.. согласен, но только после того как увидел реализацию)
спасибо

зы
а где всё таки можно посмотреть про записи, а то не могу найти необходимого?

Сообщение отредактировано: compiler - 2.06.2008 14:38