home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9111a.d64 / fakultaet (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  28 lines
  1. 1 POKE53280,9: POKE53281,11: POKE646,05: PRINT"[147]
  2. 2 [153]""[166]240)[166]243)"**********************************"[166]6)"(C)"[166]27)
  3. 3 [153]"PRGM"[166]6)"***    FAKULTAET BERECHNEN    ****"[166]6)"1983"[166]25)"LEMKE
  4. 4 PRINT"   **********************************
  5. 5 [153][163]15)"N=";: [159]1,0: [132]1,X$: [160]1
  6. 6 X[178][197](X$): [139] X[177]32767 [176] X[179]0 [137] 1
  7. 7 X%[178][181](X): [153]"  CMDCMDCMDCMDCMDCMD          ON": [153] [163]20)X%: XX[178]1: [139] X[179]1 [137] 11
  8. 8 [139] X[177]3248 [137] 15
  9. 9 [139] X[177]12 [137] 16
  10. 10 [129] P[178]X% [164] 1 [169][171]1: XX[178]P[172]XX: [130]
  11. 11 [153]"LOAD"[163]212)X%"CMDSYS!"[163]18)"= "XX: X[178][188](XX)[173][188](10): [137] 14
  12. 12 M[178][181](X): L[178]10[174](X[171]M): L$[178][200]([196](L),(12[171][195]([196](M)))): [153]"    "
  13. 13 [153]"LOAD"[163]250)X%"CMDSYS!"[163]18)"="L$" E"M
  14. 14 [153] [163]3)"LOG ("X%"CMDSYS! )"[163]18)"="X"": [156]: [137] 2
  15. 15 X[178](X%[172][188](X%[173][189](1))[170][188](2[172][255][172]X%)[173]2)[173][188](10): [137] 12
  16. 16 L[178]1[173]12[173]X%:X[178][188](2[172][255])[173]2[170]L[171]L[173]30[173]X%[173]X%[170]L[173]105[173]X%[174]4[171]L[173]140[173]X%[174]6
  17. 17 X[178](X[170](X%[170].5)[172][188](X%)[171]X%[170]1.8E[171]8)[173][188](10): [137] 12                            :
  18. 18                                                                             :
  19. 19       IN ZEILE 16[173]17 WIRD DIE       :
  20. 20       " EULER - MACLAURIN           :
  21. 21       'SCHE   SUMMENFORMEL "        :
  22. 22       MIT BERNOULLI[171]KOEFFIZIENTEN   :
  23. 23               VERW[128]ET                                                     :
  24. 25     FUER GROSSE  N  (BZW  N !) IST  :
  25. 26     DIE  "STIRLING'SCHE NAEHERUNG"  :
  26. 27      N! [178] ((N[173][189](N))[174]N)[172](2[255]N)[174].5   :
  27. 28             V[176]ZUZIEHEN !                                                   :
  28.