Wieża hanoi
type
stos = 'a'..'c';
krazki = 1..64';
var
liczbakr : krazki;
pocz, doc, wolny : stos;
procedure przeloz(skad,dokad : stos);
begin
writeln(skad,'->',dokad);
end;
procedure przelozstos(ile : ksiazki; skad,dokad,roboczy : stos);
begin
if ile = 1 then
przeloz(skad,dokad);
else
begin
przelozstos(ile-1,skad,roboczy,dokad);
przeloz(skad,dokad);
przelozstos(ile-1,roboczy,dokad,skad);
end;
end;
Podobne strony
Podobne Strony • Szyfr Cezara • Hello World • Sortowanie Babelkowe • Rok Przestepny • wyswietlanie liczby calkowitej metodą odejmowania poteg • Parzysta Nieparzysta • Ruchoma Gwiazdka • Sortowanie Przez Wstawianie • Sortowanie Przez Wybieranie • Nww • Metoda Babelkowa • Miejsca Zerowe Funkcji Kwadratowej • Fibonacci
wersja strony: 2, ostatnia edycja: 03 Apr 2009 19:44