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

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

найти произведение элементов массива, если в него записаны элементы послеовательности an=корень из n в кварате +1 . Округлить элементы о 2 знаков после точки .

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

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

CLS
INPUT "N = "; n
DIM M(1 TO n)
 
FOR i = 1 TO n
   M(i) = SQR(i ^ 2 + 1)
   M(i) = INT(100 * M(i)) / 100
   PRINT M(i);
NEXT i
PRINT : PRINT
 
p = 1
FOR i = 1 TO n
   p = p * M(i)
NEXT i
PRINT "P ="; p
END

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

CLS — очистка экрана
INPUTN = ; n — ввод количества элементов массива
DIM M(1 TO n) — создание массива M размером n
FOR i = 1 TO n — цикл по элементам массива M
M(i) = SQR(i ^ 2 + 1) — вычисление значения элемента массива M(i)
M(i) = INT(100 * M(i)) / 100 — приведение значения элемента массива M(i) к типу INTEGER и вывод на экран
PRINT M(i); — вывод значения элемента массива M(i) на экран
NEXT i — переход к следующему элементу массива
PRINT : PRINT — пустая строка для отступов
p = 1 — инициализация переменной p единицей
FOR i = 1 TO n — цикл по элементам массива M
p = p * M(i) — умножение значения переменной p на значение элемента массива M(i)
NEXT i — переход к следующему элементу массива
PRINTP =; p — вывод значения переменной p на экран
END — завершение программы