помогите разобраться с равенством деревьев, нужно помочь дописать Опции

[Маришик]

Здравствуйте! Мне нужна помощь. Я новенькая и мало чего пока понимаю. Сегодня на лабе я что-то напортачила из того что было, из того что тут взяла.... и вообщем вот что получилось...
Посмотрите кто может и помогите плиз:

uses crt;
type Ptr=^TNode;
     Tnode=record
     Left:Ptr;
     Right:Ptr;
     Info:Integer;
     end;

var
    t,t2,equalt:Ptr;
    nh,max,h,i:integer;
  //создание первого дерева
procedure zadtree(var t:ptr; h,nh:integer);
begin
  if h=5 then
   begin
     New(t);
     t^.left:=nil;
     t^.right:=nil;
     t^.info:=random(20);
   end
  else
   begin
     new(t);
     zadtree(t^.left,h+1,nh);
     zadtree(t^.right,h+1,nh);
     t^.info:=random(20);
   end;
end;

procedure writetree(t:Ptr;h,nh:integer);
begin
  if t=nil then exit;
  if h=nh then
    begin
      Write(t^.Info,' ');
    end
  else
    begin
      writetree(t^.left,h+1,nh);
      writetree(t^.right,h+1,nh);
    end;
end;


 //создание второго дерева

procedure zadtree2(var t2:ptr; h,nh:integer);
begin
  if h=5 then
   begin
     New(t);
     t2^.left:=nil;
     t2^.right:=nil;
     t2^.info:=random(1);
   end
  else
   begin
     new(t2);
     zadtree(t2^.left,h+1,nh);
     zadtree(t2^.right,h+1,nh);
     t2^.info:=random(1);
   end;
end;

procedure writetree2(t2:Ptr;h,nh:integer);
begin
  if t2=nil then exit;
  if h=nh then
    begin
      Write(t2^.Info,' ');
    end
  else
    begin
      writetree(t2^.left,h+1,nh);
      writetree(t2^.right,h+1,nh);
    end;
end;

procedure isEqual(var equal: boolean; t, t2: ptr);
var b_left, b_right: boolean;
begin
  if (t = nil) and (t2 = nil) then equal := true
  else if (t<>nil) and (t2<>nil)
       then begin
         isEqual(b_left, t^.left, t2^.left);
         isEqual(b_right, t^.right, t2^.right);
         equal := (t^.info = t2^.info) and b_left and b_right
       end
       else equal := false
end;

begin
//основная прога
begin
clrscr;
  randomize;
  //Выведение на экран первое дерево
  t:=nil;
  zadtree(t,1,nh);
    for i:=1 to 3 do
    begin
      writetree(t,1,i);
      writeln;
    end;
   //Выведение на экран второе дерево
  t2:=nil;
  zadtree(t2,1,nh);
    for i:=1 to 3 do
    begin
      writetree(t2,1,i);
      writeln;
    end;
    writeln('Эти деревья по любому не равны :-)))');
end;
end.

Вот вообщем то и все! Эта прога работает, но неправильно, если вы поняли конечно и пользователь не вводит значения, а хотелось бы чтобы вводил.
вообщем посмотрите кому не лень, буду очень благодарна

[Артемий]

Я думаю ты могла-бы объяснить подробнее, что именно неправильно она делает..А то как-то трудно понять, не зная условия!

[volvo]

пользователь не вводит значения, а хотелось бы чтобы вводил.

Ну так поменяй

t^.info := random(20);

и подобную же конструкцию чуть ниже для второго дерева на что-нибудь вроде:

Write('Следующее значение: '); ReadLn(i);
t^.info := i;

А чтобы программа реботала, неплохо было бы не сообщать сразу, что деревья не равны, а вызвать вместо этого isEqual... И сообщать уже в зависимости от результата...

[Маришик]

Суровый Профи, спасибо конечно! На счет вывода ответа - это прикол! Конечно это не верно! У меня уже есть 2 дерева и есть процедура, описывающая равенство (правда не знаю правильная или нет) Мне нужно воспользоваться этой процедурой, написать основную программу сравнения, понимаете... Я не секу маленько...

[Артемий]

Я попроверял, вроде у тебя процедура IsEqual правильная..Вызывай так:

var flag: boolean;
...
isEqual(flag,t,t2);
writeln(flag);

Сообщение отредактировано: Артемий2 - 16.03.2007 21:01

[volvo]

(правда не знаю правильная или нет)

Если брала здесь: Бинарные деревья

, значит правильная, ту я тестировал...

[Маришик]

Спасибо большое молодые люди
Попробую разобраться, а что здесь писать? (где точки)

var flag: boolean;
...
isEqual(flag,t,t2);
writeln(flag);

Выведение деревьев? Ведь нужно наверно какое-нибудь условие... Короче будем думать... Еще раз спасибо за помощь

[Маришик]

Всем огромное спасибо, я сдала эту лабу. Век не забуду вашей доброты