Реферат: Курсовая по информатике

INPUT "точность"; t

a1 = RND(100)

q1 = RND(90)

q2 = RND(80)

q3 = RND(110)

DEF fnf (x) = a1 + q1 * x * SIN(q2 * x + q3) - k * x

a = 0: b = 110

FOR k = .1 TO .2 STEP .01

GOSUB pod1

GOSUB pod2

PRINT "при k="; k

cor = (x1 + x2) / 2: y = fnf(cor) + k * x

PRINT "точка пересечения"

PRINT "x="; cor; "y="; y;

a = x2

NEXT k

PRINT "Точность"; t

END

a = x2

NEXT k

PRINT "Точность"; t

END

pod1: 'отделение корней в интервале а,в'

s = 10 * t: x = a

200 : p = fnf(x) * f(x + s)

IF p > 0 THEN 1

x1 = x: x2 = x + s: RETURN

1 x = x + s: IF x <= b - s THEN 200

RETURN