Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
nimans
0 / 0 / 0
Регистрация: 19.11.2014
Сообщений: 2
#1

Найти минимальный в бинарном дереве - Pascal

19.11.2014, 14:11. Просмотров 768. Ответов 1
Метки нет (Все метки)

Нужно оформить функцию поиска минимального элемента в бинарном дереве, функция должна возвращать указатель на эту вершину, помогите пожалуйста.


function FindMin(R: PNode; var Min: Integer): PNode;
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.11.2014, 14:11
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти минимальный в бинарном дереве (Pascal):

Подсчитать количество элементов в бинарном дереве
Здравствуйте. Такая проблема. Есть код для примера: Procedure Search (P,N)...

Подсчитать сумму значений в бинарном дереве
написал функцию подсчитывающую сумму значений в бинарном дереве , прога...

Найти минимальный и максимальный элементы и их координаты, поменять местами минимальный и максимальный элемент
3) В матрице размером n на m (1<n, m<10) (ввод n, m и матрицы с клавиатуры)...

В матрице найти минимальный и максимальный элементы и их координаты, поменять местами минимальный и максимальный элементы
В матрице размером n на m (1<n, m<10) (ввод n, m и матрицы с клавиатуры) найти...

Найти минимальный n
Найти минимальный n, при котором S(n) становится больше заданного числа m....

Найти минимальный элемент матрицы
Задана двумерная матрица размерностью 11х11 элементов, заполненная случайными...

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3858 / 2844 / 3631
Регистрация: 05.06.2014
Сообщений: 13,943
20.11.2014, 08:51 #2
Лучший ответ Сообщение было отмечено nimans как решение

Решение

Оформить функцию попытайтесь самостоятельно.

(С) Доча

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
{$A+,B+,D+,E+,F+,G+,I+,L+,N+,O+,P+,Q+,R+,S+,T+,V+,X+}
{$M 16384,0,655360}
 
program tree;
type
  pt=^node;
  node=Record
    data:integer;
    left,right:pt;
  end;
var
  t:pt;
  x,p:integer;
  min:integer;
 
procedure insert_tree(var t:pt; x:integer);
begin
  if t=nil then
    begin
      new(t);
      with t^ do
        begin
          data:=x;
          left:=nil;
          right:=nil;
        end
    end
  else
    if x<t^.data then
      insert_tree(t^.left,x)
    else
      insert_tree(t^.right,x);
end;
 
procedure search(t:pt;var m:integer);
var
  i,j:integer;
begin
  if t<>nil then
    if t^.left<>nil
      then
        search(t^.left,m)
    else
      m:=t^.data;
end;
 
procedure print(t:pt; h:integer);
var
  i:integer;
begin
  if t<>nil then
    with t^ do
      begin
        print(left,h+5);
        for i:=1 to h do
          write(' ');
        writeln(data:3);
        print(right,h+5);
      end;
end;
 
BEGIN
  write('x=');
  readln(x);
  repeat
    insert_tree(t,x);
    write('x=');
    read(x);
  until Eof;
  write('tree: ');
  print(t,1);
  search(t,min);
  writeln('min=',min);
  readln;
END.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
20.11.2014, 08:51
Привет! Вот еще темы с решениями:

найти минимальный элемент вектора В
Сформировать вектор В элементы которого равны соответствующим элементам...

Найти минимальный элемент массива
Найти минимальный элемент массива.

найти минимальный элемент стека
найти мин элемент стека заданой длины состоящего из натуральных чисел ...

Найти минимальный элемент в матрице
1.Заполнить матрицу m*n с клавиатуры. Найти минимальный элемент в матрице.


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

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

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