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

DECLARE FUNCTION y! (x!)
CLS 
epsilon = .0001
100:
INPUT "Введите интервал a; b "; a, b
IF y(a) * y(b) > 0 THEN 
   PRINT "НЕ ПОДХОДИТ"
   GOTO 100
END IF
 
DO
   c = (a + b)/2
   IF y(a) * y(c) < 0 THEN b = c ELSE a = c
LOOP UNTIL ABS(a - b) < epsilon
 
PRINT "x = "; c
END
 
FUNCTION y (x AS SINGLE)
   y = x ^ 2 + 5 * x - 10
END FUNCTION

DECLARE FUNCTION y! (x!)
CLS
epsilon = .0000001
2015 :
INPUT "Введите интервал a, b = "; a, b
ab = (a + b) / 2
 
IF y(ab) > y(a) OR y(ab) > y(b) THEN
   PRINT "НЕ ГОДИТСЯ"
   GOTO 2015
END IF
 
h = ABS(b - a) / 1000
min = y(a)
xe = a
c = a
 
DO
   c = c + h
   IF min > y(c) THEN
      min = y(c)
      xe = c
   ELSE
      h = -h / 2
   END IF
  
LOOP UNTIL ABS(h) < epsilon
 
PRINT "Xmin = "; xe
PRINT "Ymin = "; min
END
 
FUNCTION y (x AS SINGLE)
   y = x ^ 2 + 5 * x - 10
END FUNCTION

DECLARE FUNCTION ING! (h!)
DECLARE FUNCTION y! (x!)
 
CLS
DIM SHARED a
DIM SHARED b
DIM SHARED h
 
epsilon = .001
 
INPUT "a, b ="; a, b
 
h = ABS(a - b) / 10
int1 = ING(h)
 
DO
   h2 = h / 2
   int2 = ING(h2)
   IF ABS((int1 - int2) / int2) < epsilon THEN
      GOTO 100
   ELSE
      h = h2
      int1 = int2
   END IF
LOOP
 
100 :
PRINT "INTEGRAL = "; int2
END
 
FUNCTION ING (h AS SINGLE)
 
   FOR x = a TO b STEP h
      s = s + h * y(x)
   NEXT x
 
   ING = s
END FUNCTION
 
FUNCTION y (x AS SINGLE)
   y = x ^ 2 + 5 * x - 10
END FUNCTION

CLS
INPUT "vvedite interval lokalizacii ekstremuma i shag skanirovaniy"; a, b, dx
ymax = -1E+20
forx =a TO b STEP dx
y=x^2+5*x-10
PRINT x,y
IF y<ymax THEN ymax=y:xp=x
NEXT x
PRINT "maksimalnoe znachenie funkcii ravno";ymax
PRINT "pri x=" ;xp
END

сls
INPUT'' vvedite.....";a,b,n
dx=(b-a)/2
s=0
x=a
FOR I=1 TO n
s=s+dx*(x^2+5*x-10)
NEXT i
PRINT"=";s
END

сls
INPUT'' vvedite.....";a,b,n
REM надо так
REM INPUT "Vedite a, b, n"; a, b, n
dx=(b-a)/2
REM делить надо на n
REM dx=(b-a)/n
s=0
x=a
FOR I=1 TO n  
REM здесь должна быть переменная i 
REM У вас тут заглавная i.  Так можно
REM спутать с переменной l (L)
REM FOR i=1 TO n
   s=s+dx*(x^2+5*x-10)
REM надо добавить строку
REM переменная x должна меняться
REM x=x+dx 
NEXT i
PRINT"=";s
REM PRINT "S=";S
END

CLS 
INPUT "Vedite a, b, n"; a, b, n 
dx=(b-a)/n 
s=0 
 
FOR i=1 TO n
   s=s+dx*(x^2+5*x-10) 
   x=x+dx 
NEXT i 
 
PRINT "S=";S 
END

    CLS 
INPUT "vvedite  и т.д.....'';a.b,dx
ymin =.000001
for x= a to b step dx
y= x^2+5*x-10
print x,y
if y< ymin then yvin = 0: xp=x
next x
print"minimalnoe и т.д.''; 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+5x-10
END FUNCTION