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

52 Языки Бейсик STOP Оператор без операндов 7.17. О п е р а т о р D E F - о п р е д е л и т ь ф у н к ц и ю п о л ь з о в а т е л я Оператор D E F позволяет определить функцию пользователя самым простым способом, что облегчает работу и уменьшает количество ошибок Формат оператора D E F : DEF FNимя[(параметры)] = выражение или DEF FNимя[(параметры)] [блок FNимя = выражение [блок EXIT DEF [блок END DEF где Параметры Один или несколько аргументов в следующем формате: п е р е м е н [ ( ) ] [AS т и п ] [ , п е р е м е н [ ( ) ] [AS тип]]... где — И м я переменной Basic. — Тип данных переменной (INTEGER, L O N G , SIN¬ G L E , D O U B L E , S T R I N G или тип данных, опреде¬ ленный пользователем). Выражение — Возвращаемое значение функции. Оператор F U N C T I O N позволяет определять функцию лучшим образом. Пример 7.15.1. Приведен пример программы, которая определяет корни многочлена. Сам многочлен определяется в программе функцией D E F , что позволяет опреде¬ лить его в одном месте, хотя он и используется несколько раз. 'программа поиска корней многочлена 'на числовом отрезке CLS 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 'корень 'определяем функцию пользователя DEF f n y ( x ) = x 3 - 5 * x 2 - 3 * x + 8 PRINT "вычисление корня многочлена" SCREEN 9 VIEW ( 3 4 0 , 1 0 ) - ( 6 2 0 , 2 0 0 ) , 6, 7 'правое верхнее окно A A Перемен Тип