Question

Для x, изменяющегося в интервале от x0 до xk с шагом h, вычислить значения бесконечной суммы S(x) с точностью =0.00001 и функции y(x).
S(x)=(первая картинка)
y(x)=(вторая картинка)

Answer 1

Const e=0.00001;
var x,x0,xk,h,a,s,y:real; n,i,k:integer;
begin
write('x0=');readln(x0);
write('xk=');readln(xk);
h:=0.1;
x:=x0-h;
n:=round((xk-x0)/h)+1;
writeln('№   x    S(x)      y(x)');
for i:=1 to n do
begin
 x:=x+h;
 a:=1; s:=a; k:=0;
 while abs(a)>e do begin
 a:=-a*2*x/(2*k+1)/(2*k+2);
 s:=s+a;
 inc(k);
 end;
 writeln(i:2,' ',x:3:1,' ',s:8:5,' ',cos(sqrt(2*x)):8:5);
 end;
end.

Пример:
x0=0.5
xk=1.5
№   x    S(x)      y(x)
 1 0.5  0.54030  0.54030
 2 0.6  0.45765  0.45765
 3 0.7  0.37795  0.37795
 4 0.8  0.30114  0.30114
 5 0.9  0.22716  0.22716
 6 1.0  0.15594  0.15594
 7 1.1  0.08744  0.08744
 8 1.2  0.02160  0.02160
 9 1.3 -0.04164 -0.04164
10 1.4 -0.10234 -0.10234
11 1.5 -0.16056 -0.16056