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

Г л а в а VII. У п р а в л я ю щ и е о п е р а т о р ы я з ы к а Б е й с и к 53 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 = fny(x) PSET ( x , y ) , 2 NEXT x LOCATE 1 1 , 1 'устанавливаем курсор 'Вводим интервал в виде — начало интервала — конец интервала a: PRINT "введите интервал" INPUT "MIN="; m i n : INPUT "MAX="; max 'Вводим точность вычисления a 0 0 1 : PRINT "введите точность": INPUT "шаг="; h I F h = 0 THEN 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 = f n y ( m i n ) 'вычисляем значение ф-ции в начале интервала y2 = f n y ( m a x ) 'вычисляем значение ф-ции в конце интервала I F y 1 * y2 < 0 THEN PRINT "в этом интервале существует по крайне мере один корень" ELSE PRINT "в этом интервале корней нет": GOTO a END I F 'Иррациональный цикл a 0 1 : DO WHILE y 1 * y2 < 0'приближаемся к корню слева П ^ П = ГГ^П + ] 1 ' С шагом h y1 = f n y ( m i n ) x1 = min LOOP a 1 : PRINT "функция="; y 1 'печатаем результат PRINT "при х="; x 1 INPUT "будете уточнять?(0-нет, точность вычисления-да)"; h min=x1 I F h = 0 THEN GOTO m2 'больше не вычисляем I F f l a g % = 0 THEN f l a g % = 1 : GOTO m1 ELSE f l a g % = 0 GOTO a 0 1 m1: DO WHILE y 1 * y2 > 0'приближаемя к корню справа с m i n = m i n — h 'шагом h y1 = f n y ( m i n ) x1 = min LOOP: GOTO a 1 m2: END