Найти произведение элементов массива - QBasic (27260)
Формулировка задачи:
найти произведение элементов массива, если в него записаны элементы послеовательности an=корень из n в кварате +1 . Округлить элементы о 2 знаков после точки .
Решение задачи: «Найти произведение элементов массива»
textual
Листинг программы
- 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
— очистка экранаINPUT
N =; 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
— переход к следующему элементу массиваPRINT
P =; p
— вывод значения переменнойp
на экранEND
— завершение программы
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д