Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4 из 5
Похожие ответы