Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 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-сайт: hw.t-k.ru
 Профиль | | #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)
        ;DoEvents
    Next n
Next j
MsgBox "S=" & S
End Sub

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам