|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.12.2008, 22:50 | #1 |
Регистрация: 27.12.2008
Сообщений: 6
|
помогите закончить решение задачи.
"Составить программу, определяющую количество вершин к - того уровня бинарного дерева."
я формирую и вывожу дерево. ну вот сложность в том, что я и рекурсию пробовал и циклы всякие ничего неполучается а обход и подсчет количества вершин К-того уровня сделать не могу. вот фрагмент моей проги: Program derevo; Uses Crt; Type inform = Integer; ss = ^zveno; zveno = Record key: Integer; inf: Inform; left, right: ss; End; Var t:ss; n,c,i,k: Integer; {----формирование дерева----} Procedure Vstavka (Var p: ss; x: Integer); Begin If p = Nil Then Begin New (p); p^.inf:=x; p^.key:=1; p^.left:=Nil; p^.right:=Nil; End; If x<p^.inf Then Begin Vstavka (p^.left,x); End; If x>p^.inf Then Begin Vstavka (p^.right,x); End; End; {----вывод дерева----} Procedure Print (Var p: ss; h: Integer); Var i: Integer; Begin If p <> Nil Then Begin Print(p^.right,h+4); For i:=1 To h Do Write (' '); Writeln (p^.inf); Print (p^.left,h+4); End; End; Begin ClrScr; Writeln ('Введите количество ключей дерева: '); Readln (n); Writeln ('Введите информ часть дерева: '); For i:=1 To n Do Begin Read (с); Vstavka (t,c); End; Print (t,c); Writeln ('Введите уровень: '); Readln (n); А че тут дальше не пойму как реализовать. где-то в этой части проги должен быть подсчет количества вершин заданного уровня. Readkey; End. подскажите пожалуйста. заранее благодарен. |
28.12.2008, 21:36 | #2 |
Регистрация: 27.12.2008
Сообщений: 6
|
ребят ну че никто в деревьях не шарит?
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Решение задачи на C++ | tools | Фриланс | 8 | 19.12.2008 14:53 |
Помогите закончить с лабой | qip2005 | Помощь студентам | 6 | 17.12.2008 01:38 |
решение задачи | Claster | Общие вопросы Delphi | 17 | 16.09.2008 21:08 |
Решение задачи на Си | kisha | Общие вопросы C/C++ | 9 | 19.11.2007 23:31 |
решение задачи | TuNeR | Microsoft Office Excel | 2 | 15.10.2007 09:31 |