Найти произведение элементов массива - QBasic (27632)

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

Найти произведение элементов массива Х, которые меньше 1,5; j=1;10

Решение задачи: «Найти произведение элементов массива»

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

DEFLNG I-K, N
DEFSNG P, X
OPTION BASE 1
RANDOMIZE TIMER
CLS
INPUT "Vvedite N"; n
DIM x(n)
 
FOR i = 1 TO n
   x(i) = 21 * RND - 10.5
   PRINT USING "###.###"; x(i);
NEXT i
 
p = 1
FOR i = 1 TO n
   IF x(i) < 1.5 THEN p = p * x(i)
NEXT i
PRINT
PRINT "Proizvedenie ="; p
END

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

Список действий в коде:

Задаются начальные параметры:
- n - количество элементов в массиве x (число вводится пользователем).
- P - текущее значение произведения (изначально равно 1).
- X - коэффициент при перемножении элементов массива (изначально равен 1).
Создается массив x размером n:
- DIM x(n) - присваивается память под массив x размером n.
Заполняется массив x случайными числами:
- FOR i = 1 TO n - цикл, который проходит по всем элементам массива x.
- x(i) = 21 * RND - 10.5 - формула для генерации случайного числа в диапазоне от -10.5 до 20.5.
- PRINT USING ###.###; x(i); - печать значения элемента массива x с отступом в 10 символов.
Перебираются все элементы массива x:
- FOR i = 1 TO n - цикл, который проходит по всем элементам массива x.
- IF x(i) < 1.5 - условие, которое проверяет, является ли элемент массива x меньше 1.5.
  - p = p * x(i) - если условие выполняется, то произведение p увеличивается на текущий элемент массива x.
Печатается произведение p:
- PRINT - команда для вывода информации на экран.
- PRINT Proizvedenie =; p - печать строки с названием Proizvedenie и значением переменной p.
Код завершается командой END.