Вычислить значение выражения, используя цикл - VB
Формулировка задачи:
помогите завтра сдавать
Вычислить y=1-x^2/2!+x^4/4!-x^6/6!+...+x^20/20!
Решение задачи: «Вычислить значение выражения, используя цикл»
textual
Листинг программы
- Private Sub Command1_Click()
- Dim i As Integer, x As Integer, y As Double, s As Integer
- x = InputBox("Введите значение х ", " x = ", 16): y = 1: s = 1
- For i = 2 To 20 Step 2
- s = -s: y = y + s * (x ^ i / fakt(i))
- Next i
- MsgBox " Y = " & y
- End Sub
- Function fakt(n)
- If n = 1 Then fakt = 1 Else fakt = fakt(n - 1) * n
- End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
