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

Г л а в а XIII. П р и м е р ы п р о г р а м м 211 F O R x = — 1 0 T O 1 0 STEP .01 y = fny(x) PSET ( x , y ) , 2 NEXT x 'Вводим интервал в виде-начало интервала-конец интервала VIEW PRINT 15 TO 17 'определяем окно для текста 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 = 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 m i n = m i n + 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 y1 = f n y ( m i n ) x1 = min LOOP: GOTO a 1 m2: PRINT "следующий корень(0-нет)?" n% = V A L ( I N P U T $ ( 1 ) ) I F n % <> 0 GOTO a END 13.9. П р о г р а м м а п о с т р о е н и я т р е х м е р н о й ф и г у р ы 'Построение трехмерной фигуры DECLARE FUNCTION g r a f ! ( ) 'программист Заяц Артур SCREEN 12