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

@Reprain · Регистрация: 07.10.2012

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

Для заданного положительного , описывается как константа, и заданного x, вводится с клавиатуры, вычислить сумму ряда с точностью .
Значение полученной суммы сравнить с соответствующим значением в левой части равенства.
Также на печать выдать количество суммируемых членов ряда.
Предусмотреть ограничение количества слагаемых ряда для предотвращения "зацикливания".

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

0<x<1

@CodeR · 08.10.2012, 07:33

Pascal

Const e=0.0001;
Var a,s,f,x:real;
    k:integer;
Function F1(n:real;m:byte):real;
Var i:byte;
    p:real;
Begin
    p:=1;
    For i:=1 to m do
     p:=p*n;
    F1:=p;
End;
Begin
    Repeat 
     write('Введите x(0<x<1): ');readln(x);
    Until (0<x)and(x<1);
    k:=0;a:=1;s:=a;f:=1;
    While a>=e do
    Begin
      inc(k);
      f:=f*k;
      if k<3 then a:=F1(2*x,k)/f 
       else a:=F1(k*x,k)/f; 
      s:=s+a;
    End;
    writeln('S = ',s:0:6,' Проверочная функция = ',exp(2*x));
    writeln('Просумируемых членов ряда: ',k)
End.

Добавлено через 22 секунды

Сообщение от Reprain

Предусмотреть ограничение количества слагаемых ряда для предотвращения "зацикливания".

Это сам предусмотришь)Я не знаю когда может зациклится)

@Reprain 0 / 0 / 1 Регистрация: 07.10.2012 Сообщений: 53
		1
	Вычислить сумму ряда с заданной точностью 07.10.2012, 22:04. Показов 1226. Ответов 1 Метки нет (Все метки) Для заданного положительного , описывается как константа, и заданного x, вводится с клавиатуры, вычислить сумму ряда с точностью . Значение полученной суммы сравнить с соответствующим значением в левой части равенства. Также на печать выдать количество суммируемых членов ряда. Предусмотреть ограничение количества слагаемых ряда для предотвращения "зацикливания". $https://www.cyberforum.ru/cgi-bin/latex.cgi?{e}^{2x}=1+\frac{2x}{1!}+\frac{{(2x)}^{2}}{2!}+\frac{{(3x)}^{3}}{3!}+\frac{{(4x)}^{4}}{4!}+....$ 0<x<1 0

Опции темы

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

Решение