Страница: 1 |
Страница: 1 |
Вопрос: Помогите с задачей со знаком суммы (сигма)
Добавлено: 09.02.06 23:30
Автор вопроса: СЕРЕЖЕНЬКА
Вычислить сумму S = сигма(знак суммы) (x^2*n)/(n+1)! для x,изменяющегося от 0 до 0,9 с шагом 0,1...где n пробегает ряд чисел от 0 до 12
Ответы
Всего ответов: 2
Номер ответа: 1
Автор ответа:
sne
Разработчик Offline Client
ICQ: 233286456
Вопросов: 34
Ответов: 5445
Web-сайт:
Профиль | | #1
Добавлено: 10.02.06 00:51
снова пошли институтские заданьица
Номер ответа: 2
Автор ответа:
astoro
ICQ: 649109
Вопросов: 31
Ответов: 391
Профиль | | #2
Добавлено: 10.02.06 06:57
Я математику не знаю...
Private Sub Command1_Click()
Dim S As Double, x As Long, n As Long, Factorial As Double, tim As Long
S = 0
tim = Timer
For j = 0 To 9
x = j / 10
For n = 0 To 12
Factorial = 1
For i = 2 To n + 1
Factorial = Factorial * i
Next i
S = S + (x ^ 2 * n) / Factorial
Label1.Caption = "x=" & x & vbCrLf & "n=" & n & vbCrLf & "S=" & S & vbCrLf & "Ïðîøëî:" & (Timer - tim)
 oEvents
Next n
Next j
MsgBox "S=" & S
End Sub