Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Матрица из сторон треугольника https://www.cyberforum.ru/ pascal/ thread74615.html
Дан массив,а именно таблица А, которая содержит N троек вещественных чисел.Т.е. получается N строк,три столбца.Составить линейную таблицу, элемент которой равен 1, если соответствующая строка состоит...
Pascal Найти минимальный положительный и максимальный отрицательный из данных десяти элементов
Помогите плиз решить задачу!!! Найти | из данных десяти элементов. Если требуемые элементы отсутствуют, то вывести 0.
Pascal Блок-схема
построить блок-схему к этой програме: program p; uses crt; const m = 3; var A:array of byte; B:array of boolean; i,j,k:byte; begin clrscr; for i:=1 to m do
Pascal База Данных (не запускаеться прога) Есть программа по работе с БД Вывод, добавление записи, удаление записи, сортировка и поиск Но проблема в том, что программа не запускается, и я не могу понять почему :( Написано все вроде... https://www.cyberforum.ru/ pascal/ thread74601.html
Pascal Распечатать список студентов, дни рождения которых весной https://www.cyberforum.ru/ pascal/ thread74600.html
Распечатать список студентов, дни рождения которых весной.
Pascal передача параметра в процедуру
добрый вечер. подскажите кому не лень, 1- как правильно передать в процедуру массив(не изменив его по завершению процедуры и второй вариант чтобы изменения сохранились) с массивом так же нужно...
Процедуры (вывести столбцы м-цы с нулевыми значениями) Pascal
Следующая задача: Сформировать и вывести на экран две матрицы путем ввода элементов с клавиатуры и по заданному правилу, используя процедуры пользователя. Фактическое число строк и столбцов вводить...
Pascal Связный (линейный) список Люди , помогите плиз!!!!!!!!!!!!!!!!!! не могу решить задачу на список. может кто-нидь подскажет что делать с ней. Вот задача: Написать программу, содержащую подпрограмму, которая копирует в... https://www.cyberforum.ru/ pascal/ thread74588.html
Pascal В заданном тексте определить целое число, состоящее из наибольшего количества цифр. https://www.cyberforum.ru/ pascal/ thread74587.html
Здравствуйте, я новичёк на вашем форуме. Пожалуйста, помогите написать следующие программы. 1 программко - Строки. В заданном тексте определить целое число, состоящее из наибольшего количества...
Pascal Очередь- как разобраться!!!!! Помогите пожалуйста решить задачу с помошью очереди: Найдите среди четерёх очередей две одинаковые. Я начала писать а что дальше не знаю(((( {тут описан ввод очередей, а как найти... https://www.cyberforum.ru/ pascal/ thread74585.html
2 / 2 / 0
Регистрация: 16.10.2009
Сообщений: 65
28.12.2009, 19:51  [ТС] 0

Определить количество узлов на каждом уровне данного бинарного дерева

28.12.2009, 19:51. Просмотров 6128. Ответов 4
Метки (Все метки)

Ответ

Спасибо за задачу) но она мне чуть-чуть не подходит)

Добавлено через 1 минуту
Вот код:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure CountLevel(level: integer; root: ttree;
          const to_count: integer; var Counter: integer);
begin
  if (root = nil) or (level > to_count) then exit;
 
  if level = to_count then inc(Counter)
  else begin
    CountLevel(level + 1, root^.right, to_print, Counter);
    CountLevel(level + 1, root^.left, to_print, Counter);
  end;
end;
, вот так вызывать:
  for i := 0 to Pred(GetHeight(root)) do begin
    amount := 0;
    CountLevel(0, root, i, amount);
    Writeln(i:2, ' -> ', amount);
  end;
мне подсказали, но не много) вот только кусочек) Помогите

Вернуться к обсуждению:
Определить количество узлов на каждом уровне данного бинарного дерева
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.12.2009, 19:51
Готовые ответы и решения:

Бинарные деревья. Найти количество узлов на n уровне
Коротко о программе. Дано бинарное дерево. Нужно нерекурсивно(через стеки) найти количество узлов...

Определить количество вершин на к-уровне дерева
Дан указатель на корень дерева и натуральное число К. Определить количество вершин на к-уровне....

Определить количество листьев на каждом уровне дерева итеративным способом
Здравствуйте, необходима помощь. Необходимо написать процедуру, определяющую количество листьев на...

Определить число узлов на каждом уровне дерева
Помогите пожалуйста, нужно определить число узлов на каждом уровне дерева. За ранее спасибо.

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