Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора - VB
Формулировка задачи:
уважаемые посетители форума прошу помочь начинающему программисту в решении задачи.
"вычислить и вывести на экран в виде таблицы значения функции,заданной с помощью ряда Тейлора, на интервале от Хнач до Хкон с шагом dx с точностью E(эпсилон)
---------oo(знак бесконечности)
Ln(1-x)= -E=-(x+x^2/2+x^3/3+...) -1=<x<1
----------n=1
честно говоря,незнаю даже с чего начать...работаю на VB
надеюсь на помощь и поддержку)
заранее благодарен!
Решение задачи: «Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора»
textual
Листинг программы
Private Sub Command1_Click()
Dim i As Long, n As Integer
Dim x As Single, x1 As Single, x2 As Single
Dim eps As Single
Dim S As Single, Z As Single
x1 = Val(Replace(InputBox("Введите |xn|<1", , 0.1), ",", "."))
x2 = Val(Replace(InputBox("Введите |xk|<1", , 0.7), ",", "."))
d = Val(Replace(InputBox("Введите d", , 0.1), ",", "."))
eps = Val(Replace(InputBox("Введите точность e", , 0.001), ",", "."))
If Abs(x1) >= 1 Or Abs(x2) >= 1 Or eps <= 0 Or d <= 0 Then
MsgBox "некорректный ввод!", vbExclamation
Exit Sub
End If
Cls
Print "x"; Tab(10); "n"; Tab(20); "Sk"; Tab(40); "S"
Print String(200, ".")
x = x1
Do
Print x
n = 1
S = 0
Do
If n > 14 Then
MsgBox "Слишком высокая точность !", vbExclamation
Exit Sub
End If
Z = (x ^ n) / n
S = S + Z
Print Tab(10); n; Tab(20); Z; Tab(40); -S
n = n + 1
Loop While Abs(Z) >= eps
x = x + d
Loop While x <= x2
MsgBox "Рассчеты завершены.", vbInformation
End Sub