Здравствуйте! Мне нужна помощь. Я новенькая и мало чего пока понимаю. Сегодня на лабе я что-то напортачила из того что было, из того что тут взяла.... и вообщем вот что получилось...
Посмотрите кто может и помогите плиз:
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.
Я думаю ты могла-бы объяснить подробнее, что именно неправильно она делает..А то как-то трудно понять, не зная условия!
t^.info := random(20);и подобную же конструкцию чуть ниже для второго дерева на что-нибудь вроде:
Write('Следующее значение: '); ReadLn(i);
t^.info := i;
Суровый Профи, спасибо конечно! На счет вывода ответа - это прикол! Конечно это не верно! У меня уже есть 2 дерева и есть процедура, описывающая равенство (правда не знаю правильная или нет) Мне нужно воспользоваться этой процедурой, написать основную программу сравнения, понимаете... Я не секу маленько...
Я попроверял, вроде у тебя процедура IsEqual правильная..Вызывай так:
var flag: boolean;
...
isEqual(flag,t,t2);
writeln(flag);
Спасибо большое молодые люди
Попробую разобраться, а что здесь писать? (где точки)
var flag: boolean;
...
isEqual(flag,t,t2);
writeln(flag);
Всем огромное спасибо, я сдала эту лабу. Век не забуду вашей доброты