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

Узнай цену своей работы

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

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

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

textual
Листинг программы
  1. CLS
  2. INPUT "N = "; n
  3. DIM M(1 TO n)
  4.  
  5. FOR i = 1 TO n
  6.    M(i) = SQR(i ^ 2 + 1)
  7.    M(i) = INT(100 * M(i)) / 100
  8.    PRINT M(i);
  9. NEXT i
  10. PRINT : PRINT
  11.  
  12. p = 1
  13. FOR i = 1 TO n
  14.    p = p * M(i)
  15. NEXT i
  16. PRINT "P ="; p
  17. END

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

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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.923 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы