Решаем задачи Абрамян на Паскале. For22

For22. Дано вещественное число $$X$$ и целое число $$N$$ ($$> 0$$). Найти значение выражения $$1 + X + X^2/(2!) +…+ X^N/(N!) (N! = 1*2*…*N)$$. Полученное число является приближенным значением функции exp в точке $$X$$.

Решение:

program For22;
var
  X,Rez,factorial,pow:Real;
  N, i :Integer;
begin
  Write('Введите X: ');
  Readln(X);
  Write('Введите N: ');
  Readln(N);
  Rez:=1;
  pow:=1;
  factorial:=1;
  For i:=1  to N do
   begin
    factorial:=factorial*i;
    pow:=pow*X;
    Rez:=Rez+pow/factorial;
   end;
  Writeln(Rez);
end.

program For22;

var

X,Rez,factorial,pow:Real;

N, i :Integer;

begin

Write('Введите X: ');

Readln(X);

Write('Введите N: ');

Readln(N);

Rez:=1;

pow:=1;

factorial:=1;

For i:=1 to N do

begin

factorial:=factorial*i;

pow:=pow*X;

Rez:=Rez+pow/factorial;

end;

Writeln(Rez);

end.

Другие задачи из раздела For можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. For22

Комментарии:

Добавить комментарий Отменить ответ