Eliminación de la Recursividad

Como ejemplo se utilizará el problema de las torres de Hanoi

Programa hanoi;

{$N+}

var

n:integer;

cont:comp;

Procedimiento movertorre (n, orig, dest, aux:integer; var cont:comp);

Inicio

si n=1 entonces

inicio

Escribir(`'paso de', orig, 'a', dest);

cont:=cont+1

fin_procedimiento

else

inicio

movertorr(n-1, orig, aux,,dest, cont);

Escribir(`'paso de', orig, 'a', dest);

cont:= cont + 1;

movertorre(n-1, aux, dest, orig, cont)

fin_procedimiento

fin;

inicio

cont:=0; escribir('nº de discos:'); leer (n);

movertorre(n,1,2,3, cont);

escribir(cons:15:0)

end.

Elaborado por ; Dinora Soto Castillo,. Dinora334@hotmail.com, dinorasoto2004@yahoo.comWebMaster : CIIUNA
WebMaster : CIIUNA.Optimizado para Internet Explorer y resolución 800x600.