Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
3 / 1 / 1
Регистрация: 14.11.2013
Сообщений: 164

Опишите рекурсивную функцию или процедуру, которая печатает дерево-формулу Т в виде, соответствующей формулы

21.05.2014, 15:55. Показов 1468. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Формулу вида
<формула>::=<терминал>|(<формула><знак>< формула>)
<знак>::=+|-|*
<терминал>::=0|1|2|3|4|5|6|7|8|9
можно представить в виде двоичного дерева с элементами типа char по следующим правилам: формула из одного терминала (цифры) представляется деревом из одной вершины с этим терминалом, а формула вида (f1sf2) – деревом, в котором корень – это знак s, а левое и правое поддеревья – это соответствующие представления формул f1 и f2.
Опишите рекурсивную функцию или процедуру, которая печатает дерево-формулу Т в виде соответствующей формулы;
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
21.05.2014, 15:55
Ответы с готовыми решениями:

Написать рекурсивную процедуру или функцию, которая определяет, входит ли элемент в дерево T
По таблице написать рекурсивную процедуру или функцию, которая определяет, входит ли элемент в дерево T Таблица 3.2 - Расписание N...

Опишите процедуру или функцию, которая меняет местами первый и последний элементы непустого списка
Используйте линейные списки для хранения последовательности вещественных чисел. Опишите процедуру или функцию, которая: а) меняет...

Описать рекурсивную функцию или процедуру, которая добавляет новый элемент Е в конец списка L
Описать рекурсивную функцию или процедуру, которая добавляет новый элемент Е в конец списка L

6
3 / 1 / 1
Регистрация: 14.11.2013
Сообщений: 164
26.05.2014, 22:41  [ТС]
помогите решить плизз
0
3 / 1 / 1
Регистрация: 14.11.2013
Сообщений: 164
04.06.2014, 16:51  [ТС]
помогите решить
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33184 / 21482 / 8231
Регистрация: 22.10.2011
Сообщений: 36,851
Записей в блоге: 12
04.06.2014, 22:58
Это ты с 21-го мая так ничего и не сделал? Хм...

Ну, скажем, простейший симметричный обход: "левое поддерево - корень - правое поддерево" попробуй:
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
{$mode objfpc}
type
  ptree = ^ttree;
  ttree =
  record
    data : string;
    left, right : ptree;
  end;
 
function MakeTree(s : string; left_tree, right_tree : ptree) : ptree;
begin
  new(result);
  result^.data := s;
  result^.left := left_tree;
  result^.right := right_tree;
end;
 
procedure Symm(root : ptree);
begin
  if root = nil then exit;
  Symm(root^.right);
  write(root^.data);
  Symm(root^.left);
end;
 
var
  root : ptree;
 
begin
  root :=
    MakeTree('+',
             MakeTree('5', nil, nil),
             MakeTree('*',
                      MakeTree('4', nil, nil),
                      MakeTree('+',
                               MakeTree('2', nil, nil),
                               MakeTree('8', nil, nil))));
 
  Symm(root);
  // тут не забыть удалить дерево
end.
0
3 / 1 / 1
Регистрация: 14.11.2013
Сообщений: 164
05.06.2014, 18:47  [ТС]
она не работает(
Миниатюры
Опишите рекурсивную функцию или процедуру, которая печатает дерево-формулу Т в виде, соответствующей формулы  
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33184 / 21482 / 8231
Регистрация: 22.10.2011
Сообщений: 36,851
Записей в блоге: 12
05.06.2014, 19:07
Цитата Сообщение от Sashok1996 Посмотреть сообщение
она не работает(
Да что ты говоришь... Неужели?



А теперь попробуй объяснить мне, чем ты руководствовался, когда первую строку моего кода просто взял и выкинул. Ну, взял бы еще десяток строк выкинул, оно бы тоже не работало. Чего только одной-то ограничился? Это НЕ комментарий, и если я это написал, значит
1) оно работает
2) изменять код НЕ НУЖНО, нужно взять его полностью (не придумывая отсебятины), и посмотреть, как он работает...

От темы отписался... Интерес к автору потерян...
0
3 / 1 / 1
Регистрация: 14.11.2013
Сообщений: 164
06.06.2014, 10:41  [ТС]
а почему она не показывает дерево...и вообще ни чего не показвает?

Добавлено через 3 часа 23 минуты
работает но ни чего не показвает

Добавлено через 12 часов 4 минуты
Так почему она ни чего не показвает?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
06.06.2014, 10:41
Помогаю со студенческими работами здесь

Опишите процедуру или функцию, которая для данного списка L создает список L1, содержащий только положительные элементы
помогите плиз решить задачу на паскале, не могу понять никак. Используйте линейные списки для хранения последовательности чисел. Опишите...

Описать процедуру или функцию,которая определяет число вхождений элемента Е в дерево T
Привет всем,оч. нужна помощь в этих задачках 1) Описать функцию или процедуру,которая: Определяет,яляется ли список L...

Опишите функцию, которая для числа Черча возвращает строку из символов '*' соответствующей длины
Всем привет! Буду благодарен, если поможете Опишите функцию, которая для числа Черча возвращает строку из символов '*' соответствующей...

Написать рекурсивную процедуру, которая печатает элементы из всех листьев дерева
Добрый день! Прошу помочь с написанием программы: Написать рекурсивную процедуру, которая печатает элементы из всех листьев дерева. ...

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


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
Фото: Daniel Greenwood
kumehtar 13.11.2025
Расскажи мне о Мире, бродяга
kumehtar 12.11.2025
— Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru