Даны натуральное число n действительное x. Вычислить x^1/1!+x^2/2!+.+x^n/n! - Pascal ABC

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

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

Нужно решить задачу, надеюсь на вашу помощь. Даны натуральное число n действительное x. Вычислить x^1/1!+x^2/2!+...+x^n/n!

Решение задачи: «Даны натуральное число n действительное x. Вычислить x^1/1!+x^2/2!+.+x^n/n!»

textual
Листинг программы
var x,t,s:real;
    n,i:integer;
begin
write('x=');
readln(x);
write('n=');
readln(n);
t:=1;
s:=0;
for i:=1 to n do
 begin
  t:=t*x/i;
  s:=s+t;
 end;
writeln('s=',s:0:4);
write(exp(x)-1:0:4)
end.

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

  1. Переменная x используется для хранения значения числа, которое вводится пользователем.
  2. Переменная n используется для хранения значения степени числа, которое также вводится пользователем.
  3. Переменная t используется для хранения значения факториала числа i.
  4. Переменная s используется для хранения суммы значений t на каждой итерации цикла.
  5. Цикл for выполняется n раз, где i принимает значения от 1 до n.
  6. Внутри цикла значение t умножается на x и делится на i, а затем прибавляется к s.
  7. После выполнения цикла, выводится значение переменной s.
  8. Функция exp(x) вычисляет экспоненту числа x.
  9. Значение exp(x)-1 выводится на экран.

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

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