Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
nimans
0 / 0 / 0
Регистрация: 19.11.2014
Сообщений: 2
#1

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

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

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


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

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

Подсчитать количество элементов в бинарном дереве - Pascal
Здравствуйте. Такая проблема. Есть код для примера: Procedure Search (P,N) IF P->Key = N THEN Answer=P->Prev ELSE IF P->Left...

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

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

Найти минимальный n - Pascal
Найти минимальный n, при котором S(n) становится больше заданного числа m. S(n)=1+1/3+1/5+...+1/(2n-1)

Найти минимальный елемент массива - Pascal
Здраствуйте! Ребята, помогите пожалуйста решить задачку: Дано двумерный массив S,нужно: 1) Узнать количество елементов которые меньше...

1
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3589 / 2576 / 1759
Регистрация: 05.06.2014
Сообщений: 12,311
20.11.2014, 08:51 #2
Оформить функцию попытайтесь самостоятельно.

(С) Доча

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
Привет! Вот еще темы с ответами:

Найти минимальный элемент массива - Pascal
еще помогите пожалуйста решить)) 8.Найти минимальный элемент массива А(5,6). 9.Найти минимальный элемент массива А(10) и его порядковый...

Найти минимальный элемент вектора у= Dz - Pascal
ДАНА МАТРИЦА 2.8 1.7 3.2 11 0.5 1.8 7.4 1.5 =D ...

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

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


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

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

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