| Вопрос: Народ! Помогите, горю! | Добавлено: 29.06.06 19:45 |
Автор вопроса:  GlooM | Web-сайт: newlc.info | ICQ: 348453688 |
|
Привет! Я уже задавал аналогичный вопрос, вроде как решил, но препод сказалА (!!!), что это не правильное решение. А суть задачи состоит в следующем:
Вычислить значение функции, представленной в виде ряда: y=1+x+(x^2/2!)+..+(x^n/n!) , при x=2.5 и x=3; n=5,6,7
Решал вот так: Option Explicit
Public Sub L3Ex4() Dim x As Double, y As Double Dim F As Long, i As Long, n As Long x = Val(InputBox("x")) n = Val(InputBox("n")) F = 1 If x = 0 Then MsgBox "Введите переменную x!" Exit Sub End If For i = 1 To n F = F * i y = 1 + x ^ i / F Next i MsgBox y End Sub Помогите побыстрее, плз! Завтра сдавать надо! Единственная задача осталась! :) |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Neco ICQ: 247906854 Вопросов: 133 Ответов: 882 |
Web-сайт: Профиль | | #1 | Добавлено: 29.06.06 20:17 |
|
Имхо, надо сделать так:
Public Sub L3Ex4()
 im x As Double, y As Double
im F As Long, i As Long, n As Integer
o
x = Val(InputBox("x"  )
Loop While x <= 0 n = CInt(Val(InputBox("n" ))
y = 1 F = 1 For i = 1 To n F = F * i y += x ^ i / F Next i MsgBox(y) End Sub |
||
Страница: 1 |