Найти максимальное значение на Visual Basic - VB
Формулировка задачи:
Дана функция у=2*x^2+5*x+1.37. Найти максимальное y, если х изменяется в интервале [0.12;2] с шагом 0.2.
Решение задачи: «Найти максимальное значение на Visual Basic»
textual
Листинг программы
Private Sub Command1_Click() x = 0.12 Max = mx(0.12) Do While x + 0.2 <= 2 x = x + 0.2 If mx(x) > Max Then Max = mx(x) Loop MsgBox "Max = " & Max End Sub Function mx(x) mx = 2 * x ^ 2 + 5 * x + 1.37 End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д