Fakultät - Listing

Dokumentation ansehen
Programmspeicher-Image laden

10	"F" WAIT 0:PRINT "Fakultaet von n :
20	INPUT "n = ";N:N=INT(N+.5)
30	IF N=12 LET F=479001600:GOTO 90
40	IF N=13 LET F=6227020800:GOTO 90
50	F=N*LN N - N + LN SQR(2*PI*N)+1/12/N-1/360/N^3+1/10800/N^5-1/604800/N^7
60	F=F+1/54432E3/N^9
70	IF N>13 THEN 100
80	F=INT EXP F + 1
90	PRINT STR$ N;"! = ";STR$ F:END
100	F=F/LN 10
110	E=INT F:M=INT(10^(F-E)*1E6+.5)/1E6
120	PRINT STR$ N;"! = ";STR$ M;" E ";STR$ E
130	WAIT
140	END

Dokumentation ansehen
Programmspeicher-Image laden