Динамические объекты. Бинарные деревья

@Pre cai ro · Регистрация: 04.10.2019

Студворк — интернет-сервис помощи студентам

Всем привет. Помогите пофиксить код пожалуйста, чтобы в АБС запустился. Условия задания:
Сформировать дерево вывода арифм. операции a+b*(b-d). Добавить узол (-а)+b*(b-d).

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
program test;
uses crt;
type
dano=string;
dat=^dano;
zv3=^pointer3;
pointer3=record
klyth:integer;
lv,pr:zv3;
zap:dat;
end;
var
kl:integer;
sym:char;
t,p,vtree:zv3;
 
function pder2(k:integer; var d,rez:zv3):boolean;
var
p,q:zv3;
b:boolean;
begin
b:=false;
p:=d;
if d<>nil then repeat
q:=p;
if p^.klyth=k then
b:=true
else
begin
q:=p;
if k<p^.klyth then
p:=p^.lv
else
p:=p^.pr;
end
until b or (p=nil);
pder2:=b;
rez:=q;
end;
 
procedure vtabl(k:integer; var d:zv3; rec:dano);
var
r,s:zv3;
t:dat;
begin
if not pder2(k,d,r) then
begin
new(t);
t^:=rec;
new(s);
s^.klyth:=k;
s^.zap:=t;
s^.lv:=nil;
s^.pr:=nil;
if d=nil then
d:=s
else
if k<r^.klyth then
r^.lv:=s
else
r^.pr:=s;
end;
end;
 
begin
clrscr;
vtree:=nil;
vtabl(100,vtree,'-');
vtabl(50,vtree,'a');
vtabl(200,vtree,'*');
vtabl(150,vtree,'b');
vtabl(300,vtree,'-');
vtabl(250,vtree,'b');
vtabl(350,vtree,'d');
 
writeln('DEREVO');
writeln('              ',vtree^.klyth);
writeln('              ',vtree^.zap^);
writeln('            /   \');
writeln('          ',vtree^.lv^.klyth,'    ',vtree^.pr^.klyth);
writeln('          ',vtree^.lv^.zap^,'       ',vtree^.pr^.zap^);
writeln('                /   \');
writeln('              ',vtree^.pr^.lv^.klyth,'   ',vtree^.pr^.pr^.klyth);
writeln('               ',vtree^.pr^.lv^.zap^,'     ',vtree^.pr^.pr^.zap^);
writeln('                   /    \');
writeln('                 ',vtree^.pr^.pr^.lv^.klyth,'    ',vtree^.pr^.pr^.pr^.klyth);
writeln('                  ',vtree^.pr^.pr^.lv^.zap^,'      ',vtree^.pr^.pr^.pr^.zap^);
t:=vtree^.lv;
vtree^.lv:=nil;
vtabl(30,vtree,'-');
Vtree^.lv^.pr:=t;
 
writeln('REZULT DEREVO');
writeln('            ',vtree^.klyth);
writeln('             ',vtree^.zap^);
writeln('           /   \');
writeln('         ',vtree^.lv^.klyth,'    ',vtree^.pr^.klyth);
writeln('         ',vtree^.lv^.zap^,'       ',vtree^.pr^.zap^);
writeln('          \    /   \');
writeln('          ',vtree^.lv^.pr^.klyth,'  ',vtree^.pr^.lv^.klyth,'   ',vtree^.pr^.pr^.klyth);
writeln('          ',vtree^.lv^.pr^.zap^,'    ',vtree^.pr^.lv^.zap^,'     ',vtree^.pr^.pr^.zap^);
writeln('                   /    \');
writeln('                 ',vtree^.pr^.pr^.lv^.klyth,'    ',vtree^.pr^.pr^.pr^.klyth);
writeln('                  ',vtree^.pr^.pr^.lv^.zap^,'      ',vtree^.pr^.pr^.pr^.zap^);
 
 
 
END.

@JuriiMW · 02.12.2019, 06:31

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
type
dat=String;
zv3=^pointer3;
pointer3=record
klyth:integer;
lv,pr:zv3;
zap:dat;
end;
var
kl:integer;
sym:char;
t,p,vtree:zv3;
 
function pder2(k:integer; var d,rez:zv3):boolean;
var
p,q:zv3;
b:boolean;
begin
b:=false;
p:=d;
if d<>nil then repeat
q:=p;
if p^.klyth=k then
b:=true
else
begin
q:=p;
if k<p^.klyth then
p:=p^.lv
else
p:=p^.pr;
end
until b or (p=nil);
pder2:=b;
rez:=q;
end;
 
procedure vtabl(k:integer; var d:zv3; rec:String);
var
r,s:zv3;
t:String;
begin
if not pder2(k,d,r) then
begin
  t:=rec;
new(s);
s^.klyth:=k;
s^.zap:=t;
s^.lv:=nil;
s^.pr:=nil;
if d=nil then
d:=s
else
if k<r^.klyth then
r^.lv:=s
else
r^.pr:=s;
end;
end;
 
begin
vtree:=nil;
vtabl(100,vtree,'+');
vtabl(50,vtree,'a');
vtabl(200,vtree,'*');
vtabl(150,vtree,'b');
vtabl(300,vtree,'-');
vtabl(250,vtree,'b');
vtabl(350,vtree,'d');
 
writeln('DEREVO');
writeln('              ',vtree^.klyth);
writeln('              ',vtree^.zap);
writeln('            /   \');
writeln('          ',vtree^.lv^.klyth,'    ',vtree^.pr^.klyth);
writeln('          ',vtree^.lv^.zap,'       ',vtree^.pr^.zap);
writeln('                /   \');
writeln('              ',vtree^.pr^.lv^.klyth,'   ',vtree^.pr^.pr^.klyth);
writeln('               ',vtree^.pr^.lv^.zap,'     ',vtree^.pr^.pr^.zap);
writeln('                   /    \');
writeln('                 ',vtree^.pr^.pr^.lv^.klyth,'    ',vtree^.pr^.pr^.pr^.klyth);
writeln('                  ',vtree^.pr^.pr^.lv^.zap,'      ',vtree^.pr^.pr^.pr^.zap);
t:=vtree^.lv;
vtree^.lv:=nil;
vtabl(30,vtree,'-');
Vtree^.lv^.pr:=t;
 
writeln('REZULT DEREVO');
writeln('            ',vtree^.klyth);
writeln('             ',vtree^.zap);
writeln('           /   \');
writeln('         ',vtree^.lv^.klyth,'    ',vtree^.pr^.klyth);
writeln('         ',vtree^.lv^.zap,'       ',vtree^.pr^.zap);
writeln('          \    /   \');
writeln('          ',vtree^.lv^.pr^.klyth,'  ',vtree^.pr^.lv^.klyth,'   ',vtree^.pr^.pr^.klyth);
writeln('          ',vtree^.lv^.pr^.zap,'    ',vtree^.pr^.lv^.zap,'     ',vtree^.pr^.pr^.zap);
writeln('                   /    \');
writeln('                 ',vtree^.pr^.pr^.lv^.klyth,'    ',vtree^.pr^.pr^.pr^.klyth);
writeln('                  ',vtree^.pr^.pr^.lv^.zap,'      ',vtree^.pr^.pr^.pr^.zap);
 
 
 
END.

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025