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

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
  ' Ввод кол-ва элементов
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