При некоторых заданных x, N и E, определяемых вводом, вы- числите сумму N слагаемых заданного вида

@T54KILLER · Регистрация: 05.11.2014

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

При некоторых заданных x, N и E, определяемых вводом, вы-числите сумму N слагаемых заданного вида, а также сумму тех слагаемых, которые по абсолютной величине больше E. Для второго случая выполните суммирование для двух значений E, отличающихся на порядок, и при этом определите количество слагаемых, включенных в сумму. Сравните результаты с точным значением функции, для которой данная сумма определяет приближенное значение при x, лежащем в интервале (–R, R). sin(x)/x=1-x^2/3!+x^4/5!-x^6/7!+... (R=∞).

@Puporev · 09.11.2014, 09:42

Pascal

uses crt;
var x,e,s,t:real;
    n,i:integer;
begin
clrscr;
write('n=');
readln(n);
write('x=');
readln(x);
t:=1;
s:=1;
for i:=1 to n do
 begin
  t:=-t*x*x/(2*i*(2*i+1));
  s:=s+t;
 end;
writeln('При N=',n,' сумма=',s:0:4);
e:=0.001;
n:=0;
t:=1;
s:=t;
while abs(t)>e do
 begin
  n:=n+1;
  t:=-t*x*x/(2*n*(2*n+1));
  s:=s+t;
 end;
writeln('При точности 0.001 сумма=',s:0:4,' количество слагаемых=',n+1);
e:=0.0001;
n:=0;
t:=1;
s:=t;
while abs(t)>e do
 begin
  n:=n+1;
  t:=-t*x*x/(2*n*(2*n+1));
  s:=s+t;
 end;
writeln('При точности 0.0001 сумма=',s:0:4,' количество слагаемых=',n+1);
write('Аналитическое значение');
if x=0 then writeln('1.0000')
else writeln(sin(x)/x:0:4);
readln
end.

@T54KILLER 0 / 0 / 0 Регистрация: 05.11.2014 Сообщений: 47
		1
	При некоторых заданных x, N и E, определяемых вводом, вы- числите сумму N слагаемых заданного вида 09.11.2014, 00:47. Показов 8699. Ответов 1 Метки нет (Все метки) При некоторых заданных x, N и E, определяемых вводом, вы-числите сумму N слагаемых заданного вида, а также сумму тех слагаемых, которые по абсолютной величине больше E. Для второго случая выполните суммирование для двух значений E, отличающихся на порядок, и при этом определите количество слагаемых, включенных в сумму. Сравните результаты с точным значением функции, для которой данная сумма определяет приближенное значение при x, лежащем в интервале (–R, R). sin(x)/x=1-x^2/3!+x^4/5!-x^6/7!+... (R=∞). 0

Опции темы

При некоторых заданных x, N и E, определяемых вводом, вы- числите сумму N слагаемых заданного вида

Решение