10 / 10 / 4
Регистрация: 21.11.2009
Сообщений: 187
1

Бинарное дерево

16.03.2010, 23:34. Показов 2185. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Люди помогите пожалуйста написать функцию, которая будет считывать корень бинарного дерева и выдавать количество листьев у этого дерева.

Заранее благодарен за любую помощь.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
program laba;
uses crt;
type
 zap=record
 fm:string[15];              {фамилия студента}
     nm:string[10];              {имя студента}
     ot:string[15];    {отчество студента}
     mt:integer;             {оценка по математике}
     hs:integer;             {оценка по истории}
     ph:integer;              {оценкапо физике}
end;
 
treeptr=^tree;
tree=record
data:zap;
left,right:treeptr;
end;
 
var top:treeptr;
z:zap;
level,n,i:integer;
number:integer;
 
function addtree (top:treeptr;newnode:zap):treeptr;
begin
if top=nil then
begin
new(top);
top^.data:=newnode;
top^.left:=nil;
top^.right:=nil;
end
else
if top^.data.fm>newnode.fm then
top^.left:=addtree(top^.left,Newnode)
else
top^.right:=addtree(top^.right,Newnode);
addtree:=top
end;
 
procedure orgtree;
begin
writeln('Dlya vihoda napechataite *');
top:=nil;
while true do
begin
writeln('VVedite familiyu studenta');readln(z.fm);
  if z.fm='*' then exit;                                 {выход, если введён символ ’*’ }
  writeln('Vvedite imya studenta'); readln(z.nm);
  writeln('VVedite otchestvo studenta'); readln(z.ot);
  writeln('VVedite otsenku po matematike');  readln(z.mt);
  writeln('Vvedite otsenku po istorii');  readln(z.hs);
  writeln('Vvedite otsenku po fisike');  readln(z.ph);
top:=addtree(top,z);
end;
end;
 
procedure dobl;
begin
writeln('Dlya vihoda napechataite *');
writeln('Vvedite imya studenta'); readln(z.nm);
  writeln('VVedite otchestvo studenta'); readln(z.ot);
  writeln('VVedite otsenku po matematike');  readln(z.mt);
  writeln('Vvedite otsenku po istorii');  readln(z.hs);
  writeln('Vvedite otsenku po fisike');  readln(z.ph);
top:=addtree(top,z);
end;
 
procedure prosmotr(top:treeptr);
begin
if top<>nil then
begin
prosmotr(top^.left);
writeln(i,' ',top^.data.fm,' ',top^.data.nm,' ',top^.data.ot,' ',top^.data.mt,' ',top^.data.hs,' ',top^.data.ph);
i:=i+1;
prosmotr(top^.right);
end;
end;
 
Procedure otobr(top:treeptr;otstup:integer);
begin
if top<>nil then
begin
otstup:=otstup+3;
otobr(top^.right,otstup);
writeln(' ':otstup,top^.data.fm);
otobr(top^.left,Otstup);
end;
end;
 
Procedure nodecount(top:treeptr;level:integer;var n:integer);
begin
if (level>=1) and (top<>nil) then
begin
if level=1 then n:=n+1;
nodecount(top^.left,level-1,n);
nodecount(top^.right,level-1,n);
end;
end;
 
begin
repeat
clrscr;
writeln('1 - Organizacia dvoichnogo dereva');
writeln('2 - Dobavlenie lista k derevu');
writeln('3 - Prosmotr dereva');
writeln('4 - Podschet kolichestva vershin na n-om urovne');
writeln('5 - Vuhod');
writeln('_______________________________________________________________________');
writeln('                  Vvedite nomer punkta menu');
readln(number);
case number of
1:orgtree;
2:dobl;
3:begin
writeln('Vipolnyaetsya procedura prosmotra dereva');
writeln('________________________________________________________________________');
i:=0;
prosmotr(top);
otobr(top,1);
writeln('Press ENTER');
readln;
end;
4:begin
writeln('Vipolnyaetsya procedura podscheta kol-va');
writeln('vershin na n-om urovne');
writeln('________________________________________________________________________');
write('Vvedite znachenie urovnya-->');
read(level);
n:=0;
nodecount(top,level,n);
writeln;
writeln('Na urovne ',level,' nahoditsya ',n,' vershin');
writeln('Press ENTER');
readkey
end;
end;
until number=5;
end.
Добавлено через 5 часов 10 минут
Я извиняюсь, но задание звучит немного по другому:"Написать функцию/процедуру которая подсчитывает количество листьев в бинарном дереве и выводит результат на экран".

Добавлено через 19 часов 15 минут
HELP ME PLEASE!!!!!!

Добавлено через 1 час 58 минут
Люди помогите кто-нибудь, скоро сдать надо. ОЧ ПРОШУ О ПОМОЩИ ЗАРАНЕЕ БЛАГОДАРЕН ЗА ЛЮБУЮ ПОМОЩЬ!!!

Добавлено через 22 часа 49 минут
Вот у меня родилась такая функция

Pascal
1
2
3
4
5
6
7
8
9
10
11
function kolleaf(top:treeptr):integer;
var l:integer;
begin
if top=nil then l:=0
else
if (top^.left=nil) and (top^.right=nil) then
l:=1
else
l:=l(top^.left)+l(top^.right);
kolleaf:=l;
end;
и вот такая процедура но они не работают может кто подскажет что делать?

Pascal
1
2
3
4
procedure vyv;
begin
writeln('Kolishestvo listev ',kolleaf(top,l));
end;
за основу брал эту функцию

Pascal
1
2
3
4
5
6
7
8
9
10
11
function KolList(Der: Node): integer;
{рекурсивная функция подсчета количества листьев бинарного дерева}
begin 
if Der = NIL then KolList := 0
else 
if (Der^.Left = NIL) and ( Der^.Right = NIL) then
{дерево состоит из одного узла, который является листом} 
KolList := 1
else
KolList := KolList(Der^.Left) + KolList(Der^.Right);
end;
Добавлено через 3 часа 11 минут
Ребят ну помогите оч срочно!!!(((
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.03.2010, 23:34
Ответы с готовыми решениями:

Программа Бинарное дерево
Всем привет. Имеется такая программа по теме &quot;Бинарные деревья&quot;. Нужно сделать, чтобы она могла...

Бинарное дерево поиска
Доброго времени суток! Требуется помощь с решением задачи! Сформировать дерево поиска из чисел....

Распечатать в обратном порядке бинарное дерево
Подскажите плз, что тут может быть не так. Вроде запускается, но при этом не хочет выводить мне...

Написать программу, которая создает бинарное дерево
Дан текстовый файл, содержащий текст размером не менее 10 строк. Написать программу, которая...

1
10 / 10 / 4
Регистрация: 21.11.2009
Сообщений: 187
05.04.2010, 00:24  [ТС] 2
Народ помогите сделать процедуру удаления элемента с максимальным порядковым номером.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.04.2010, 00:24
Помогаю со студенческими работами здесь

Итеративная запись списка символов в бинарное дерево поиска
Дано: файл input.txt, содержащий строку, состоящую из случайных символов (кроме кириллицы). Нужно...

Бинарное дерево
Привет, соседи! Столкнулся со следующей задачей: Написать программу, которая создает бинарное...

бинарное дерево
как сделать бинарное дерево???

Бинарное дерево
Создать простое бинарное дерево с именем, кто сможет помоч?

Бинарное дерево
кто нибудь!!!!!!!!!!! помогите!!!!! мне нужно к зачету сдать задачу, а как с нею бороться не знаю:...

Бинарное дерево
Отобразить с помощью бинарного дерева предложение: &quot;Боженко Роксолана изучает программирование&quot;....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru