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

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

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

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

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

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

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

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

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

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

Решение

Динамические структуры данных (списки, очереди, стеки, деревья)
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