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 >
Wrap
Commodore BASIC
|
2022-10-26
|
427b
|
23 lines
10 print"[147]":rem satz von taylor
20 print"satz von taylor 1715"
30 print"********************"
40 print"errechnung des sinus"
50 print:input" winkel in altgrad";w
60 b=2*(NULL)*(w-int(w/360)*360)/360
70 print:print" bogenmass="b
80 v=1
90 forj=1to23step2
100 f=1
110 :
120 forn=jto1step-1
130 f=f*n
140 nextn
150 :
160 v=v*-1
170 s=s+(v/f)*b^j
175 rem print-s:rem kontrollausdruck
180 nextj
190 print:printtab(7)"sin("w")=";-s
200 print:print" standardfunktion des"
210 print" computers ergibt"sin(b)