Всем доброго дня! Работаю с деревьями, подсобите чем можете, вот код:
| 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
| program Trees;
type
PTernaryNode = ^TTernaryNode;
TTernaryNode = record
data: integer;
cleft : PTernaryNode;
clright : PTernaryNode;
end;
Procedure vvodtree (n: integer; var t: PTernaryNode);
begin
if t=nil then
begin
new(t);
with t^ do
begin
cleft:=nil;
clright:=nil;
data:=n;
end;
end
else
if n<=t^.data then
vvodtree (n, t^.cleft)
else
vvodtree (n, t^.clright);
end;
procedure vivodtree (t:PTernaryNode);
begin
if t<> nil then
begin
vivodtree (t^.cleft);
write (t^.data:3);
vivodtree (t^.clright);
end;
end;
Function balansirovlev (t:PTernaryNode):integer;
begin
if t=nil then
result:=0
else result:=1+balansirovlev(t^.cleft);
end;
Function balnsirprav (t:PTernaryNode):integer;
begin
if t=nil then
result:=0
else result:=1+ balnsirprav(t^.clright);
end;
Function balnsir (t:PTernaryNode):integer;
begin
if t=nil then
result:=0
else result:=1+ balnsir(t^.clright)+balnsir(t^.cleft);
end;
var A,B: PTernaryNode;
chis: integer;
visotalev, visotaprav, ob: integer;
begin
a:=nil;
read (chis);
while chis <> 0 do
begin
vvodtree (chis,a);
read (chis);
end;
vivodtree (a);
visotalev:=balansirovlev(a);
writeln ();
writeln(visotalev);
visotaprav:=balnsirprav(a);
writeln (visotaprav);
ob:=balnsir (a);
writeln (ob);
end. |
|
В итоге всего вершин мне показывает к примеру 9, но с лева находится 2 с права 5, то бишь появляется вопрос, кто меня обманывает, функция считающая все вершины или функции считающие вершины правой и левой ветки??
(
