Найти экстремальное значение ф-ии при изменение аргумента от Х нач. до Х кон. с шагом Н ф-ия : y(x)= |a|*e^(bx+cx^2) - VB
Формулировка задачи:
Здравствуйте , помогите с программой не могу понять почему не работает уже всё перепробовал
Решение задачи: «Найти экстремальное значение ф-ии при изменение аргумента от Х нач. до Х кон. с шагом Н ф-ия : y(x)= |a|*e^(bx+cx^2)»
textual
Листинг программы
Private Sub Command1_Click() 'Х нач. до Х кон. с шагом Н : y(x)= |a|*e^(bx+cx^2) Dim x11, x21, h1 Dim x1#, x2#, h#, F#, minF#, maxF# Dim x#, k% a = -3: b = 5: c = 7 x11 = Replace(InputBox("X нач.- ,", , 0), ".", ",") x21 = Replace(InputBox("X кон.- ,", , 2), ".", ",") h1 = Replace(InputBox("шаг H- ,", , 0.1), ".", ",") If IsNumeric(x11) And IsNumeric(x21) And IsNumeric(h1) Then x1 = CSng(x11): x2 = CSng(x21): h = CSng(h1) k = 0 minF = Abs(a) * Exp(b * x + c * x ^ 2): maxF = minF For x = x1 + h To x2 Step h k = k + 1 If k > 10000 Then MsgBox "очень мелкий шаг" Exit Sub End If On Error GoTo err F = Abs(a) * Exp(b * x + c * x ^ 2) If minF > F Then minF = F If maxF < F Then maxF = F Next x Print "minF = "; minF Print "maxF = "; maxF Else MsgBox "Некорректный ввод!" End If Exit Sub err: MsgBox "Переполнение!" End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д