' Sinus, Cosinus und e-Funktion mit Reihe berechnen

INPUT "Winkel"; w#

sexp# = 0#
ssin# = 0#
scos# = 0#
f# = 1#
FOR i% = 0 TO 20
  SELECT CASE i% MOD 4
  CASE 0
    scos# = scos# + f#
  CASE 1
    ssin# = ssin# + f#
  CASE 2
    scos# = scos# - f#
  CASE 3
    ssin# = ssin# - f#
  END SELECT
  sexp# = sexp# + f#
  f# = f# * w# / CDBL(i% + 1)
  PRINT i%; sexp#; ssin#; scos#
NEXT i%
PRINT "Genau:"; EXP(w#); SIN(w#); COS(w#)