Дано действительное число 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
