type
TipoNodo = 1..NumNodi;
TipoGrafo = record
matr_adiacenza : array [TipoNodo, TipoNodo] of boolean
end;
procedure InitGrafo (var grafo: TipoGrafo);
var
i,j : TipoNodo;
begin
for i := 1 to NumNodi do
for j := 1 to NumNodi do
grafo.matr_adiacenza[i,j] := FALSE
end;
function TestEsisteArco (var grafo: TipoGrafo; i,j: TipoNodo): boolean;
begin
TestEsisteArco := grafo.matr_adiacenza[i,j]
end;
procedure InserArco (var grafo: TipoGrafo; i,j: TipoNodo);
begin
grafo.matr_adiacenza[i,j] := TRUE
end;
procedure ElimArco (var grafo: TipoGrafo; i,j: TipoNodo);
begin
grafo.matr_adiacenza[i,j] := FALSE
end;