Вычислить сумму ряда - Turbo Pascal (33907)

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

Дано вещественное число х. Вычислить: x x2 xn 1 + ── + ── + ... + ── + ... с точностью Е. 1! 2! n! 2 и n в числителе - это степень x (примечание)

Код к задаче: «Вычислить сумму ряда - Turbo Pascal (33907)»

textual
uses crt;
var s:real;
    x,f,st,n,i:integer;
BEGIN
clrscr;
   write('n = ');
   read(n);
   write('x = ');
   read(x);
   s:=1;f:=1;st:=1;
   for i:=1 to n do
    begin
     f:=f*i;
     st:=st*x;
     s:=s+st/f;
    end;
 
    write('S = ',s:3:2);
 
readkey;
END.

15   голосов, оценка 4.267 из 5


СОХРАНИТЬ ССЫЛКУ