| Россия, Санкт-Петербург |
Преподаватель
Вы можете этот курс.
Опубликован: 08.11.2006 | Уровень: специалист | Доступ: свободно
Лекция 11:
Алгоритмы на абстрактных структурах данных
Аннотация: Введение. Стеки. Очереди. Связанные списки. Двоичные деревья.
Ключевые слова: программирование, алгоритм, структура данных, стек, загрузка, LIFO, Указатель стека, SP, stack pointer, индекс, адрес, операции, указатель, диск, программа, очередь, head, tail, FIFO, связанный список, однонаправленный связанный список, список, значение, nil, исключение, связь, дерево, граф, вершины графа, ребрами графа, ребро, прямой, путь, Граф связной, Замкнутый путь, цикл, Связный граф, ориентированным, Двоичное дерево, ориентированное дерево
Введение
Н. Вирт определил программирование как алгоритм + структуры данных. При этом структура данных может не зависеть от конкретных языковых конструкций (абстрактная структура данных).
Рассмотрим некоторые основные структуры данных.
Стеки
Стеком называется одномерная структура данных, загрузка или увеличение элементов для которой осуществляется с помощью указателя стека в соответствии с правилом LIFO ("last-in, first-out" "последним введен,первым выведен").
Указатель стека sp (stack pointer) содержит в любой момент времени индекс (адрес) текущего элемента, который является единственным элементом стека, доступным в данный момент времени для обработки.
Существуют следующие основные базисные операции для работы со стеком (для случая, когда указатель стека всегда задает ячейку, находящуюся непосредственно над его верхним элементом).
- Начальная установка:
Sp:=1;
- Загрузка элемента x в стек:
Stack[sp]:=x; Sp:=sp+1;
- Извлечение элемента из стека:
Sp:=sp-1; X:=stack[sp];
- Проверка на переполнение и загрузка элемента в стек:
If sp<=sd then
Begin stack[sp]:=x; sp:=sp+1 end
Else
\{ переполнение \};
Здесь sd - размерность стека.- Проверка наличия элементов и извлечение элемента стека:
If sp>1 then
Begin sp:=sp-1; x:=stack[sp] end
Else
\{ антипереполнение \}- Чтение данных из указателя стека без извлечения элемента:
x:=stack[sp-1].
Программа 1. Работа со стеком.
{Реализованы основные базисные операции для работы со стеком.
Программа написана на языке программирования Turbo-Pascal }
uses crt,graph;
type PEl=^El;
El=record
n:byte;
next:PEl;
end;
var ster:array[1..3] of PEl;
number: byte;
p:PEl;
th,l: integer;
i:integer;
nhod:word;
s:string;
procedure hod(n,f,t:integer);
begin
if n>1 then begin
hod(n-1,f,6-(f+t));
hod(1,f,t);
hod(n-1,6-(f+t),t);
end else begin
p:=ster[f];
ster[f]:=ster[f]^.next;
p^.next:=ster[t];
ster[t]:=p;
inc(nhod);
str(nhod,s);
{**********************************************************}
setfillstyle(1,0);bar(0,0,50,10);
setcolor(2);outtextxy(0,0,s);
setfillstyle(1,0);setcolor(0);p:=ster[f];i:=1;
while p<>nil do begin p:=p^.next;inc(i);end;
fillellipse(160*f,460-(i-1)*th,(number-ster[t]^.n+1)*l,10);
setfillstyle(1,4);setcolor(4);p:=ster[t];i:=1;
while p<>nil do begin fillellipse(160*t,460-(i-1)*th,(number-
ster[t]^.n+1)*l,10);inc(i);p:=p^.next;end;
{**********************************************************}
{ readkey;}{delay(50);}
end;
end;
procedure start;
var i:integer;grD,grM: Integer;
begin
clrscr;write('Enter the number of rings, please.');readln(number);
for i:=1 to 3 do ster[i]:=nil;
for i:=1 to number do begin new(p);p^.n:=i;p^.next:=ster[1];ster[1]:=p;end;
nhod:=0;
grD:=Detect;{InitGraph(grD,grM,'');}InitGraph(grD,grM,'c:\borland\tp\bgi');
th:=20;l:=round(50/number);
setfillstyle(1,4);setcolor(4);
for i:=1 to number do begin fillellipse(160,460-(i-1)*th,(number-
i+1)*l,10);end;
end;
begin
start;
{readkey;}
hod(number,1,3);
{closegraph;}
end.