Dê uma olhada em
http://www.lsd.ic.unicamp.br/projetos/e-lane/introPascal/aula10.html
para mais detalhes
Alamir Rodrigues wrote:
Estou tentando implementar a torre de Hanoi em pascal, mas até
agora só consegui chegar a metade do problema, alguém pode me ajudar?
program ex_hano
Alamir,
Eu fiz este código há muito tempo, mas talvez ainda funcione. Hehehe
program TorreDeHanoi;
uses crt,extra,EXGRAPH,zentimer;
const Max=31;
type tpinos = array[1..Max,1..3] of integer;
var Pinos : tpinos;
ndiscos : word;
NTrocas : longint;
Procedure InicializaHanoi(npinos : w
Estou tentando implementar a torre de Hanoi em pascal, mas até agora só consegui chegar a metade do problema, alguém pode me ajudar?
program ex_hanoi2;
uses crt;
procedure hanoi2 (n:integer; a,b,c,d:char);
begin
if n=2 then
writeln('leve os discos 1 e 2 de ',a,' para ',d)
else
begin
3 matches
Mail list logo