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

210 Языки Бейсик ' Рисуем Юпитеp CIRCLE ( x + r a d * 11.2 / 5, y — r a d * 11.2 / 5 ) , r a d * 11.2 / 5, 4,,,.4 PAINT ( x + r a d * 11.2 / 5, y — r a d * 11.2 / 5 ) , 4, 4 GET ( x — r a d * 14, y — r a d * 1 4 ) - ( x + r a d * 14, y + r a d * 1 4 ) , Jup(0) CLS RETURN SUB O r b i t a ( x , y ) CIRCLE ( x , y ) , 7 5 , 8 'Орбита Меркурия CIRCLE ( x , y ) , 1 4 0 , 8 'Орбита Венеры CIRCLE ( x , y ) , 2 0 0 , 8 'Орбита Земли CIRCLE ( x , y ) , 1.524 * 2 0 0 , 8 'Орбита Марса CIRCLE ( x , y ) , 5.203 * 2 0 0 , 7 'Орбита Юпитера CIRCLE ( x , y ) , 9.539 * 2 0 0 , 7 'Орбита Сатурна CIRCLE ( x , y ) , 19.182 * 2 0 0 , 7 'Орбита Урана CIRCLE ( x , y ) , 30.058 * 2 0 0 , 7 'Орбита Нептуна CIRCLE ( x , y + (39.439 * 200) / 4 ) , 39.439 * 2 0 0 , 'Орбита Плутона END SUB SUB s o l ( x , y, r a d ) CIRCLE ( x , y ) , r a d + 6, 4 ' Рисуем СОЛНЦЕ PAINT ( x , y ) , 14, 4 CIRCLE ( x , y ) , r a d + 4, 4 CIRCLE ( x , y ) , r a d + 2, 4 END SUB 13.8. П р о г р а м м а п о и с к а к о р н е й м н о г о ч л е н а 'программа поиска корней многочлена 'на числовом отрезке 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 'правое верхнее окно WINDOW (-14, — 9 ) - ( 1 4 , 9) 'определяем Декартову систему координат LINE (-14, 0 ) - ( 1 4 , 0 ) , 3 'чертим ось X LINE ( 0 , — 9 ) - ( 0 , 9 ) , 3 'чертим ось У FORi=—13TO13 'цикл чертим координаты по оси X LINE ( i , — . 5 ) - ( i , . 5 ) , 4 NEXT i 'чертим функцию A A 14,,,1.1