rograff8.pas

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

var a:array[1..50,1..50] of integer;
    m,n,i,j,k:integer;
    f:text;
    ok:boolean;
begin
assign(f,'graf.txt ');
reset(f);
readln(f,n,m);
for k:=1 to m do begin
                 readln(f,i,j);
                 a[i,j]:=1;
                 end;
for k:=1 to n do
  for i:=1 to n do
     for j:=1 to n do
          if(i<>j) and (i<>k)then
             if a[i,j]=0 then a[i,j]:=a[i,k]*a[k,j];
ok:=false;
for i:=1 to n do
    if a[i,i]=1 then ok:=true;
if ok then write('are cicluri')
      else write('nu are cicluri');
readln;
end.