Az alábbi letöltési lehetőségek közül választhatsz: (
segítség)
Típus: text/plain
Tartalmaz szöveget
Karakterkódolás: us-ascii
Méret: 1 KB
program elfogo;
uses
SysUtils;
const FNum = '1';
FName = 'elfogo';
FBe = FName+'.be'+FNum;
FKi = FName+'.ki'+FNum;
type TTomb = array[1..200,1..200] of boolean;
TVektor = array[1..200] of boolean;
var t : TTomb;
v : TVektor;
N : byte;
M : integer;
L : integer;
ki: textfile;
procedure load;
var be:textfile;
i:integer;
j,A,B:byte;
begin
assignfile(be,FBe);
reset(be);
readln(be,N);
readln(be,M);
for i:=1 to N do
begin
v[i]:=false;
for j:=1 to N do t[i,j]:=false;
end;
for i:=1 to M do
begin
readln(be,A,B);
t[a,b]:=true; t[b,a]:=true;
end;
L:=0;
assignfile(ki,FKi);
rewrite(ki);
writeln(ki,2*M+1);
end;
procedure outp(x:byte);
begin
write(ki,x,' ')
end;
procedure rek(x:byte);
var i:byte;
begin
outp(x);
for i:=1 to N do if t[x,i]and t[i,x] and not(v[i]) then
begin
v[x]:=true;
t[x,i]:=false;
rek(i);
outp(x);
v[x]:=false;
end;
end;
begin
load;
rek(1);
closefile(ki);
end.
