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