| Вопрос: Народ помогите Vb | Добавлено: 24.04.12 22:11 |
Автор вопроса:  omne
|
|
Здравствуйте. Люди помогите разобраться правильно ли я делаю. Зарание спасибо!
Вычислить сумму и произведение функции для заданных значений аргумента.вычислить сумму членов ряда с точностью Е=10-2 (ряд продолжается, пока выполняется условие |y_(n+1)-y_n |>E), при заданном х = 0,75
s=(x-1)-(((x-3)^2)/2!)+ +(((x-5)^4)/4!)-… Function fact(a) As Double
n = 1 For i = 2 To a n = i * n Next i fact = n End Function Sub zadanie31() Dim s, x, a, b, c, n, y, y1 As Double x = 0.75 a = 1 b = 1 c = 1 s = 0 n = 0 y1 = 1 y = 0.1 Do While (y1 - y > 0.01) y = ((-1) ^ n) * (((x - a) ^ b) / fact(c)) s = s + y n = n + 1 a = a + 2 b = b * 2 c = c * 2 y1 = ((-1) ^ n) * (((x - a) ^ b) / fact(c)) Loop MsgBox (s) End Sub |
| Ответы | Всего ответов: 0 |
Страница: