Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
mazahaler
4 / 4 / 3
Регистрация: 01.10.2015
Сообщений: 304
#1

Создайте программу обхода дерева по принципу левый – правый – корень - Turbo Pascal

02.02.2016, 12:05. Просмотров 315. Ответов 1
Метки нет (Все метки)

Создайте программу обхода дерева по принципу левый – правый – корень pls)0
http://www.cyberforum.ru/turbo-pascal/thread162377.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.02.2016, 12:05
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Создайте программу обхода дерева по принципу левый – правый – корень (Turbo Pascal):

Переставляя строки и столбцы матрицы, переместить max (min) элемент в левый (правый) верхний (нижний) угол
Дана квадратная матрица порядка n*n . Переставляя её строки и столбцы, добиться...

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

Написать подпрограмму прямого обхода двоичного дерева
Написать подпрограмму прямого обхода двоичного дерева.

Отсортировать массив методом симметричного обхода дерева
Как отсортировать массив методом симметричного обхода дерева?

Напишите программу «КОРЕНЬ», которая запрашивает число и выдает корень квадратный из заданного числа
Напишите программу «КОРЕНЬ», которая запрашивает число и выдает корень...

1
Торович
207 / 207 / 213
Регистрация: 03.07.2012
Сообщений: 443
02.02.2016, 17:14 #2
Лучший ответ Сообщение было отмечено mazahaler как решение

Решение

http://www.cyberforum.ru/turbo-pascal/thread77419.html#post772426
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
type
  TInf=integer;
  pTree=^Tree;
  Tree=record
    Inf:TInf;
    Left,Right:pTree;
  end;
procedure AddToTree(var aT:pTree;const aInf:TInf);
begin
  If aT=nil then begin
    New(aT);
    aT^.Inf:=aInf;
    aT^.Left:=nil;
    aT^.Right:=nil;
  end else if (aInf>=aT^.Inf) then AddToTree(aT^.Right,aInf)
  else AddToTree(aT^.Left,aInf);
end;
procedure PrintT(aT:pTree);
begin
  If aT=nil then exit;
  PrintT(aT^.Left);
  PrintT(aT^.Right);
  write(aT^.Inf:7);
end;
var T:pTree;
    i,n:integer;
    a:TInf;
begin
  T:=nil;
  write('Количество узлов в дереве: '); readln(n);
  randomize;
  for i := 1 to n do begin
    a:=random(51)-25;
    write(a:7);
    AddToTree(T,a);
  end;
  writeln;
  writeln('Постфиксный обход дерева:');
  PrintT(T);
  readln;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.02.2016, 17:14
Привет! Вот еще темы с решениями:

Совершить в бинарном дереве обход Правый - Корень - Левый
Нужно совершить обход Правый корень левый в бинарном дереве. #include...

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

Левый и правый блок
Пишу главную страницу сайта. Возникла проблема. Я сделал две колонки через...

Левый и правый двоичный поиск
Дано два списка чисел, числа в первом списке упорядочены по неубыванию. Для...


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

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

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