Двоичное дерево! Не могу дорешать...

Эта задача формирует двоичное дерево, выводит его на экран и находит максимальную глубину дерева. Оно выводит его в строчку, а мне надо по уровням! Прошу напишите как доделать...сама понять не могу(если можно с объяснением)! Надеюсь кто-нибудь поможет мне разобраться!!!

0

как звучит условие задачи?
тебе надо сделать это графически?

0

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

0

я раньше делал подобную задачу, у меня вверху экрана был первый уровень который изображался круглишком от него отходило две ветви на концах которых были тоже круглешки и так далее, тебе надо что то типа этого?

0

ДА Только вместо круглишков чтоб были вводимые цыфры! А как это сделать я не знаю!
.... 5
4
.... 6 Что-то типа такого!

0

a если сделать так
........................................ ...........1
..................................2..... ............................2
........................3..............3 .....................3.............3
..................4.........4......4.... ..4............4.......4......4.....4

0

Ну и так можно! А ты сможешь потом объяснить мне, чтоб я поняла!!!

0

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

0

И что ты никак не сможешь мне помочь???? Мда...что же теперь делать не представляю!!!

0

почему решить то ее можно только надо подумать, не долго

0

Подумай пожалуйста, последняя надежда на тебя...буду очень благодарна!!!

0

пришли мне пожалуйста результат своей программы , то есть как она выводит

0

А как это сделать? Она просто выводит числа в строчку вот так
25478.....
а в низу максимальный элемент!

0

если у тебя сразу можно узнать каков максимальный элемент то можно все просто сделать , у тебя можно сразу узнать максимальный элемент?

0

Да сразу считает и выводит до него дерево! Я вот тоже сижу и думаю...просто как-нибудь сделать разное кол-во пробелов перед каждой выводимой цифрой!

0

а можно gotoxy(x,y) использовать

0

Наверно можно! А куда его ставить?! Можешь изменить в моей программке

0

это надо ставить перед выводом, gotoxy(x,y)
перед циклом х:= 400;
а в цикле должно быть x:=round(x/2);
y:=1 перед циклом
y:=y+10;- в цикле


Добавлено через 1 минуту 21 секунду
я что то не могу разобраться с твоим кодом, и вот вставляешь то что я написал, туда где у тебя раньше выводились числа, которые в строку

0

Ты извини, я наверно замучила тебя...но что-то опять не то
Uses Crt;
Type Tr=^tt; tt=Record
Data:integer;
Left,Right:Tr;
end;
Var
x:integer;
kd,f :Tr;

{zapolnenee}
Procedure dob (n :integer; var h:Tr);
Begin
If h = nil then begin
New(h);
With h^ do
begin
Data:=n;
Left:=nil;
Right:=nil;
end;
end
else if n<= h^.Data then dob(n,h^.left)
else dob(n,h^.right);

End;
{vevod na ekran}
Procedure Print(var t:Tr);
Begin
If t<>nil then
with t^ do begin
Print(left);
write (data,' ');
Print(right);
end;

End;
{ obxod dereva}
Function dep(g:tr) :integer;
var r,l :integer;
begin
if g<>nil
then begin
l:=dep(g^.left);{obxod levogo poddereva}
r:=dep(g^.right);{obxod pravogo poddereva}
if l>r then dep:=l+1
else dep:=r+1;
end
else dep:=0;
end;

Begin
ClrScr;
writeln('vvod vershin; okonchanie - 0');
kd:=nil;
f:=nil;
read (x);
x:=400;
while x<>0 do
begin
dob(x,kd);
x:=round(x/2);
writeln('ocherednoe chislo');
read (x);
end;
f:=kd;
goto(x,y); здесь ошибка identifier x не нравиться!
Print(kd);
writeln;
writeln;
writeln (dep(kd));
readln;
Readln;
end.

0

а ты прописала что это число вещественного типа?

Добавлено через 36 секунд
и вот от этого пляши, я бы сам попробывал но у меня нет на месте рабочем программы

0