Torres de Hanoi

[disasterpiece 0]

Este código não foi feito por mim, mas é muito giro. É o prograna do conhecido jogo ''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
 read(n);
 hanoi(n,'A','B','C')
end.

[sergiopinto 1]

Bom programa! 

[_4ndr3 0]

A interacção com o utilizador está fraca.