Разработать программу вычисления максимального значиения функции - VB

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

Разработать программу вычисления максимального значиения функции: y=x³+0.88x²-0.39x-0,038 на интервале [-10;10] Ребят прошу помощи ! Вообще не шарю, Буду очень благодарен !

Решение задачи: «Разработать программу вычисления максимального значиения функции»

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

                            Function mf#(a#, b#, dx#)
mf = f(a)
Do While a + dx < b
a = a + dx
If mf < f(a) Then mf = f(a)
Loop
End Function
Function f#(arg#)
f = arg ^ 3 + 0.88 * arg ^ 2 - 0.39 * arg - 0.038
End Function
Private Sub Command1_Click()
Print mf(-10, 10, 0.1)
End Sub
                        

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

8 голосов , оценка 4.25 из 5

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