Упорядочить элементы одномерного массива произвольных чисел по возрастанию их значений — QBasic(Бейсик)

CLS
  ' Ввод кол-ва элементов
INPUT "Vvedite kol-vo znachenyj : ", n
DIM A%(n)
  ' Заполним массив случайными числами и на экран
  RANDOMIZE TIMER
 FOR i = 1 TO n
  A%(i) = RND * 10
  PRINT A%(i);
 NEXT: PRINT CHR$(13)
  ' Сортировка
 FOR i = 1 TO n - 1
   FOR j = n - 1 TO i STEP -1
     IF A%(j) > A%(j + 1) THEN SWAP A%(j), A%(j + 1)
   NEXT
 NEXT
  ' Вывод на экран результата
 FOR i = 1 TO n
  PRINT A%(i);
 NEXT
  ' Ввод кол-ва элементов
INPUT "Vvedite kol-vo znachenyj : ", n
DIM A%(n)
  ' Заполним массив случайными числами и на экран
  RANDOMIZE TIMER
 FOR i = 1 TO n
  A%(i) = RND * 10
  PRINT A%(i);
 NEXT: PRINT CHR$(13)
  ' Сортировка
 FOR i = 1 TO n - 1
   FOR j = n - 1 TO i STEP -1
     IF A%(j) > A%(j + 1) THEN с = A%(j): A%(j) = A%(j + 1): A%(j + 1) = c
   NEXT
 NEXT
  ' Вывод на экран результата
 FOR i = 1 TO n
  PRINT A%(i);
 NEXT

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment