Mógłby mi ktoś stworzyć procedury do czegoś takiego:
- utworzenie grafu w implementacji listy sąsiedztwa
- sprawdzenie czy dany ciąg wierzchołków stanowi cykl w grafie skierowanym,
- zamiana grafu skierowanego na nieskierowany (w implementacji listy i macierzy sąsiedztwa),
- usunięcie węzła z grafu.
Mam tak zdefiniowany typ:
type wsk=^wezel;
wezel=record
nr_wezla:wsk;
end;
graf=array[1..n] of wsk;
var
g:graf;
for i:=1 to n do
begin
g[i]:=nil;