Найти экстремальное значение ф-ии при изменение аргумента от Х нач. до Х кон. с шагом Н ф-ия : 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

8   голосов , оценка 4.125 из 5
Похожие ответы