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

32 Языки Бейсик NEXT i 'конец цикла 'ПОСТРОЕНИЕ ЕДИНИЧНЫХ ОТРЕЗКОВ ПО ОСИ У LINE ( 3 1 7 , 0 ) - ( 3 2 1 , 0) 'построение первого отрезка F O R i = 9 T O 3 9 9 STEP 9 'начало цикла формирования отрезков с шагом 9 'построение единичных отрезков с длиной 4 LINE ( 3 1 7 , i ) - ( 3 2 1 , i ) NEXT I 'конец цикла 'ВЫВОД ЗНАЧЕНИЙ КРАЙНИХ ТОЧЕК КООРДИНАТ LOCATE 12, 1 : PRINT x 1 'установка курсора в точку х1 LOCATE 12, 7 8 : PRINT x2 'установка курсора в точку х2 LOCATE 2 4 , 4 2 : PRINT y 1 'установка курсора в точку y 1 LOCATE 2, 4 2 : PRINT y2 'установка курсора в точку y2 'Расчет цены деления x x = x 2 / 1 0 : y y = y 2 / 1 0 LOCATE 2 6, 5 2 : PRINT "цена деления по о с и Х — " ; x x LOCATE 2 7 , 5 2 : PRINT "цена деления по о с и Y — " ; y y LOCATE 1 , 1 'установка курсора в начало экрана END 5.2.5. Оператор CIRCLE Оператор C I R C L E позволяет получить на экране дисплея эллипс(круг). Формат записи оператора CIRCLE: CIRCLE где (х,у) r - координаты центра эллипса, которые можно задавать в абсолют¬ ной или относительной форме; — любое числовое выражение, значение которого задает большую полуось эллипса. (х,у),r[,[цвет][,[начало][,[конец][,сжатие]]]] Значение цвета выбирается из текущей палитры с номером цвета. 0-черный 3-бирюзовый 6-коричневый 9-светло-голубой 12-светло-красный 15-белый насыщенный 1-голубой 4-красный 7-белый 10-светло-зеленый 13-светло-малиновый 16 и выше-выриации белого 2-зеленый 5-малиновый 8-серый 11-светло-бирюзовый 14-желтый Операнд начало задает начальную точку дуги, конец — конечную. О п е р а н д ы начало и конец могут б ы т ь л ю б ы м и ч и с л о в ы м и в ы р а ж е н и я м и в д и а п а з о н е от -2п до +2п, где п=3.141593. Э т и о п е р а н д ы п о з в о л я ю т получить дугу эллипса.