cauciuc1.pas

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

program kil;
var v:array[1..50,1..50] of 0..1;
    f:text;
    m,i,j,n,x,y:integer;
begin
assign(f,'d:\tp\bin\graf.txt');
reset(f);
readln(f,n,m);
for i:=1 to m do   begin
                   readln(f,x,y);
                   v[x,y]:=1;
                   v[y,x]:=1;
                   end;
close(f);
for i:=1 to n do
           begin
              for j:=1 to n do  write(v[j,i],' ');
              writeln;
           end;
readln;
end.