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

204 Языки Бейсик DIM b$ 'Определяем переменную для ввода 'с клавиатуры символов 'как символьную k% = 1 'Вводим целочисленную переменную 'для индекса g0: INPUT "Введите очередную константу или +++ "; b$ 'Вводим с 'клавиатуры символьную константу I F b$ = " + + + " THEN GOTO g 1 'Проверка на конец ввода a $ ( k % ) = b$ 'Если не конец ввода, 'то пересылаем в массив k% = k% + 1 'Переходим на следующий элемент 'массива GOTO g0 'Идем на ввод очередной константы g1: k o l c h s % k% — 1 'Запоминаем количество введенных 'констант PRINT "введено "; k o l c h s % ; констант" 'Выводим на экран 'количество введенных констант 'Приступаем к сортировке констант в массиве F O R i = 1 T O kolchs% — 1 'Устанавливаем цикл на число 'введенных констант I F a $ ( i ) <= a $ ( i + 1) THEN GOTO g2 'Сравниваем два рядом 'стоящих элемента массива SWAP a $ ( i ) , a $ ( i + 1) 'Если последовательность нарушена, 'то меняем их местами 'Проверяем, не первый ли I F i > 1 T H E N i 'это элемент массива? 'Если не первый, то делаем шаг назад, 'чтобы сравнить с предыдущим g2: NEXT i 'Проверяем, закончился ли 'массив введенных констант? 'Печать отсортированных констант FORi=1TOkolchs% PRINT a $ ( i ) NEXT END 13.3. П р о г р а м м а п о с т р о е н и я г р а ф и к о в 'ПОСТРОЕНИЕ графиков CLS SCREEN 12 'установка режима экрана 'построение осей координат LINE ( 3 2 0 , 0 ) - ( 3 2 0 , 480) 'ось X LINE ( 0 , 2 4 0 ) - ( 6 4 0 , 240) 'ось У WINDOW ( 5 0 , — 5 0 ) - ( - 5 0 , 50) 'Установка масштаба экрана дисплея F O R x = — 1 0 T O 1 0 STEP .01 'устанавливаем интервал вычислений y = SQR(100—x 2) 'вычисляем функцию PSET ( x , y ) , 4 'высвечиваем точку NEXT x END A