rograff6.pas

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

var a:array[1..50,1..50] of integer;
    k,x,y,c,m,n:integer;
    f:text;
procedure urmas(x:integer);
var i,j:integer;
begin
for i:=1 to m do if a[x,i]=1 then
   for j:=1 to n do if a[j,i]=-1 then write(j,' ');
end;
begin
assign(f,'graf.txt ');reset(f);
readln(f,n,m,x,y);
c:=0;
for k:=1 to m do begin
                 inc(c);
                 readln(f,x,y);
                 a[x,c]:=1;
                 a[y,c]:=-1;
                 end;
close(f);
for k:=1 to n do begin
                 urmas(k);
                 writeln;
                 end;
readln;
end.