В массиве из случайных чисел поменять попарно элементы массива - QBasic
Формулировка задачи:
В массиве из случайных чисел поменять попарно
элементы массива.
Вот составил программу:
На выходе имеем:
Не получилось. Почему?
И с оператором SWAP тоже не получилось.
Решение задачи: «В массиве из случайных чисел поменять попарно элементы массива»
textual
Листинг программы
CLS DIM A(10) FOR i = 1 TO 10 A(i) = INT(RND * 50 – 5) PRINT A(i); NEXT i PRINT i = 1 WHILE i < 10 X = A(i) A(i) = A(i + 1) A(i + 1) = X i = i + 2 WEND FOR I = 1 TO 10 PRINT A(i); NEXT i
Объяснение кода листинга программы
- Объявляется массив A(10) для хранения 10 случайных чисел.
- С помощью цикла FOR и генератора случайных чисел RND, в массив A(10) записываются 10 случайных чисел от 0 до 49.
- Выводится на экран содержимое массива A(10).
- Задается значение переменной i равное 1.
- С помощью цикла WHILE попарно меняются элементы массива A(10).
- Переменной X присваивается значение элемента массива A(i).
- Значение элемента массива A(i) меняется на значение элемента массива A(i+1).
- Значение элемента массива A(i+1) меняется на значение переменной X.
- Значение переменной i увеличивается на 2.
- Цикл WHILE повторяется до тех пор, пока значение переменной i меньше 10.
- С помощью цикла FOR и команды PRINT выводится на экран содержимое массива A(10).