0 / 0 / 1
Регистрация: 24.03.2016
Сообщений: 15
1

Динамические переменные

23.11.2016, 13:44. Показов 966. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
В дереве поиска определить количество узлов имеющих заданный уровень M.Помогите пожалуйста!
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.11.2016, 13:44
Ответы с готовыми решениями:

Динамические переменные
Дано три точки. Найти площадь и периметр получившегося треугольника. var...

Найти функцию ln(2-3x) через динамические переменные
как бы вы написали. С помощью указателей? через процедуру new(?)?

Составить программу вычисления значения функции y=f(x) при данных значениях x, используя только динамические переменные
Прикрепляю в архиве теорию по которой объясняется как делать. Динамические переменные немного...

динамические переменные...
Разработать программу перемножения двух матриц A и B размерности n*m. Обе матрицы размещаются в...

1
0 / 0 / 1
Регистрация: 24.03.2016
Сообщений: 15
24.12.2016, 20:48  [ТС] 2
Лучший ответ Сообщение было отмечено Wendiya как решение

Решение

сама уже сделала ,кому надо ловиите решение
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
program tree;
 
type
  Pnode = ^TNode;
  TNode = record
    Info: real;
    left, right: PNode;
  end;
 
var
  f: text;
  b: real;
  root: PNode;
  d,Nom: integer;
 
function CountNthLevel(k, level : Integer; root : ^TNode) : Integer;
begin
  if root <> nil then
  begin
     if k = level then result := 1
     else if k > level then result := CountNthLevel(k, level + 1, root^.left) + CountNthLevel(k, level + 1, root^.right)
     else result := 0;
  end
  else result := 0;
end;
 
procedure Insert(x: real; var a: PNode);
begin
  if a = nil then
  begin
    New(a);
    with a^ do
    begin
      Info := x;Left := nil;right := nil;
    end;
  end
    else
  if x < a^.Info then
    Insert(x, a^.left)
  else Insert(x, a^.right);
end;
 
 
procedure Obhod(a: PNode);
var i:integer;
begin
  d += 1;
  if (a^.right <> nil) then
    Obhod(a^.right);
  for  i := 1 to d - 1 do
    write(f, '      ');
  writeln(f, a^.Info);
  if (a^.left <> nil) then
    Obhod(a^.left);
  d -= 1;
end;
 
begin
  assign(f, 'digits.txt');
  reset(f);
  root:=nil;
  while not eof(f) do
  begin
    read(f, b);
    Insert(b, root);
  end;
  close(f);
  assign(f, 'final.txt');
  rewrite(f);
  d := 0;
  Obhod(root);
  close(f);
 writeln(CountNthLevel(6, 0, root)); // для 5-го уровня
end.
0
24.12.2016, 20:48
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.12.2016, 20:48
Помогаю со студенческими работами здесь

динамические переменные
1. Составить программу, которая вставляет в непустой список L, элементы которого упорядочены по...

динамические переменные
1. Дан файл f, компонентами которого являются вещественные числа. Записать в файле g наименьшое из...

Динамические (или не динамические.) переменные!
УважаемыЕ! Есть вопрос. Вот код программы (ТЗ метод северо-западного угла) - под спойлером. А вот...

Динамические переменные
Доброго времени суток! Условие задачи-&quot;Используя представление последовательности чисел в виде...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru