Evo ti ranija rasprava o ovome...
Pretraga je cudo...

http://www.elitesecurity.org/tema/4274/0#34739

pozdrav

Imao sam ranije jednu knjigu tipa reseni zadaci u pascal jeziku od nekog Varge (cini mi se) u kojoj su bila resenja mnogih interesantnih problema. Ja sam je nekome dao davno tako da je sada nemam, ali se secam da je bila dosta dobra.

trebalo bi da ima u bilo kojoj knjizi o programiranju...to je jedan od prvih primera za rekurzivne procedure

Za Pascal:

Program hanojske_kule (input,output);
var n:integer;
procedure prebaci (n,x,y,z): integer);
begin
if n<>0 then
begin
prebaci (n-1,x,z,y);
writeln('prebaci disk sa štapa',x,' na štap ',y);
prebaci(n-1,z,y,x)
end
end;
begin
write(' koliko ima diskova? ');
readln(n);
prebaci(n,1,2,3);
end.
okay