1. Главная
  2. Библиотека
  3. Программирование
  4. Sub prog() Dim n As Integer, e As Double, x As Double,...
Решение задачи на тему

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 помощники

Выбери предмет

E
S
А
Б
В
Г
Д
Е
Ж
З
И
К
Л
М
Н
О
П
Р
С
Т
У
Ф
Х
Ц
Ч
Э
Я