Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Матрица. Поменять строки и столбцы местами https://www.cyberforum.ru/ turbo-pascal/ thread2378662.html
Добрый день! Подскажите, пожалуйста, как написать программу. Дана матрица 4*4. Необходимо: 1) найти стобцы с наименьшим и наибольшим средним арифметическим значением элементов. Поменять эти столбцы...
Составить блок-схему по коду. Turbo Pascal
var x: array of integer; max, i, n: integer; sr: real; begin n := 15; sr := 0; max := -MaxInt; for i := 1 to n do
Рост броуновского дендрита Turbo Pascal
Прошу помощи в написании кода! Необходимо на Паскале выполнить задания: 1. Смоделировать рост двумерного радиального дендрита в модели ДОА (дифузия, ограниченная агрегацией) 2. Пронаблюдать рост...
Turbo Pascal Как реализовать поиск и нажатие отличающейся цифры внутри игры? Как реализовать поиск и нажатие отличающейся цифры внутри игры? Выводит список цифр, и одна из них может быть:другого шрифта,цвета и т.д, нужно нажать именно её на клавиатуре, как это реализовать?... https://www.cyberforum.ru/ turbo-pascal/ thread2378362.html
Turbo Pascal Написать программу, которая в матрице чисел находит все элементы, превышающие по абсолютной величине заданное число https://www.cyberforum.ru/ turbo-pascal/ thread2378195.html
Написать программу, которая в матрице чисел A(N,M) находит все элементы, превышающие по абсолютной величине заданное число B. Подсчитать число таких элементов и записать их в массив C.
Turbo Pascal Дана настоящая матрица 5x7. Убедитесь, что его заголовки не уменьшены: а) по первым элементам; б) суммой элементов;
Дана настоящая матрица 5x7. Убедитесь, что его заголовки не уменьшены: а) по первым элементам; б) суммой элементов;
Измените матрицу A(n,m) на строгий треугольный вид матрицы Turbo Pascal
Измените матрицу A(n,m) на строгий треугольный вид матрицы (матрица является треугольным видом если, Aij=0, тогда i больше или равно j)
Turbo Pascal Даны целые числа. Верно ли, что в последовательности есть 0 члены Данные целые числа a1.....an. Верно что в последовательности есть 0 члены https://www.cyberforum.ru/ turbo-pascal/ thread2377890.html
Turbo Pascal Массив в Turbo Pascal https://www.cyberforum.ru/ turbo-pascal/ thread2377681.html
Здравствуйте, прошу помочь мне. Задачку задали мне, и не могу понять как её решить. Собственно вот она: Задано массив X. Заполнить массив A за следующим правилом: {A}_{i,j}={x}^{j}_{i}
Turbo Pascal Вычислить сумму ряда S с погрешностью эпсилон Вычислить сумму ряда S с погрешностью эпсилон, задаваемой с клавиатуры. Вывести количество итераций, сделанных при вычислении. Если вычислить сумму S с погрешностью эпсилон невозможно, вывести... https://www.cyberforum.ru/ turbo-pascal/ thread2377662.html
4265 / 2046 / 2098
Регистрация: 10.12.2014
Сообщений: 7,893
24.12.2018, 09:42 0

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

24.12.2018, 09:42. Просмотров 1179. Ответов 1
Метки (Все метки)

Ответ


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
procedure leafs(tree : U);
var a : array [0..1000] of Integer;
 
  procedure calculate(tree : U);
  begin
    if tree^.depth > a[0] then
      begin
        inc(a[0]);
        a[tree^.depth] := 0;
      end;
    if (tree^.l = nil) and (tree^.r = nil) then
      inc(a[tree^.depth])
    else
      begin
        if tree^.l <> nil then calculate(tree^.l);
        if tree^.r <> nil then calculate(tree^.r);
      end;
  end;
  
var i : Integer;
begin
  a[0] := 0;
  calculate(tree);
  for i := 1 to a[0] do
    WriteLn(i, ') ', a[i]);
end;


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

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

Определить число листьев дерева
Дерево формировать динамически. Заполнить двоичное дерево следующим образом: если число меньше или...

Посчитать количество листьев и неполных вершин заданного бинарного дерева
Всем привет. Нужна срочно помощь. Вот задание: 1.Посчитать количество листьев и неполных вершин...

Определить число листьев на каждом уровне дерева
Нужно составить такую функцию. Именно на каждом отдельном уровне, а не по дереву вообще.

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