- Главная
- Разное
- Дизайн
- Бизнес и предпринимательство
- Аналитика
- Образование
- Развлечения
- Красота и здоровье
- Финансы
- Государство
- Путешествия
- Спорт
- Недвижимость
- Армия
- Графика
- Культурология
- Еда и кулинария
- Лингвистика
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Детские презентации
- Информатика
- История
- Литература
- Маркетинг
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Рекурсивные структуры данных презентация
Содержание
- 1. Рекурсивные структуры данных
- 2. Список Списком является пустой список (nil) Если
- 3. Работа со списками program testlist; type
- 4. Работа со списками procedure writelist(l : plist);
- 5. Двоичное дерево Деревом является пустое дерево Если
- 6. Работа с деревьями program testtree; type
- 7. Работа с деревьями procedure writetree(t : ptree;
- 8. Поиск в дереве function search(t : ptree;
- 9. Сортировка с помощью двоичного дерева procedure insert(var
Список Списком является пустой список (nil) Если l – список элементов типа a, e – элемент типа a, то cons(e,l) – список элементов типа a
Слайд 2Список
Списком является пустой список (nil)
Если l – список элементов типа a,
e – элемент типа a, то cons(e,l) – список элементов типа a
Слайд 3Работа со списками
program testlist;
type
plist = ^list;
list = record
el
: integer;
next : plist;
end;
function addEl(l : plist; el : integer) : plist;
var
pl : plist;
begin
New(pl);
pl^.el := el;
pl^.next := l;
addEl := pl;
end;
next : plist;
end;
function addEl(l : plist; el : integer) : plist;
var
pl : plist;
begin
New(pl);
pl^.el := el;
pl^.next := l;
addEl := pl;
end;
var
l : plist;
i : integer;
begin
l := nil;
for i := 1 to 10 do l := addEl(l,i);
end.
type
plist = ^list;
list = object
el : integer;
next : plist;
end;
Слайд 4Работа со списками
procedure writelist(l : plist);
begin
while l nil do
begin
write(l^.el,' ');
l := l^.next;
end;
end;
procedure writelistrec(l : plist);
begin
if l <> nil then begin
write(l^.el,' ');
writelistrec(l^.next);
end;
end;
write(l^.el,' ');
l := l^.next;
end;
end;
procedure writelistrec(l : plist);
begin
if l <> nil then begin
write(l^.el,' ');
writelistrec(l^.next);
end;
end;
Слайд 5Двоичное дерево
Деревом является пустое дерево
Если l 1, l 2– деревья элементов
типа a, e – элемент типа a, то tree(el,l1,l2) – дерево элементов типа a
Слайд 6Работа с деревьями
program testtree;
type
ptree = ^tree;
tree = record
el
: integer;
left, right : ptree;
end;
function addEl(l,r : ptree; el : integer) : ptree;
var
pl : ptree;
begin
New(pl);
pl^.el := el;
pl^.left := l;
pl^.right := r;
addEl := pl;
end;
left, right : ptree;
end;
function addEl(l,r : ptree; el : integer) : ptree;
var
pl : ptree;
begin
New(pl);
pl^.el := el;
pl^.left := l;
pl^.right := r;
addEl := pl;
end;
function copyTree(t : ptree) : ptree;
var
pt : ptree;
begin
if t = nil then copyTree := nil
else begin
New(pt);
pt^.el := t^.el;
pt^.left := copyTree(t^.left);
pt^.right := copyTree(t^.right);
copyTree := pt;
end;
end;
prevt := nil; t := addEl(nil,nil,i);
for i := 1 to 6 do begin
r := copyTree(prevt);
prevt := t;
t := addEl(t,r,i);
end;
Слайд 7Работа с деревьями
procedure writetree(t : ptree; level : integer);
var
i :
integer;
begin
if t <> nil then begin
writetree(t^.left,level+1);
for i := 1 to level do write(' ');
writeln(t^.el);
writetree(t^.right,level+1);
end;
end;
begin
if t <> nil then begin
writetree(t^.left,level+1);
for i := 1 to level do write(' ');
writeln(t^.el);
writetree(t^.right,level+1);
end;
end;
Слайд 8Поиск в дереве
function search(t : ptree; el : integer) : boolean;
begin
if t = nil then search := false
else
if el = t^.el then search := true
else if el < t^.el then search :=search(t^.left,el)
else search := search(t^.right,el)
end;
else
if el = t^.el then search := true
else if el < t^.el then search :=search(t^.left,el)
else search := search(t^.right,el)
end;
Слайд 9Сортировка с помощью двоичного дерева
procedure insert(var t : ptree; el :
integer);
begin
if t = nil then begin
New(t);
t^.el := el;
t^.left := nil;
t^.right := nil;
end
else
if el < t^.el then insert(t^.left,el)
else insert(t^.right,el)
end;
begin
if t = nil then begin
New(t);
t^.el := el;
t^.left := nil;
t^.right := nil;
end
else
if el < t^.el then insert(t^.left,el)
else insert(t^.right,el)
end;
