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 >
Encoding:
Commodore BASIC  |  1993-01-01  |  323 b   |  9 lines
  1. 10 poke53281,0:poke53280,11:printchr$(154)chr$(142):a=-1
  2. 20 print:poke198,0:input" fakultaet von ";a:ifa<0ora><int(a)then20
  3. 30 ti$="000000":t1=ti:f$=str$(a)+"! ="
  4. 40 print:ifa<34thenc=1:ford=1toa:c=c*d:next:printf$c:goto70
  5. 50 c=(log(2*(NULL)*a)/2+a*log(a)+1/12/a-a)/log(10):e=int(c)
  6. 60 printf$str$(10^(c-e))"e+"mid$(str$(e),2)
  7. 70 t2=ti:print:print(t2-t1)/60"sek. rechenzeit."
  8. 80 rem (c) 1992 by g. siegel
  9.