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

Г л а в а XIII. П р и м е р ы п р о г р а м м 203 Глава XIII. Примеры программ 13.1. П р о г р а м м а с о р т и р о в к и ч и с е л чисел программист В.Алиев 'Очистим экран 'Определяем массив как v a r i a n t 'Определяем переменную для ввода 'с клавиатуры чисел 'как символьную k% = 1 'Вводим целочисленную переменую 'для индекса g0: INPUT "Введите очередное число или +++ "; b$ 'Вводим с 'клавиатуры число I F b$ "+++" THEN GOTO g l 'Проверка на конец ввода a(k%) VAL(b$) 'Если не конец ввода, 'то преобразуем в число и 'и пересылаем в массив k% + 1 'Переходим на следующий элемент 'массива GOTO g0 'Идем на ввод очередного числа k% 1 'Запоминаем количество введенных g l : kolchs% 'чисел PRINT "введено "; k o l c h s % ; " чисел" 'Выводим на экран 'количество введенных чисел 'Приступаем к сортировке чисел в массиве F O R i = I T O k o l c h s % — 1 'Устанавливаем цикл на число 'введенных чисел I F a ( i ) <= a ( i + 1) THEN GOTO g2 'Сравниваем два рядом стоящих 'элемента массива 'Если последовательность SWAP a ( i ) , a ( i + 1) 'нарушена, то меняем их местами 'Проверяем, не первый ли I F i > 1 THENi 'это элемент массива? 'Если не первый, то делаем шаг 'назад, 'чтобы сравнить с предыдущим. g2: NEXT i 'Проверяем, закончился ли 'массив введенных чисел? 'печать отсортированных чисел FORi=1TOkolchs% PRINT a ( i ) NEXT END 13.2. П р о г р а м м а с о р т и р о в к и с и м в о л ь н ы х к о н с т а н т 'Сортировка Символьных констант программист В.Алиев CLS 'Очистим экран DIM a $ ( 1 0 0 ) 'Определяем массив как символьный 'Сортировка CLS DIM a ( 1 0 0 ) DIM b$