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