Написать код по блок-схеме - VB (59461)
Формулировка задачи:
Помогите пожалуйста написать код по блок-схеме :
Решение задачи: «Написать код по блок-схеме»
textual
Листинг программы
Private Sub Command1_Click() Dim S As Double, e As Double Dim x As Double, y As Double Dim n As Long x = InputBox("x =", "", 32) e = InputBox("e =", "", 0.000001) S = 0 n = 0 y = x Do While Abs(y) > e S = S + y n = n + 1 y = y * (-((x ^ 4) / ((2 * n - 1) * (2 * n) * (4 * n - 2) * (4 * n - 1) * (4 * n) * (4 * n + 1)))) Loop MsgBox "S = " & S & vbCrLf & "n = " & n End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д