Вычислить и вывести на экран произведение n членов ряда - Turbo Pascal
Формулировка задачи:
Вычислить и вывести на экран произведение n членов ряда, где x и n – любые целые числа, введенные с клавиатуры
Решение задачи: «Вычислить и вывести на экран произведение n членов ряда»
textual
Листинг программы
var x,xx,fact:real; begin write('Введите x'); readln(x); write('Введите n'); readln(n); p:=1; fact:=2; xx:=x*x; for i:=1 to n begin p:=p*xx/fact; xx:=xx*x; fact:=fact*(i+1); end; writeln('p=',p); end.
Объяснение кода листинга программы
В этом коде:
- Введено два числа с помощью функции readln():
- Первое число x вводится в переменную x.
- Второе число n вводится в переменную n.
- Создаются три переменные:
- p - для хранения произведения.
- xx - для хранения значения x в квадрате.
- fact - для хранения факториала числа i.
- Вычисляется произведение n членов ряда:
- Используется цикл for для перебора чисел от 1 до n.
- Внутри цикла вычисляется произведение p и xx, деленное на fact.
- Значение xx обновляется как x в квадрате, умноженное на x.
- Значение fact обновляется как факториал числа i, увеличенного на 1.
- Выводится результат:
- Значение p выводится на экран с помощью функции writeln(). Таким образом, данный код вычисляет и выводит на экран произведение n членов ряда, где каждый член ряда представляет собой x в степени i, а i изменяется от 1 до n.