Cod sursa(job #1606746)

Utilizator noi_totinoi toti noi_toti Data 20 februarie 2016 14:54:31
Problema Parcurgere DFS - componente conexe Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 1.15 kb
program graf;
uses crt;
type matrice=array [1..100,1..100] of integer;
var  f,g:text;
     m,n,i,j,d,q,p,o:integer;
     a,b:matrice;
procedure citire_muchii(m:integer; var a:matrice);
begin
  for q:=1 to m do
  for p:=1 to m do
  begin
    readln(f,a[q,p]);
  end;
end;
procedure initi_diagonala(n:integer;var b:matrice);
begin
  for q:=1 to n do
   b[q,q]:=0;
end;
procedure init_elem_deasupra_diag(n,m:integer; var b:matrice; a:matrice);
begin
  for i:=1 to n-1 do
   for j:=i+1 to  n do
    begin
     for q:=1 to m do
     for p:=1 to m do
       begin
        d:=a[q,p];
        o:=a[q,p+1];
         b[d,o]:=1;b[o,d]:=1;
       end;
end;
end;
begin
clrscr;
  assign(f,'dfs.in');
  reset(f);
  assign(g,'dfs.out');
  rewrite(g);
  readln(f,n);
  readln(f,m);
  citire_muchii(m,a);
  initi_diagonala(n,b);
  init_elem_deasupra_diag(n,m,b,a);
    for i:=1 to n do
    for j:=1 to n do
    begin
      write(b[i,j]);
    end;
 close(f);
 close(g);
end.
















  ;
  for i:=1 to n-1 do
  for j:=i+1 to n  do
  begin
     for i

     :=1 to m do
     begin
       if i
     end;
  end;
end.