Ferramentas de Usuário

Ferramentas de Site


dev_geral:pascal:snippet:hanoi

Torres de Hanoi

Program torreHanoi;
uses wincrt;
var n:integer;
 
  procedure hanoi(n:integer;a,b,c:char);
  {mova n discos do pino a para o pino b usando o pino c como auxiliar}
  begin
    if n=1
    then writeln('mova o disco ',n,' do pino ',a,' para o pino ',b)
    else
    begin
      hanoi(n-1,a,c,b);
      writeln('mova o disco ',n,' do pino ',a,' para o pino ',b);
      hanoi(n-1,c,b,a)
    end
  end;
 
begin
  write('TORRES DE HANOI. Quantos discos para mover? ');
  readln(n);
  hanoi(n,'A','B','C');
  readln; // pausa
end.
dev_geral/pascal/snippet/hanoi.txt · Última modificação em: 2018/05/14 21:37 (edição externa)