then begin

kor:=v;

v^.l:= nil;

v^.r:= nil

End

else if v^.dat<kor^.dat

then bild(v,kor^.l) {заполнение левой ветви}

else bild(v,kor^.r) {заполнение правой ветви}

End;

procedure prosm(t:ptree); {просмотр в порядке возрастания}

Begin

if t^.l <> nil then prosm (t^.l);

writeln (t^.dat);

if t^.r<> nil then prosm (t^.r);

End;

procedure poisk(t:ptree); {линейный поиск в

begin неупорядоченном дереве}

writeln(' ',t^.dat);

if t^.dat=x

then writeln(' Нужный элемент найден!',t^.dat)

Else begin

if t^.l <> nil

then poisk(t^.l);

if t^.r <> nil

then poisk(t^.r);

End;

End;

procedure dv_poisk(t:ptree); {двоичный поиск в

begin упорядоченном дереве}

write(' ',t^.dat);

if t^.dat = x

Then begin

fl:=true;

Writeln;

writeln('Нужный элемент найден!',t^.dat)

End

else if (x<t^.bat)and(t^.l<>nil)

then dv_poisk (t^.l)

else if t^.r<>nil

then dv_poisk(t^.r)

End;

{****** ОСНОВНАЯ ПРОГРАММА ******}

Begin

kor:= nil;

for i:=l to k {строим упорядоченное дерево}

Do begin

New(t);

t^.dat:=a[i];

Build(t,kor);

End;

writeln('Просмотр дерева!');

Prosm(kor);

{или writeln ('Обход дерева! ');

obch(kor);}

Readln;

write(' Линейный поиск, введите х ');

Readln(x);

Poisk(kor);

writeln('Двоичный поиск: ');

fl:=false;

Dv_poisk(kor);

If not fl

then writeln (' " Элемент не найден!');

Readln

End.

Литература

1. Методы программирования: Учеб. Пособие / Под ред. Г.А. Угольницкого. – М.: Вузовская книга, 1999. – 280 с.

2. Фаронов В.В. Турбо Паскаль 7.0. Начальный курс: Учеб. пособие. –М .: Изд-во «Нолидж», 1997. – 616 с.

3. Фаронов В.В. Турбо Паскаль 7.0. Практика программирования: Учеб. пособие. –М.: Изд-во «Нолидж», 1997. – 432 с.

4. Марченко А.И., Марченко Л.А. Программирование в среде Turbo Pascal 7.0. –М.: Бином универсал, Киев: ЮНИОР, 1997. – 496 с.

5. Гусева А.И. Учимся информатике: задачи и методы их решения. – М.: Изд-во «Диалог-МИФИ», 1999. – 320 с.

6. Пильщиков В.Н. Сборник упражнений по языку Паскаль: Учеб. пособие для вузов. – М.: Наука. 1989. – 160 с.

Учебное издание

Козлов Георгий Валентинович

Смоляков Виктор Николаевич

Программирование на языке высокого уровня

Часть 1. Язык программирования Паскаль

Учебное пособие

Редактор Т.В. Бродская

Корректор Т.В. Бродская

Подписано в печать 29.12.03. Формат 60х84/16.

Бумага офсетная. Ризография. Усл. печ. л. 5,53.

Уч.-изд. л. 7,52. Тираж 60 экз. Изд. № 198. Заказ №

Ростовский государственный университет путей сообщения.

Ризография РГУПС.

Адрес университета: 344038, г.Ростов н/Д, пл. им. Ростовского стрелкового полка народного ополчения, 2.