Вычислить уравнение с точностью до E - VB
Формулировка задачи:
Прошу помогите нужно написать на VB
Вычислить с точностью до E=1*10^-4
21 Вариант
Решение задачи: «Вычислить уравнение с точностью до E»
textual
Листинг программы
Private Sub Form_Load() Dim x1 As Double, s As Double, sold As Double, ri As Double, eps As Double, ai As Double n = 5 x1 = 1.324 + Sqr(n) s = 1 i = 0 ai = 1 sold = 0 Do i = i + 1 ri = -(x1 ^ 2) / (2 * i * (2 * i - 1)) ai = ai * ri s = s + ai eps = Abs(s - sold) sold = s Loop Until eps < 0.0001 MsgBox s End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д