Решить уравнение методом половинного деления

[Дмитрий199]

Решить уравнение методом половинного деления

Function f(x As Single) As Single
f=1+Cos(x)/(3-Sin(x)-0.5)
End Functioin
Sub решениеуравнения()
Dim x As Integer, y As Integer, y1 As Integer, b As Integer
'Range(a,b)
a=-3
b=3
h=1
For x=a To b Step h
y1=y2
y2=f(x+h)
If y1*y2<=0 Then
Debug.Print x, x+h
'For x=a To x+h
End If
Next
y=f(x)'=(1+Cos(x))/(3-Sin(x) -0.5)
End Sub
Sub coren()

e=0.0001
y1=f(a)
While (b-a)>2*e
x=(a+b)/2
y=f(x)
If y*y1<=0 Then b=x Else a=x
y1=y
Debug.Print x
End Sub

 

[Дмитрий199]

Помогите пожалуйста решить программу

 

[iks2]

Ваша функция не имеет корней на заданном вами интервале. Но я привожу вам код на QBasic, где реализован метод половинного деления.

REM
REM   QBASIC
REM

DECLARE FUNCTION f! (x!)

CLS
a = -3
b = 3
eps = .0001

DO
   x = (a + b) / 2
   IF f(a) * f(x) > 0 THEN a = x ELSE b = x
LOOP UNTIL ABS(a - b) < eps

PRINT "X ="; x
END

FUNCTION f (x)
   f = 1 + COS(x) / (2.5 - SIN(x))
END FUNCTION