Oggi ci è stato finalmente svelato il segreto della mossa del cavallo... ecco il programma di pascal per calcolare il massimo guadagno percorrendo la diagonale di un triangolo anzichè i due lati:
PROGRAM cavallo;
const passo=0.01;
var r:real; go,gn:real;
function g(r:real):real;
begin
g:=1-sqrt(1-(1+2/(r+1/r)));
end;
begin (*main*)
r:=0;
gn:=0;
repeat go:=gn;
gn:=g(r);until
gn<=go;
writeln('Il guadagno massimo è del ', go,'%');
readln(go)
end.
Non male, eh...
Iscriviti a:
Commenti sul post (Atom)

Nessun commento:
Posta un commento