Програмирование на языке Basic. Федоряка Н.И. - 30 стр.

               Вначале примем за наибольший элемент - первый элемент массива
         mas(0). Затем перебирая все элементы по очереди сравниваем их со значе-
         ние max и если mas(I)>max, то принимаем этот элемент за наибольший.
               Пример: составить программу сортировки массива по возрастанию.
         REM сортировка массива
         INPUT "Введите число элементов массива", n
         DIM mas(n) AS INTEGER
         FOR I=0 TO n-1
         mas(I)=1+INT(RND*10)
         NEXT
         CLS
         PRINT "Вывод массива"
         FOR I=0 TO n-1
         PRINT mas(I);
         NEXT
         REM сортировка массива
         FOR I=0 TO n-2
         FOR J=I+1 TO n-1
         IF mas(I)>mas(J) THEN
         REM если нашли меньший элемент, то обменяем их местами
         a=mas(I)
         mas(I)=mas(J)
         mas(J)=a
         END IF
         NEXT J
         NEXT I
         REM конец сортировки массива
         PRINT
         PRINT "Вывод отсортированного массива"
         FOR I=0 TO n-1
         PRINT mas(I);
         NEXT
         END
               Иногда для ввода данных удобно использовать операторы DATA и
         READ.
         DATA указывает значения для чтения последующими операторами READ.
         READ считывает эти значения и присваивает их переменным. RESTORE
         позволяет READ заново считать значения в указанном операторе DATA.
               DATA константы
         READ переменные
               Пример: ввод массива с использование оператора DATA.
               REM Ввод данных из DATA
         DIM mas(5) AS INTEGER

         30


PDF created with FinePrint pdfFactory Pro trial version www.pdffactory.com