Написать код по блок-схеме - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

7   голосов , оценка 4.286 из 5