* Данный текст распознан в автоматическом режиме, поэтому может содержать ошибки

Г л а в а VI. О п е р а т о р ы р а б о т ы с э к р а н о м м о н и т о р а 35 DIM m i n AS DOUBLE 'начало интервала поиска корня DIM max AS DOUBLE 'конец интервала поиска корня DIM x AS DOUBLE 'переменная DIM y 1 AS DOUBLE 'функция 'DIM y2 AS DOUBLE 'функция DIM h AS DOUBLE 'точность вычислений DIM x 1 AS DOUBLE 'корень SCREEN 9 VIEW ( 3 4 0 , 1 0 ) - ( 6 2 0 , 2 0 0 ) , 6, 7 'правое верхнее окно WINDOW (-14, — 9 ) - ( 1 4 , 9) 'устанавливаем систему координат LINE (-14, 0 ) - ( 1 4 , 0 ) , 3 'строим оси LINE ( 0 , — 9 ) - ( 0 , 9 ) , 3 'координат FORi=—13TO13 'координатные отрезки LINE ( i , — . 5 ) - ( i , . 5 ) , 4 'по оси х NEXT i F O R x = — 1 0 T O 1 0 STEP .01 ' построение графика функции y = x 3 + 5 * x 2 + 3 * x — 8 ' в окне PSET ( x , y ) , 1 NEXT x 'поиск корней с указанной точностью LOCATE 1 5 , 1 a: PRINT "введите интервал": INPUT "MIN="; m i n : INPUT "MAX="; max a 0 0 1 : PRINT "введите точность": INPUT "шаг="; h IFh=0THEN PRINT "ТОЧНОСТЬ СЛИШКОМ ВЕЛИКА ДЛЯ МЕНЯ" GOTO a 0 0 1 END I F I F m i n >= max THEN PRINT " m i n должен быть меньше max! Повторите ввод!" GOTO a END I F y 1 = m i n 3 + 5 * m i n 2 + 3 * m i n - 8 'вычисляем значение 'ф-ции в начале интервала y2=max 3 + 5 * m a x 2 + 3 * m a x i 8 'вычисляем значение 'ф-ции в конце интервала I F y 1 * y2 < 0 THEN PRINT "в этом интервале существует по крайне мере один корень" ELSE PRINT "в этом интервале корней нет": GOTO a END I F 'поиск корня — начало цикла — приближение к корню слева a 0 1 : DO WHILE y 1 * y2 < 0 m i n = m i n + h y 1 = m i n 3 + 5 * m i n 2 + 3 * m i n — 8 x1 = m i n LOOP ' конец цикла a 1 : PRINT "функция="; y 1 PRINT "при х="; x 1 INPUT "будете уточнять?(0-нет, точность вычисления — д а ) " ; h min=x1 I F h = 0 THEN GOTO m2 'больше не вычисляем Л Л A A A A