Sub prog() Dim n As Integer, e As Double, x As Double, y As Double n = 0 x = 0.5 e = 0.00005 q = 0.3 Do Until Abs(x - y) <= e * (1 - q) / q y = x x = f(x) n = n + 1 Debug.Print "n="; n; "x="; x Loop Debug.Print "The result of
«Sub prog()
Dim n As Integer, e As Double, x As Double, y As Double
n = 0
x = 0.5
e = 0.00005
q = 0.3
Do Until Abs(x - y) <= e * (1 - q) / q
y = x
x = f(x)
n = n + 1
Debug.Print "n="; n; "x="; x
Loop
Debug.Print "The result of»
- Программирование
Условие:
Sub prog() Dim n As Integer, e As Double, x As Double, y As Double n = 0 x = 0.5 e = 0.00005 q = 0.3 Do Until Abs(x - y) <= e * (1 - q) / q y = x x = f(x) n = n + 1 Debug.Print "n="; n; "x="; x Loop Debug.Print "The result of calculations x="; x; "Number of iterations="; n End Sub Private Function f(x As Double) As Double f = 0.5 + 0.5 * x ^ 2 - 0.3 * Exp(x) End Function
Решение:
Напишите программу на VBA, которая реализует метод итераций для нахождения корня уравнения, заданно...
Похожие задачи
Не нашел нужную задачу?
Воспользуйся поиском
AI помощники
Выбери предмет
S
А
Б
В
Г
И
К
М
П
- Правоохранительные органы
- Пожарная безопасность
- Парикмахерское искусство
- Природообустройство и водопользование
- Почвоведение
- Приборостроение и оптотехника
- Промышленный маркетинг и менеджмент
- Производственный маркетинг и менеджмент
- Процессы и аппараты
- Программирование
- Право и юриспруденция
- Психология
- Политология
- Педагогика
С
Т
- Трудовое право
- Теория государства и права (ТГП)
- Таможенное право
- Теория игр
- Текстильная промышленность
- Теория вероятностей
- Теоретическая механика
- Теория управления
- Технология продовольственных продуктов и товаров
- Технологические машины и оборудование
- Теплоэнергетика и теплотехника
- Туризм
- Товароведение
- Таможенное дело
- Торговое дело
- Теория машин и механизмов
- Транспортные средства
Ф
Э