da li neko mozda ima uradjen problem hanojskih kula (kod u paskalu ili delpshi projekat) ? hvala unapred! :)
hanojske kule :))
Zaključano
Zakačeno
Evo ti ranija rasprava o ovome...
Pretraga je cudo...
https://www.elitesecurity.org/t4274#34739
pozdrav
Pretraga je cudo...
https://www.elitesecurity.org/t4274#34739
pozdrav
Potpis
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
Potpis
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
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