Проверка дерева

[Arturec05]

помогите с задачей пожалуйста:


определить является ли полученное дерево идеально сбалансированным (для каждого из его узла количество узлов в левом и правом поддереве различаются не более чем на 1)


желательно на Паскале

[Arigato]

А как дерево получается?

[Arturec05]

дерево самим можно ввести

[Arigato]

И где ваши наработки? Давайте хотя бы ввод дерева самостоятельно делайте.

[Arturec05]

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

[Arigato]

Тогда вам остается только оплатить работу и вам все сделают. Подобная задача может стоить порядка 500 руб.

[Arturec05]

да нее , это слишком дорого для такой задачи

[Mandrivnyk]

Сообщение от Arturec05

да нее , это слишком дорого для такой задачи

Тогда учебники в руки -- и вперед за знаниями.

[Arturec05]

вот дерево, нужно проверить его
uses
crt;
type
Link=^Item;
Item=record
keys : Integer;
left : Link;
Reht : Link;
end;
var
F : Boolean;
Function New_Tree(n:integer):Link;
var
q : Link;
x,nl,nr : Integer;
begin
if n=0 then New_Tree:=nil
else begin
nl:=n div 2;
nr:=n-nl-1;
write('Ââåäèòå óçåë K = '); readln(x);
new(q);
with q^ do begin
keys:=x;
left:=New_Tree(nl);
reht:=New_Tree(nr);
end;
New_Tree:=q;
end;
end;

Procedure Print_Tree(T:Link; h:integer);
var
i : integer;
begin
if T<>nil then
with T^ do begin
Print_Tree(left,h+1);
for i:=1 to h do write(' ');
writeln(keys);
Print_Tree(reht,h+1);
end;
end;
var
N : Integer;
T1 : Link;
begin
clrscr;
write('Ââåäèòå êîëè÷åñòâî ýëåìåíòîâ â ïåðâîì äåðåâå N = ');
readln(n);
T1:=New_Tree(n);
clrscr;
Print_Tree(T1,0);
readln;
clrscr;
end.