Developing.ru

ВСем привет!!!

Вот сама сделала что то. но не работает. мне кажется правильно. НО ошибку ни как не найду. ПОЖАЛУЙСТА НУ КТО НИБУДЬ просмотрите . исправьте ошибку

Sub ngv()
Function F(x) As Single

Dim a As Single
Dim b As Single
Dim c As Single
Dim i As Single
Dim ia As Single
Dim ib As Single
Dim ic As Single
Dim eps As Single
i = ((2 * Sin(3 * x)) + (2 * (x ^ 2))) - 10
F = i

Do
a = InputBox("a=")
b = InputBox("b=")
Loop Until ia * ib > 0
eps = InputBox("e=")
Do While (Abs(b - a) > 2 * e)
c = (a + b) / 2
If (F(c) = 0) Then
a = b
b = c
End If
If (F(a) * F(b) < 0) Then
x2 = x3
End If
If (F(c) * F(b) < 0) Then
a = c
End If
Loop
MsgBox ("x = " + Str((a + b) / 2))
End Sub

Покажите свои наработки и задайте вопрос ЗДЕСЬ
Думаю подскажут

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

Найти корни уравнения методом деления отрезка пополам 2sin⁡(3x) +2x^2=10