| |
|
|
p.specht
| Stellenzahl of Faktoriellen x!, from x accounts:
Window Title "Stellenzahl of/ one Fakultät(n) via Bernoulli-Koeffizienten-Näherung"
cls:declare n!:loop:
input n!' deference: the ! mark Profan-Float, not the "Fakultät"-characters...
print int(1+((n!+.5)*ln(n!)-n!+1/(12*n!)-1/(360*n!^3)+1/(1260*n!^5)1/(1680*n!^7)+ln(2*@Pi())/2)/ln(10))
goto "loop"
P.s.: The Faktorielle a number n>5 has ca. int(n/4+0.5)-1 Folgenullen ! |
|
|
| XProfan 11Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'... | 06/14/21 ▲ |
|
|
|