Дано действительное число x. Вычислить: - VB

Формулировка задачи:

 Дано действительное число x. Вычислить:  x-x^3/3!+x^5/5!+x^9/9!-x^11/11!+x^13/13!
n = Val(InputBox("введите n"))
f = 1
For i = 1 To x Step (2)
f = f * i
Next i
For i = 1 To x
a = n ^ i
Next i
s = a / f
MsgBox s

Решение задачи: «Дано действительное число x. Вычислить:»

textual
                            Листинг программы 
                        

                            Function F(a as double) as double
  F=sin(x)
End Function
                        

Оцени полезность:

8 голосов , оценка 4 из 5

Похожие ответы