Разработать программу вычисления максимального значиения функции - VB
Формулировка задачи:
Разработать программу вычисления максимального значиения функции: y=x3+0.88x2-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