{A ver si esto te ayuda}
program camino_fleury ;
uses
crt;
type
fichas = record
fn1, fn2 : integer;
end;
var
l, y, x, k : longint;
ma : array[0..6] of longint;
fih : array[1..100] of fichas;
vistas : array[0..6] of boolean;
mesa : array[0..6,0..6] of longint;
function esimpar(var t : longint) : longint;
var
r, w : longint;
begin
fillchar(ma,sizeof(ma),0);
for r := 1 to x do
begin
inc(ma[fih[r].fn1]);
inc(ma[fih[r].fn2]);
end;
w := 0;
k := fih[1].fn1;
for r := 0 to 6 do
if (odd(ma[r])) then
begin
inc(w);
k := r;
end;
esimpar := w;
end;
procedure sevisita(m : longint);
var
r : longint;
begin
vistas[m] := true;
for r := 0 to 6 do
if (mesa[m,r] or mesa[r,m] <> 0) and
(not vistas[r]) then
sevisita(r);
end;
function esconexa(q : longint) : boolean;
var
r : longint;
w : boolean;
begin
w := true;
fillchar(vistas,sizeof(vistas),false);
sevisita(q);
for r := 0 to 6 do
if (ma[r] <> 0) and (not vistas[r]) then
w := false;
esconexa := w;
end;
function espuente(fih : fichas) : boolean;
var
j : boolean;
begin
dec(mesa[fih.fn1,fih.fn2]);
dec(ma[fih.fn1]);
dec(ma[fih.fn2]);
j := not esconexa(fih.fn1 + fih.fn2 - k);
inc(mesa[fih.fn1,fih.fn2]);
inc(ma[fih.fn1]);
inc(ma[fih.fn2]);
espuente := j;
end;
procedure caminoeuleriano;
var
z, d : longint;
es : array[1..100] of boolean;
begin
fillchar(es,sizeof(es),false);
for z := 1 to x do
for d := 1 to x do
if (not es[d]) and ((fih[d].fn1 = k) or
(fih[d].fn2 = k)) and (not espuente(fih[d])) then
begin
es[d] := true;
dec(mesa[fih[d].fn1,fih[d].fn2]);
dec(ma[fih[d].fn1]);
dec(ma[fih[d].fn2]);
if fih[d].fn1 = k then
writeln(output,d,' +')
else
writeln(output,d,' -');
k := (fih[d].fn1 + fih[d].fn2) - k;
break;
end;
end;
begin
write(' Entre Tama¤o Del Array : '); readln(x);
fillchar(mesa,sizeof(mesa),0);
for y := 1 to x do
begin
write(' Entre Valor Del 1 = ',y,' : '); readln(fih[y].fn1);
write(' Entre Valor Del 2 = ',y,' : '); readln(fih[y].fn2);
end;
clrscr;
for l := 1 to x do
writeln(' ',fih[l].fn1,' ',fih[l].fn2); writeln;
if (esimpar(k) < 3) and (esconexa(k)) then
caminoeuleriano
else
writeln(output,'No solucion');
readkey;
end.
Crear cuenta