Решение уравнения y(x)=x2+5x−10 методом половинного деления (qb 64)

   DECLARE FUNCTION f(x)

Epsilon=ABS(ymin - f(xp+dx))

CLS
f(x) = f ^ 2 + 5 * x - 10
INPUT "vvedite interval localizacii ekstremuma i shag skanirovaniy"; a, b, dx
ymin = f(a)
xp = a
FOR x = a TO b STEP dx
    y = f(x)
    IF y < ymin THEN ymin = y: xp = x
NEXT x
PRINT "minimalnoe znachenie funkcii ravno"; ymin
PRINT "pri x="; xp
END

CLS
 
INPUT "vvedite и т.д.....";a,b,dx 
ymin =f(a) 
xp=a 
 
FOR x= a TO b STEP dx 
   y= f(x) 
   PRINT x,y  ' ???? 
   IF y< ymin THEN ymin = y: xp=x 
NEXT x 
PRINT"minimalnoe и т.д."; ymin 
PRINT " pri x="; xp 
END  
 
FUNCTION f(x) 
  f=x^2+5*x-10 
END FUNCTION

ymin =a^2+5*a-10

y=x^2+5*x-10

nput"введите интервал локализации корня";а,b
eps= .000001
fa= a^2+5*a-10
fb=b^2+5*b-10
IF fa*fb< 0 THEN: go TO 10
PRINT"ошибка в выборе интервала локализации": go TO 20
10: x = (a+b)/2
k= k+1
fx= x^2+5*x-10
IF fa= fx<0 THEN b =x:go TO 40
a=x
40: IF ABS(b-a)> eps THEN : go TO 10
30: PRINT "x="; x
PRINT "значение функции в точке корня"; fx
PRINT " кол-во делений отрезка пополам"; k
20: END

eps= .000001
fa= a^2+5*a-10
fb=b^2+5*b-10
IF fa*fb< 0 THEN GOTO 10
PRINT"ошибка в выборе интервала локализации": GOTO 20
10: x = (a+b)/2
k= k+1
fx= x^2+5*x-10
IF fa * fx<0 THEN b =x ELSE a=x
 
IF ABS(b-a)> eps THEN  GOTO 10
PRINT "x="; x
PRINT "значение функции в точке корня"; fx
PRINT " кол-во делений отрезка пополам"; k
20: 
END

   IF fa * fx<0 THEN b =x ELSE a=x

   IF fa * fx < 0 THEN b =x 
   IF fa * fx >=0 THEN a =x