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