Grafos

program Grafos (input, output); type matriz = array[1 .. 10, 1 .. 10] of integer; vector = array[1 .. 10] of integer; var M: matriz; v: vector; parar:boolean; {Ler as arestas construindo a matriz de adjacencia do grafo G} procedure LerArestas (var M: matriz; var parar: boolean); var i, j, a, b: integer; begin for i:=1 to 10 do for j:= 1 to 10 do M[i, j]:=0; writeln('Insira as arestas de G, indicando-as atrave''s de uma lista dos pares de ve''rtices que incidem em cada uma. Quando terminar insira a aresta imagina''ria 0 0. '); a:=1; b:=1; while (a>0) and (a0) and (b0) and (a0) and (b0) and (a0) and (a10); i:=i+1; until Tem or (i>10); TemArestas:=Tem; end; {Escrita das arestas do subgrafo} {Este procedimento so e chamado se o subgrafo tiver arestas} procedure EscreverArestas(M: matriz; v: vector); var i, j: integer; begin writeln('As arestas do subgrafo de G definido por tais ve''rtices sao: '); for i:=1 to 10 do for j:=1 to 10 do if (v[i]=1) and (v[j]=1) and (M[i,j]=1) then begin write('(',i,',',j,')'); writeln; end; end; begin writeln('Este programa pede ao utilizador as arestas de um grafo G e um conjunto de ve''rtices de um subgrafo de G. Seguidamente devolve as arestas formadas pelos ve''rtices do subgrafo de G. '); writeln('Nota: O nu''mero de ve''rtices do grafo G