Вычислить сумму ряда с заданной точностью

@Николай3 · Регистрация: 03.11.2017

Студворк — интернет-сервис помощи студентам

$https://www.cyberforum.ru/cgi-bin/latex.cgi?\frac{x^1}{1!}+\frac{x^2}{2!}+\frac{x^3}{3!}+...+\frac{x^n}{n!}$

Вычислить формулу с точностью до 0.001, определив количество проходов N. Это я сделал.

Pascal

Program P8;
Uses Crt;
Var x,b,n:integer; l:longint; p,k,t,f:extended;
const e=0.001;
Begin
CLRSCR;
Writeln('Vvedite x '); Readln(x);
n:=0;
k:=1;
CLRSCR;
While abs(k) > e do
begin
inc(n);
l:=n;
p:= exp(ln(x)*l);
f:=1;
b:=1;
while b<=l
do
begin
f:=f*b;
b:=b+1;
end;
k:=p/f;
t:=t+k;
end;
Writeln('n!= ', f:1:0);
Writeln('x^n ',p:1:0);
Writeln('Rezultat ',t:1:0);
Writeln('Kolichestvo proxodov n: ',n);
Readln;
End.

Нужно оформить с использованием функций. Нахождение основных значений оформить через функцию RESHENIE(), ввод данных и вывод на печать – через функцию MAIN()

@Антон1985 · 21.04.2018, 10:09

Николай3, почему переменная 'x' имеет целочисленный тип? Какая область определения переменной 'x' для данной формулы?

@Jener · 22.04.2018, 13:43

Pascal

procedure Reshenie(x:real;const eps:real);
var s,nm,dnm:real; i:integer;
begin
 { s:=0; p:=x; i:=1;         //сумма через рекуррентое соотношение
  while abs(p)>eps do begin
    s:=s+p;
    inc(i);
    p:=p*x/i;
  end;}
  i:=1; nm:=x; dnm:=1; s:=0;
  while abs(nm/dnm)>eps do begin
    s:=s+nm/dnm;
    inc(i);
    nm:=nm*x;
    dnm:=dnm*i;
  end;
  Writeln('n!= ', dnm:0:3);
  Writeln('x^n ', nm:0:3);
  Writeln('Rezultat ',s:0:3);
  Writeln('Kolichestvo proxodov n: ',i);
end;

@Антон1985 138 / 101 / 102 Регистрация: 03.02.2014 Сообщений: 425
	21.04.2018, 10:09	2
	Николай3, почему переменная 'x' имеет целочисленный тип? Какая область определения переменной 'x' для данной формулы? 0

Опции темы