Определить наибольшее значение функции - VB

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

Определить наибольшее значение функции у=корень третей степени от((х+6)/(х в квадрате + 13)) на отрезке (-5,5), если х изменяется с шагом h=1. Найти значение аргумента, при котором достигается наименьшее значение функции.

Решение задачи: «Определить наибольшее значение функции»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
 mx = f(-5)
 mn = f(-5): kmn = -5
For i = -5 To 5
If mx < f(i) Then mx = f(i)
   If mn > f(i) Then
      mn = f(i): kmn = i
   End If
Next i
MsgBox "y(max)=" & mx & vbCr & "x_y(min)=" & kmn, vbInformation
End Sub
Function f(x)
f = ((x + 6) / (x ^ 2 + 13)) ^ (1 / 3)
End Function
                        

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

12 голосов , оценка 3.917 из 5

Похожие ответы