Уравнение методом половинного деления 1+Cos(x)/(3-Sin(x)-0.5)

@Дмитрий199 · Регистрация: 07.11.2014

Author24 — интернет-сервис помощи студентам

PureBasic

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

@volvo · 13.11.2014, 19:51

Дмитрий199, и чего? Зачем тут этот код на бейсике?

@volvo Супер-модератор 32970 / 21283 / 8173 Регистрация: 22.10.2011 Сообщений: 36,556 Записей в блоге: 8
	13.11.2014, 19:51	2
	Дмитрий199, и чего? Зачем тут этот код на бейсике? 0