Glied1 = 1
calt = 0
x = txtEingabe
 
Do
 
f = 1
For i = 1 To n
f = f * i
Next i
 
calt = cneu
Glied2 = Glied1 * ((x ^ n) / f)
cneu = Glied2 + calt
n = n + 2
Glied1 = Glied1 * (-1)
 
Loop While Abs(calt - cneu) >= 0.0000001
 
txtCosinus = cneu