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


procedure setta(pun:Pbyte);

copia la permutazione secondo il "listing order" definito da Averbach, tralasciando la tessera vuota, poi conta il numero di "inversioni"

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

Altre_Sol = 4

Ha_Fallito = 0

MIARESETTA = WM_USER+2

MIATESSERAINREV = WM_USER+3

Mosse_Errate = 1000000

nomi = (' Human',' HumanB',' HumanC',' HumanD', ' Your sol')

Non_hai_Provato = 6

Non_Usato = 5

Ottimo_Trovato = 2

Stato_Fermato = 1

Unica_Sol = 3


Variables

commento : array[0..801] of char

confinal : array [0..24] of byte

cont : boolean

Form1 : TForm1

immetticosa : integer

infogenerali : boolean

informazione : array[0..9] of Integer

quale : integer

qualenonins : integer

risposnonins : array[0..100] of solnoninserite

risposta : array [0..100] of soluzioni

solnoninsord : integer

solord : integer

tessereon : boolean

totale2 : integer