home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 December / 64er_Magazin_90-12_1990_Markt__Technik_de_Side_A.d64 / sinus (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  427 b   |  23 lines
  1. 10 print"[147]":rem satz von taylor
  2. 20 print"satz von taylor 1715"
  3. 30 print"********************"
  4. 40 print"errechnung des sinus"
  5. 50 print:input" winkel in altgrad";w
  6. 60 b=2*(NULL)*(w-int(w/360)*360)/360
  7. 70 print:print" bogenmass="b
  8. 80 v=1
  9. 90 forj=1to23step2
  10. 100 f=1
  11. 110 :
  12. 120 forn=jto1step-1
  13. 130 f=f*n
  14. 140 nextn
  15. 150 :
  16. 160 v=v*-1
  17. 170 s=s+(v/f)*b^j
  18. 175 rem print-s:rem kontrollausdruck
  19. 180 nextj
  20. 190 print:printtab(7)"sin("w")=";-s
  21. 200 print:print" standardfunktion des"
  22. 210 print" computers ergibt"sin(b)
  23.