Лекция: 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.