Wieża hanoi

Statyczna

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;

Dynamiczna

program Viezha_Hanoi;
uses crt;
type
   PKranzhek=^TKranzhek;
   TKranzhek=record
      Vielkosc: byte; //Numer/Wielkosc krażka
      Ktohry:byte;//Informacja ile krążk˘w jest na paliku
      Next:PKranzhek;//Wskaźnik do poprzedniego krążka
   end;
   TPaliki=array[0..2] of PKranzhek;

const a=3;

var
   i:byte;// gówny licznik
   n:longint;//liczba krążk˘w, liczba z zkakresu 1-62
   Paliki:TPaliki;//tablica  wskaźnik˘w do najwyższych krążk˘w
{
Funkcja zdejmuje krążek z palika
Funkcja popiera przez :
* zmienną wskaźnik do ostatniego krążka na paliku
* warto˜† informacje na którym paliku znajduje się krążek potrzebną do wizualizacji wieży
Funkcja zwraca numer krążka
}
function ZdejmijKranzhek(var Kranzhek:PKranzhek; start:byte): byte;
var Stary:PKranzhek;
begin
   gotoXY(a*start+1,n+1-Kranzhek^.ktohry);
   write('   ');//}
   ZdejmijKranzhek:=Kranzhek^.Vielkosc;
   Stary:=Kranzhek^.Next;
   //Dispose(Kranzhek);
   Kranzhek:=Stary;
end;
{
Procedura zakˆada krążek na palik
Procedura pobiera przez :
* zmienną wskaźnik do ostatniego krązka na paliku
* warto˜† informacje na kt˘rym paliku znajduje się krążek potrzebną do wizualizacji wieży
* warto˜† wielko˜† wolnego krążka kt˘ry zakˆada na palik
}
procedure PoluzhKranzhek(var Kranzhek:PKranzhek; stop:byte; Frisbee:byte);
var Novy:PKranzhek;
begin
   Novy:=Kranzhek;
   New(Kranzhek);
   if Novy=nil
   then Kranzhek^.Ktohry:=1
   else Kranzhek^.Ktohry:=Novy^.Ktohry+1;
   Kranzhek^.Vielkosc:=Frisbee;
   Kranzhek^.Next:=Novy;
   textcolor(Kranzhek^.Vielkosc mod 15+1);
   gotoXY(a*stop+1,n+1-Kranzhek^.ktohry);
   write(Kranzhek^.Vielkosc);
   readln;
end;
{
Procedura pobiera :
* przez warto˜† liczbę krążk˘w
* przez zmienną tablice wskaźnik˘w do trzech najwyższych krążk˘w
* informacje kt˘ry palik jest kt˘ry
(ponieważ procedura jest wywoˆywana rekurencyjnie paliki zamieniają sie miejscami o inaczej nie umiaˆem ich wy˜wietla†)

}
procedure rekurencja(n:byte; var Paliki:TPaliki; start,stop,bufor:byte);
begin
   if n>0 then begin
      rekurencja(n-1,Paliki, start,bufor,stop);
      PoluzhKranzhek(Paliki[Stop],Stop,ZdejmijKranzhek(Paliki[Start],Start));
      rekurencja(n-1, Paliki, Bufor,Stop,Start);
   end;
end;

{Sˆuży do sprawdzania czy podany ciąg znak˘w przez użytkownika jest liczbą, je˜li nie zwraca kod bˆędu
Procedura pobiera (a raczej zwraca) przez warto˜† liczbę  "n" i kod bˆędu "i"
}
procedure Wczytaj(var n:longint;var i:byte);
var s:string;//przechowuje ˆaäcuch wczytany z klawiatury
begin
   Readln(s);
   val(s,n,i);
end;

BEGIN
   clrscr;
   Writeln('Zmaksymalizuj okno');
   Writeln('Witaj w programie rozwiązujęcym wieże Hanoi');
   Write('Podaj liczbę krążk˘w z zakresu 1-24: ');
   Wczytaj(n,i);
   while (i>0) or (n<1)or(n>24) do begin
      writeln('Bˆąd warto˜ci liczby');
      Write('Podaj nową liczbę: ');
      Wczytaj(n,i);
   end;
   clrscr;
   gotoXY(1,n+1);
   write('Kliknij "Enter" żeby kontynuowa†: ');
   for i:=n downto 1 do PoluzhKranzhek(Paliki[0],0,i);
   rekurencja(n,Paliki,0,1,2);
   gotoXY(1,n+1);
   textcolor(15);
   readkey;
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

_edit_ . _edit sections_