Re: [obm-l] Torre de Hanoi

2006-02-16 Por tôpico Aldo Munhoz
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

Re: [obm-l] Torre de Hanoi

2006-02-16 Por tôpico Aldo Munhoz
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

[obm-l] Torre de Hanoi

2006-02-16 Por tôpico Alamir Rodrigues
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