Есть программа, по теории должно работать, уже посчитал в ручную, знаю ответ, но он ругается .
Есть программа, по теории должно работать, уже посчитал в ручную, знаю ответ,
но он ругается на то что неверно задан аргумент, как я понял
"Argument not optional"
Const eps = 0.0001
Function F(x As Single) As Single
F = x / (x + 2) - Log(x)
End Function
Sub PolDel(a As Single, b As Single, ByRef x As Single)
Do
x = (a + b) / 2
If F(a) * F(x) < 0 Then
b = x
Else
a = x
End If
Loop Until Abs(b–a) < eps
End Sub
Sub My_Pr()
Dim a As Single, b As Single, x As Single
a = 0
b = 2
PolDel a, b, x
Cells(10, 2) = x
End Sub
а и дело даже не в том что a=0, это я заменил, смысл программа просто не запускается
все уже не надо, разобрался, спс