Задание:
Составить программу в qBASIK (нужны коды) Составить программу которая запрашивает 10 чисел и расставляет их в порядкевозрастания
Решение:
10 REM создание массива А для заполнения списком из 10 чисел 20 DIM A (1,10): 30 REM начало цикла для заполнения массива 40 FOR I=1 TO 1050 REM формирование запроса на ввод I-го числа 60 PRINT “Введите” , I, “-ое число” 70 REM ввод I-го числа 80 INPUT J90 REM присвоение I-му элементу массива значения числа 100 A (I)=J110 NEXT I120 REM цикл сортировки списка чисел по возрастанию 130 FOR I=1 TO 9140 FOR J=I+1 TO 10150 REM условие для упорядочения списка 160 IF A (I) >A (J) THEN b=A (I): A (I)=A (J): A (J)=b170 NEXT J, I180 REM цикл вывода упорядоченного списка на экран 190 FOR I=1 TO 10200 PRINT А (I) 210 NEXT IРабота основного алгоритма (130-170 шаги программы) проверена на визуал бейсике. Работает!
Знаете другой ответ?