Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.72/18: Рейтинг темы: голосов - 18, средняя оценка - 4.72
0 / 0 / 0
Регистрация: 28.03.2016
Сообщений: 12
1

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

12.04.2017, 12:14. Показов 3318. Ответов 12
Метки нет (Все метки)

Добрый день!
Прошу помочь с написанием программы:

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

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.04.2017, 12:14
Ответы с готовыми решениями:

Написать рекурсивную процедуру, которая печатает ключи всех вершин двоичного дерева
Необходимо написать рекурсивную процедуру, которая печатает ключи всех вершин двоичного дерева....

Функция, которая печатает элементы из всех листьев бинарного дерева
Написать функцию, которая печатает элементы из всех листьев дерева. Добавлено через 2 часа 26...

Разработать программу, которая выводит на экран элементы из всех листьев дерева
Разработать программу, которая выводит на экран элементы из всех листьев дерева #define...

Разработать программу, которая выводит на экран элементы из всех листьев дерева
Разработать программу, которая выводит на экран элементы из всех листьев дерева Ругается на 33...

12
4537 / 2249 / 2181
Регистрация: 10.12.2014
Сообщений: 8,611
12.04.2017, 12:22 2
Дерево:

Pascal
1
2
3
4
5
6
type
  tTree = ^rTree;
  rTree = record
    N : Integer;
    L, R : tTree;
  end;
Процедура:

Pascal
1
2
3
4
5
6
procedure TreePrint(Tree : tTree);
begin
  if Tree^.L <> nil then TreePrint(Tree^.L);
  Write(' ', Tree^.N);
  if Tree^.R <> nil then TreePrint(Tree^.R);
end;
Программа: Среднее арифметическое бинарного дерева
1
0 / 0 / 0
Регистрация: 28.03.2016
Сообщений: 12
12.04.2017, 12:33  [ТС] 3
Спасибо!
Объединить это в полноценную программу не поможете?
0
4537 / 2249 / 2181
Регистрация: 10.12.2014
Сообщений: 8,611
12.04.2017, 12:35 4
Чё? Уже лень из программы удалить две последние строки и вписать вызов процедуры?
1
0 / 0 / 0
Регистрация: 28.03.2016
Сообщений: 12
12.04.2017, 13:11  [ТС] 5
Я чёт прям жестко туплю... не лень, но не выходит...
0
4537 / 2249 / 2181
Регистрация: 10.12.2014
Сообщений: 8,611
13.04.2017, 06:30 6
Ну, дык, показывайте!
0
0 / 0 / 0
Регистрация: 28.03.2016
Сообщений: 12
16.04.2017, 13:31  [ТС] 7
Пытался пытался, но что то всё равно не вышло. Забыл про дополнительные условия. Нужно, чтобы слово искалось в дереве, которое изначально пустое. Если мы находим нужное нам слово, то счётчик его вхождений увеличивается на единицу, если нет, то слово включается в дерево с единичным значением счётчика.

Ума не приложу, как такое воплотить...
0
4537 / 2249 / 2181
Регистрация: 10.12.2014
Сообщений: 8,611
17.04.2017, 07:24 8
Цитата Сообщение от Shoku Посмотреть сообщение
Пытался пытался
Показывайте уже!
0
0 / 0 / 0
Регистрация: 28.03.2016
Сообщений: 12
19.04.2017, 08:11  [ТС] 9
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
type
  tTree = ^rTree;
  rTree = record
    N : Integer;
    L, R : tTree;
  end;
  
procedure TreePrint(Tree : tTree);
begin
  if Tree^.L <> nil then TreePrint(Tree^.L);
  Write(' ', Tree^.N);
  if Tree^.R <> nil then TreePrint(Tree^.R);
end;
 
begin
 TreePrint( ReadLnTree('Элементы'));
end.
0
4537 / 2249 / 2181
Регистрация: 10.12.2014
Сообщений: 8,611
19.04.2017, 08:17 10
Цитата Сообщение от Shoku Посмотреть сообщение
ReadLnTree
А где в вашей программе описана данная функция ?
Или вы думаете, что паскаль умный и сам должен догадаться, что это дерево и его нужно ввести?
0
0 / 0 / 0
Регистрация: 28.03.2016
Сообщений: 12
19.04.2017, 08:35  [ТС] 11
Я не понимаю, как сделать ввод данных в сами листья, чтобы в конечном итоге выдать результат. А вы у меня "такое" спрашиваете)
0
4537 / 2249 / 2181
Регистрация: 10.12.2014
Сообщений: 8,611
19.04.2017, 08:44 12
Цитата Сообщение от Shoku Посмотреть сообщение
Я не понимаю, как сделать ввод данных в сами листья,
Ответ в приведённой выше ссылке…
Там только заменить нужно одну стандартную функцию.

Цитата Сообщение от Shoku Посмотреть сообщение
А вы у меня "такое" спрашиваете)
Ну, тогда вам не на форум нужно.
Вам тогда нужно в букварь по ЯП паскаль и в лекции!
0
0 / 0 / 0
Регистрация: 28.03.2016
Сообщений: 12
19.04.2017, 08:55  [ТС] 13
Спасибо за помощь
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.04.2017, 08:55

Описать рекурсивную процедуру, которая печатает отрицательные элементы массива вещественных чисел.
Доброго времени суток! дорогие друзья, нужна ваша помощь буду благодарен) Тут такая задачка на...

Написать процедуру, которая печатает (по одному разу) все вершины дерева
Написать процедуру, которая печатает (по одному разу) все вершины дерева. Что-то я не могу догнать,...

Написать процедуру, которая удаляет из дерева все четные элементы
Помогите написать процедуру, которая удаляет из дерева все четные элементы.

Вывести элементы из всех листьев дерева
Здравствуйте, помогите пожалуйста с заданием по прологу, нужно вывести элементы из всех листьев...

Написать процедуру, которая складывает максимальный и минимальный элементы непустого дерева
Написать процедуру, которая складывает максимальный и минимальный элементы непустого дерева Т,...

Разработать рекурсивную процедуру, которая печатает на экране двоичное представление заданного числа
Разработайте рекурсивную процедуру, которая печатает на экране двоичное представление заданного...


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

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

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