rograff9.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 29 行

type muchie=record
     x,y:integer;
     end;
var v:array[1..50] of muchie;
    w:array[1..50] of integer;
    m,n,i,j,k,p,q,l:integer;
    f:text;
begin
assign(f,'graf.txt');
reset(f);
readln(f,n,m);
for k:=1 to m do begin
                 readln(f,i,j);
                 v[k].x:=i;
                 v[k].y:=j;
                 end;
for k:=1 to n do w[k]:=k;
for k:=1 to m do begin
                 if w[v[k].x]=w[v[k].y] then write('eliminam',v[k].x,' ',v[k].y)
                                        else begin
                                             p:=w[v[k].x];
                                             q:=w[v[k].y];
                                             for l:=1 to n do
                                               if w[i]=q then w[i]:=p;
                                             end;

                  end;
readln;
end.