Вычислить и вывести на экран произведение 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.

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

В этом коде:

  1. Введено два числа с помощью функции readln():
    • Первое число x вводится в переменную x.
    • Второе число n вводится в переменную n.
  2. Создаются три переменные:
    • p - для хранения произведения.
    • xx - для хранения значения x в квадрате.
    • fact - для хранения факториала числа i.
  3. Вычисляется произведение n членов ряда:
    • Используется цикл for для перебора чисел от 1 до n.
    • Внутри цикла вычисляется произведение p и xx, деленное на fact.
    • Значение xx обновляется как x в квадрате, умноженное на x.
    • Значение fact обновляется как факториал числа i, увеличенного на 1.
  4. Выводится результат:
    • Значение p выводится на экран с помощью функции writeln(). Таким образом, данный код вычисляет и выводит на экран произведение n членов ряда, где каждый член ряда представляет собой x в степени i, а i изменяется от 1 до n.

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

10   голосов , оценка 4.1 из 5
Похожие ответы