IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Дерево плз хэлп
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 9
Пол: Мужской

Репутация: -  0  +


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

"Построить дерево и вывести его повернутым на 90 градусов"
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Что не получается? Построить? Есть в FAQ: Все о динамических структурах данных.

Вывести? Там же, или используй поиск по форуму, уже решалось - дерево выводится слева направо, то есть именно повернутым на 90 градусов против часовой стрелки...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 9
Пол: Мужской

Репутация: -  0  +


Цитата(volvo @ 25.01.2007 13:03) *

Вывести? Там же, или используй поиск по форуму, уже решалось - дерево выводится слева направо, то есть именно повернутым на 90 градусов против часовой стрелки...



да, не получается вывести. Поиск нашёл только зеркальное отражение sad.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Чем вот такое, например, не устраивает:
Procedure PrintLex(level: integer; T: TTree);
Begin
If T = nil Then Exit;
With T^ Do Begin

PrintLex(level + 1, Left);
Writeln('': level*3, Data);
PrintLex(level + 1, Right)

End
End;

(я надеюсь, у тебя бинарное дерево? Или N-арное?)
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5





Группа: Пользователи
Сообщений: 9
Пол: Мужской

Репутация: -  0  +


дерево бинарное.

procedure PrintLex не подходит потому что она выводит не так, как надо.

надо, что-то типа:

1 2 3 4 5
3 6 7
5 8
8 9 10 11

не могу понять как сделать.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






Вот ты сначала приведи программу, ГЕНЕРИРУЮЩУЮ дерево, и потом - рисунок, как это дерево выглядит, и как ты ХОЧЕШЬ, чтобы оно выглядело...

А пока это глухие телефоны...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7





Группа: Пользователи
Сообщений: 9
Пол: Мужской

Репутация: -  0  +


Цитата(volvo @ 25.01.2007 15:47) *

Вот ты сначала приведи программу, ГЕНЕРИРУЮЩУЮ дерево, и потом - рисунок, как это дерево выглядит, и как ты ХОЧЕШЬ, чтобы оно выглядело...

А пока это глухие телефоны...


Ок. Сор за телефоны.
допустим нам даны : 17 36 5 11 4 21

после этого дерево должно выглядеть так:

                17        
36 5
11 4 21
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8





Группа: Пользователи
Сообщений: 9
Пол: Мужской

Репутация: -  0  +


Дерево должно так выводиться, чтобы вершина с номером s соединялась с вершинами 2s и 2s+1...одним словом формирование дерева должно зависеть не от величины вводимого значения, а от номеров вершин.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Гость






Ты вот про такой результат:
uses crt;
type
ttype = integer;

ttree = ^tnode;
tnode = record
Data: ttype;
ix: integer;

left, right: ttree;
end;

procedure Add(var T: ttree; i: ttype; index: integer);

procedure CreateNode(var p: ttree; n: ttype);
begin
new(p);
with p^ do begin
Data := n; ix := index;

left := nil; right := nil
end;
end;

begin
if T <> nil then
with T^ do begin

if Data < i then Add(right, i, index)
else if Data > i then Add(left, i, index)

end
else CreateNode(T, i)
end;



procedure myPrintTree(level: integer; T: ttree; curr: integer);

function find_index(root: ttree; n: integer): ttree;

var check, pp: ttree;
begin

if root <> nil then begin
pp := root;
while pp <> nil do begin

if pp^.ix = n then break;
check := find_index(pp^.left, n);
if check = nil then
check :=find_index(pp^.right, n);

pp := check;

end;
find_index := pp;
end
else find_index := nil;
end;


var found: TTree;
begin
if T = nil then exit;
with T^ do begin

found := find_index(T, curr);
if found <> nil then begin
myPrintTree(level + 1, T, 2 * curr);
Writeln('':3*level, found^.Data);
myPrintTree(level + 1, T, 2 * curr + 1);
end

end
end;

{ main part }

const
size = 6;
iV: array[1 .. size] of ttype = (17, 36, 5, 11, 4, 21);

var
i: integer;
myTree, wasfound: ttree;

begin
myTree := nil;
for i := 1 to size do Add(myTree, iv[i], i);

myPrintdown(1, mytree, 1);
{ delete tree here }
end.

?

Не забудь добавить удаление дерева, я этого не сделала...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10





Группа: Пользователи
Сообщений: 9
Пол: Мужской

Репутация: -  0  +


Не получается процедура, которая выводит дерево в таком виде:

                17        
36 5
11 4 21




 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Гость






RastA, ты ответь на вопрос: это - тот порядок вывода, который тебе нужен?

Если да, то я покажу, как вывести дерево, если нет - говори, что неправильно... Сколько раз можно повторять - сначала отлаживается алгоритм, и только потом - интерфейс... Сейчас вопрос об алгоритме...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Гость






Вот так попробуй:

procedure myPrintTree(px: integer;
level: integer; T: ttree; curr: integer);

function find_index(root: ttree; n: integer): ttree;

var check, pp: ttree;
begin

if root <> nil then begin
pp := root;
while pp <> nil do begin

if pp^.ix = n then break;
check := find_index(pp^.left, n);
if check = nil then
check :=find_index(pp^.right, n);

pp := check;

end;
find_index := pp;
end
else find_index := nil;
end;


const
{ Эта константа уменьшает/увеличивает величину отступа между левым и правым потомком }
half = 30;

var found: TTree;
begin
if T = nil then exit;
with T^ do begin

found := find_index(T, curr);
if found <> nil then begin
myPrintTree(px - (half div succ(level)), level + 1, T, 2 * curr);
begin
gotoxy(px, 2 * level);
Writeln(found^.Data:3);
end;
myPrintTree(px + (half div succ(level)), level + 1, T, 2 * curr + 1);
end

end
end;


Вызывать так:
...
clrscr;
myPrintTree(40, 1, mytree, 1);
...


Сразу хочу сказать: с маленькими деревьями работать должно, с большими - будет проблема, с увеличением глубины расстояние между узлами будет сокращаться, и они станут накладываться один на другой...

С этим же столкнулся volvo, когда делал процедуру для графического представления дерева (приведенную в FAQ-е)...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #13





Группа: Пользователи
Сообщений: 9
Пол: Мужской

Репутация: -  0  +


Цитата(Алена @ 25.01.2007 23:45) *

RastA, ты ответь на вопрос: это - тот порядок вывода, который тебе нужен?

Если да, то я покажу, как вывести дерево, если нет - говори, что неправильно... Сколько раз можно повторять - сначала отлаживается алгоритм, и только потом - интерфейс... Сейчас вопрос об алгоритме...


да, этот тот порядок вывода.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 20.04.2021 16:52
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name