XIII. Графы

Begin

Else

Begin

Стек

End.

Begin

new (p);

p^:=5;

new (q);

q^:=3;

p^:=q^

if p=q

then p:=nil;

else if p^=q^

then q:=p;

if p=q

then q^:=4;

writeln (p^,’ ‘,q^);

Стек – упорядоченный набор элементов, в котором добавление и удаление элементов происходит с одного конца.

«Последний ушел – первый ушел».

Описать стек можно так:

type pt=^elem;

elem= record

Data: integer;

Next: pt;

end;

var…

- Проверка наличия элементов в стеке:

function free (u: put): boolean;

if u=nil then

free:= false

free:= true;

end;

- Запись элемента в стек:

procedure WriteStack (var u: pt; dig: integer);

var x: pt;

new (x);

x^.data:=dig;

x^.next:=u;

u:=x;

end;

P P

Top Top

Top:=P^.link

Top:=P

Пример использования стека: инфиксная форма записи выражения (а+b)

Постфиксная форма: аb+

Префиксная форма: + аb

31 марта

СРС: Составить список смежности и матрицу инциденций для графа G

В узел можно поместить любую информацию.

Граф – множество V вершин и набор R неупорядоченных и упорядоченных пар вершин; обозначается G=(V,R).

Графы делят на ориентированные (орграфы) и неориентированные.

Дата добавления: 2014-01-20