Найти значение аргумента, при котором функция принимает минимальное значение - VB

Узнай цену своей работы

Формулировка задачи:

найти значение аргумента, при котором функция y=exp(-2*x)*cos(x) принимает минимальное значение в точках интервала от 0 до 4, расположенных на расстоянии 0.2 друг от друга

Решение задачи: «Найти значение аргумента, при котором функция принимает минимальное значение»

textual
Листинг программы
Private Sub Command1_Click()
Dim y() As Single, x, min, n
n = 0
For i = 0 To 4 Step 0.2
n = n + 1
Next i
ReDim y(1 To n) As Single
min = Exp(-2 * 0) * Cos(0)
For i = 1 To n
y(i) = Exp(-2 * i) * Cos(i)
If y(i) < min Then x = i
Next i
MsgBox (x)
End Sub

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


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

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

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