Вычислите функцию, заданной в виде суммы бесконечного ряда - Pascal

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

Помогите, пожалуйста, с задачей! Закономерность вывела, вот: U= -(u*x^2*(2k+1))/(2k+1). Как все 3 способа в одну программу запихать не знаю Вычислите функцию, заданной в виде суммы бесконечного ряда тремя способами: с заданной погрешностью EPS (F1(x)), с заданным числом K первых членов ряда (F2(x)) и по аналитической формуле (F(x)). Функция и область сходимости: sinx, |x|<1 Разложение в ряд:


textual

Код к задаче: «Вычислите функцию, заданной в виде суммы бесконечного ряда - Pascal»

var x,e,t,s:real;
    k,i:integer;
begin
write('x=');
readln(x);
//с заданной погрешностью
repeat
write('0<e<1 e=');
readln(e);
until (e>0)and(e<1);
k:=1;
t:=x;
s:=t;
while abs(t)>e do
 begin
  k:=k+1;
  t:=-t*x*x/((2*k-2)*(2*k-1));
  s:=s+t
 end;
writeln('При заданной точности e=',e:0:5,' S=',s:0:5);
//с заданным числом K
repeat
write('Введите K>1 k=');
readln(k);
until k>1;
t:=x;
s:=t;
for i:=2 to k do
 begin
  t:=-t*x*x/((2*i-2)*(2*i-1));
  s:=s+t
 end;
writeln('При заданном числе K=',k,' S=',s:0:5);
write('По аналитической формуле sinx=',sin(x):0:5);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 3.833 из 5

Источник
Похожие ответы