rograf1.pas

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

var a:array[1..50,1..50] of integer;
    v:array[1..50] of integer;
    m,n,i,j,k,x,y,p:integer;
    f:text;
    ok1,ok2: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;
                 a[j,i]:=1;
                 end;
readln(f);
for i:=1 to p do
              read(f,v[i]);
close(f);
ok1:=true;
ok2:=true;
for i:=1 to p-1 do
                begin
                x:=v[i];
                y:=v[i+1];
                if a[x,y]<>1 then ok1:=false;
                end;
if ok1 then write('e lant')
       else write('nu e lant');
 if ok1 then begin
             for i:=1 to n-1 do
             for j:=i+1 to n do
             if v[i]=v[j] then ok2:=false;
             if ok2 then write(' elementar');
             end;
readln;
end.