Pascal

Дано вещественное число X и целое число N (> 0). Найти значение выражения

1 + X + X^2 / (2!) + ... + X^N / (N!)

(N! - факториал числа N). Полученное число является приближенным

значением функции exp в точке X.

Program qwer;

uses

crt;

var

x:real;

n, i, b:integer;

begin

b:=1;

write ('введите вещественное число x=') ;

readln (x) ;

write ('введите конечное значение цикла n=') ;

readln (n) ;

writeln; / / переход на другую строку

for i:=1 to n do

begin

b:=b*i; / / факториал

x:=x + (power (x, i)) * b; / / сумма последовательности

writeln ('значение функции exp в точке x', i,'=', x+1)

end;

end.