Даны натуральное число 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.
Объяснение кода листинга программы
- Переменная
x
используется для хранения значения числа, которое вводится пользователем. - Переменная
n
используется для хранения значения степени числа, которое также вводится пользователем. - Переменная
t
используется для хранения значения факториала числаi
. - Переменная
s
используется для хранения суммы значенийt
на каждой итерации цикла. - Цикл
for
выполняетсяn
раз, гдеi
принимает значения от 1 доn
. - Внутри цикла значение
t
умножается наx
и делится наi
, а затем прибавляется кs
. - После выполнения цикла, выводится значение переменной
s
. - Функция
exp(x)
вычисляет экспоненту числаx
. - Значение
exp(x)-1
выводится на экран.