Re: [obm-l] Torre de Hanoi

[Aldo Munhoz <amunhoz@xxxxxxxxx>]

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_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

      hanoi2(n-1,a,c,d,b);

      writeln('leve o disco ',n,' de ',a,' para ',d);

    end;

end;

var n:integer;

    a,b,c,d:char;

Begin

  clrscr;

  a:='a';b:='b';c:='c';d:='d';

  writeln('Entre com o n§ de elementos: ');

  readln(n);

  hanoi2(n,a,b,c,d);

  readkey;

End.

 

Os passos são:

 

- Leve 1 e 2 de A para C;

- Leve 3 de A para B;

- Leve 4 de A para D;

- Leve 3 de B para D;

- Leve 1 e 2 de C para D.

========================================================================= Instruções para entrar na lista, sair da lista e usar a lista em http://www.mat.puc-rio.br/~nicolau/olimp/obm-l.html =========================================================================