Студопедия — Пример №2
Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Пример №2






Program D1;

Const

n = 10; {Поле z (ниже) моделирует любые данные в записи,}

Type pt=^uzl;

uzl=Record

lson, rson: pt;

kl:byte;

End; {lson (rson) - ссылки на левого(правого) сына узла}

Var

j:word;

y:uzl;

coren:pt;

Procedure Vkl(Var cor:pt; y:uzl); {cor - ссылка на корень}

Var

nov,ss,tt: pt;

b: Boolean;

Begin

New(nov);

nov^:= y; {Порождение и заполнение переменной nov^;}

If cor = Nil Then

cor:= nov {если дерево пусто, делаем ее корнем}

Else {Цикл движения по трассе поиска:}

Begin

tt:= cor;

Repeat

ss:= tt;

b:= y.kl < ss^.kl;

If b Then

tt:= tt^.lson

Else

tt:= tt^.rson

Until tt = Nil;

If b Then

ss^.lson:= nov

Else

ss^.rson:= nov

End {Произошло связыванием нового узла с найденным отцом ss^}

End;

Procedure Obrab(ss:pt);

Begin

Write(‘SS=’ss^.kl:5)

End;

Procedure Obhod(ss:pt); {Блок обхода БДУ слева}

{Ниже описывается тип элементов стека; в нем поле

sl - ссылка на узел БДУ, ssl - цепная связь в стеке}

Type

pnt=^z;

z=Record

sl:pt;

ssl:pnt

End;

Var

tt: pt;

q,t: pnt; {t - ссылка на верхушку стека}

Begin

t:= Nil; {стек - пуст}

Repeat

While ss <> Nil do

Begin

While ss^.lson <> Nil do {"Левая" трасса}

Begin {Очередной узел включается в стек: }

New(q);

q^.sl:= ss;

q^.ssl:= t;

t:= q;

ss:= ss^.lson{Продвижение по трассе}

End;

Obrab(ss);

ss:= ss^.rson

End;

q:= t;

If t <> Nil Then

Begin

ss:=t^.sl;

t:= t^.ssl; {Взятие ссылки из стека}

Dispose(q); {Освобождение памяти}

Obrab(ss); {Обработка узла как корня поддерева}

ss:= ss^.rson {Начало обхода правого поддерева}

End

Until q = Nil {Если стек опустел, обход БДУ закончен}

End;

 

BEGIN

Randomize;

coren:= Nil; {Порождено пустое дерево упорядочения}

y.lson:= Nil;

y.rson:= Nil;

For j:= 1 to n do {Цикл включения n записей в дерево}

Begin

y.kl:= Random(50); {Переменная y подготовлена к включению}

writeln(‘y=’,y.kl)

Vkl (coren, y) {Включение в ДДУ нового узла - псевдослучайной записи}

End;

Obhod(coren); {Получение упорядоченной последовательности ключей}

Readln; { путем обхода дерева и их вывод}

END.

 







Дата добавления: 2015-08-12; просмотров: 365. Нарушение авторских прав; Мы поможем в написании вашей работы!



Обзор компонентов Multisim Компоненты – это основа любой схемы, это все элементы, из которых она состоит. Multisim оперирует с двумя категориями...

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

Важнейшие способы обработки и анализа рядов динамики Не во всех случаях эмпирические данные рядов динамики позволяют определить тенденцию изменения явления во времени...

ТЕОРЕТИЧЕСКАЯ МЕХАНИКА Статика является частью теоретической механики, изучающей условия, при ко­торых тело находится под действием заданной системы сил...

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

Мотивационная сфера личности, ее структура. Потребности и мотивы. Потребности и мотивы, их роль в организации деятельности...

Классификация ИС по признаку структурированности задач Так как основное назначение ИС – автоматизировать информационные процессы для решения определенных задач, то одна из основных классификаций – это классификация ИС по степени структурированности задач...

Тема: Изучение приспособленности организмов к среде обитания Цель:выяснить механизм образования приспособлений к среде обитания и их относительный характер, сделать вывод о том, что приспособленность – результат действия естественного отбора...

Тема: Изучение фенотипов местных сортов растений Цель: расширить знания о задачах современной селекции. Оборудование:пакетики семян различных сортов томатов...

Тема: Составление цепи питания Цель: расширить знания о биотических факторах среды. Оборудование:гербарные растения...

Studopedia.info - Студопедия - 2014-2024 год . (0.01 сек.) русская версия | украинская версия