home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1993 March
/
64er_Magazin_93-03_1993_Markt__Technik_de_Side_A.d64
/
f-fakultaet
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
323b
|
9 lines
10 poke53281,0:poke53280,11:printchr$(154)chr$(142):a=-1
20 print:poke198,0:input" fakultaet von ";a:ifa<0ora><int(a)then20
30 ti$="000000":t1=ti:f$=str$(a)+"! ="
40 print:ifa<34thenc=1:ford=1toa:c=c*d:next:printf$c:goto70
50 c=(log(2*(NULL)*a)/2+a*log(a)+1/12/a-a)/log(10):e=int(c)
60 printf$str$(10^(c-e))"e+"mid$(str$(e),2)
70 t2=ti:print:print(t2-t1)/60"sek. rechenzeit."
80 rem (c) 1992 by g. siegel