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

@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.

Новые блоги и статьи Все статьи Все блоги /
Чистый C и C++ в Qt Creator: ставим среду без VPN и настраиваем MinGW/CMake, без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .