Unit Gioco24 |
Classes |
TForm1 -
TOrdinoThread -
Functions |
setta - copia la permutazione secondo il "listing order" definito da
Averbach, tralasciando la tessera vuota, poi conta il numero di "inversioni"
Types |
pint
solnoninserite
soluzioni
status
Constants |
Altre_Sol
Ha_Fallito
MIARESETTA
MIATESSERAINREV
Mosse_Errate
nomi
Non_hai_Provato
Non_Usato
Ottimo_Trovato
Stato_Fermato
Unica_Sol
Variables |
commento
confinal
cont
Form1
immetticosa
infogenerali
informazione
quale
qualenonins
risposnonins
risposta
solnoninsord
solord
tessereon
totale2
Functions |
Types |
pint=^integer
solnoninserite = record
tempo : integer;
numosse : SmallInt;
prossima : SmallInt;
alg : SmallInt;
minima : ByteBool;
quante : Byte;
end;
soluzioni = record
numosse : SmallInt;
quante : SmallInt;
tempo : integer;
alg : SmallInt;
prossima : Byte;
minima : ByteBool;
stato : status;
mosse : array[0..499] of byte;
end;
status=(soluzionebuona,fallimento,errore);
Constants |
Variables |