Задание на массивы - QBasic

Формулировка задачи:

Дан массив Х, состоящий из 15 числе. Упорядочить этот массив по возрастанию чисел. + Блок-схема

Решение задачи: «Задание на массивы»

Листинг программы

CLS
RANDOMIZE TIMER
CONST n = 15
DIM x(1 TO n) AS INTEGER
 
FOR i = 1 TO n
   x(i) = 40 * RND
   PRINT x(i);
NEXT
PRINT : PRINT
 
FOR i = 1 TO n - 1
FOR j = i + 1 TO n
   IF x(i) > x(j) THEN SWAP x(i), x(j)
NEXT j, i
 
FOR i = 1 TO n
   PRINT x(i);
NEXT
END

Объяснение кода листинга программы

CLS — очистка экрана
RANDOMIZE TIMER — установка генератора случайных чисел
CONST n = 15 — определение константы n со значением 15
DIM x(1 TO n) AS INTEGER — определение массива x размером 15 с элементами типа INTEGER
FOR i = 1 TO n — начало цикла для перебора элементов массива x с i от 1 до n
x(i) = 40 * RND — присваивание каждому элементу массива x случайного значения от 0 до 40, умноженного на RND
PRINT x(i); — вывод значения текущего элемента массива x на экран
NEXT — переход к следующей итерации цикла
PRINT : PRINT — вывод двух пустых строк на экран
FOR i = 1 TO n — 1 — начало цикла для перебора элементов массива x с i от 1 до n-1
FOR j = i + 1 TO n — начало вложенного цикла для перебора элементов массива x с j от i+1 до n
IF x(i) > x(j) THEN SWAP x(i), x(j) — если значение элемента x(i) больше значения элемента x(j), то происходит обмен их местами с помощью команды SWAP
NEXT j, i — переход к следующей итерации вложенного цикла с обновленными значениями i и j
FOR i = 1 TO n — начало цикла для перебора элементов массива x с i от 1 до n
PRINT x(i); — вывод значения текущего элемента массива x на экран
NEXT — переход к следующей итерации цикла
END — конец программы