Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 1
Регистрация: 25.07.2013
Сообщений: 12
1

Разработать программу, которая создает бинарное дерево T, элементами которого являются вещественные числа.

25.07.2013, 21:20. Показов 1392. Ответов 2
Метки нет (Все метки)

Помогите кто может.
Разработать программу, которая создает бинарное дерево T, элементами которого являются вещественные числа. Находит и печатает наибольший и наименьший элементы дерева T.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.07.2013, 21:20
Ответы с готовыми решениями:

Разработать программу, которая создает бинарное дерево
Разработать программу, которая создает бинарное дерево T, элементами которого являются...

Разработать программу, которая создает бинарное дерево
не могу написать программу, помогите кто знает. Условие: Разработать программу, которая создает...

Построить бинарное дерево, элементами которого являются числа
Помогите решить задание: построить бинарное дерево, элементами которого являются числа. Удалить из...

Нужно разработать программу,которая создает списки L1 и L2, элементами которых являются слова с заглавных латинских букв
Находит все слова списка L1, не содержащиеся в L2, и печатает их, разделяя пробелами, в обратном...

2
111 / 111 / 13
Регистрация: 01.10.2012
Сообщений: 2,221
25.07.2013, 21:46 2
dimon4ik455, нужны наработки. Что сделали, что не получается. А если просто решение задачи с нуля то во фриланс...
0
0 / 0 / 1
Регистрация: 25.07.2013
Сообщений: 12
25.07.2013, 21:49  [ТС] 3
Лучший ответ Сообщение было отмечено dimon4ik455 как решение

Решение

Delphi
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
program BinTree;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
{ TODO -oUser -cConsole Main : Insert code here }
    type ref_node=^node;
        node =record
             inf:integer;
             left,rigth:ref_node;
        end;
var
   root:ref_node;
   i:integer;
   res:integer;
   sum:integer;
   
procedure insert_node(var root:ref_node;x:integer);
begin
     if root=nil then
     begin
          new(root);
          root^.inf:=x;
          root^.left:=nil;
          root^.rigth:=nil;
     end
     else if x<root^.inf then insert_node(root^.left,x)
     else insert_node(root^.rigth,x);
end;
 
procedure search(root:ref_node);
begin
     if root<>nil then
     begin
          write(root^.inf,' ');
          search(root^.left);
          search(root^.rigth);
     end;
end;
   
procedure summ(root:ref_node;var sum:integer);
begin
     if root<>nil then
     begin
          sum:=sum+root^.inf;
          summ(root^.left,sum);
          summ(root^.rigth,sum);
     end;
end;
   
begin
     for i:=1 to 20 do
         insert_node(root,i);
     search(root);
     sum:=0;
     summ(root,sum);
     writeln;
     write(sum);
     readln;
     end.
не знаю что тут переделать надо
 Комментарий модератора 
Теги кода добавлены модератором. По правилам форума, код должен быть оформлен соответствующими тегами. Для оформления кода Delphi следует поместить этот код в теги: [DELPHI] - [/DELPHI]. Это можно сделать вручную или можно выделить код и на панели редактирования сообщения нажать кнопку: "DELPHI".
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.07.2013, 21:49

Написать программу, которая создает бинарное дерево, состоящее из целых чисел, печатает все числа бинарного дерева
Написать программу, которая создает бинарное дерево, состоящее из целых чисел, печатает все числа...

Написать программу, которая создает бинарное дерево
Написать программу, которая создает бинарное дерево, состоящее из целых чисел,

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

Составить программу, которая создает из множества бинарное дерево
В деревьях мало чего понимаю, помогите написать прогу)) 1. Составить программу, которая создает...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.