
Morlulanim
6 год назад
Cоставить схему алгоритма и написать программу вычисления таблицы значений функции f(x) на промежутке x [xн; xк] с шагом h.

ОТВЕТЫ

Платонович
Aug 8, 2019
Преобразуем формулу в рекуррентную.
![\displaystyle f(x)=\sum_{k=1}^5 \frac{(-2)^{k+1}(k+1)!}{(x+2.5)^{k+1}}=\sum_{k=1}^5 \frac{(-1)^{k+1}\cdot2^{k+1}(k+1)!}{(x+2.5)^{k+1}} = \\ \\ \sum_{k=1}^5 \left[ (-1)^{k+1} \left( \frac{2}{x+2.5}\right)^{k+1}(k+1)!\right] = \sum_{k=1}^5a_k \\ \\ a_1=(-1)^2\left( \frac{2}{x+2.5}\right) ^2\cdot 2!= \left( \frac{2}{x+2.5}\right) ^2\cdot 2 \\ \\ amp;#10;a_2=(-1)^3\left( \frac{2}{x+2.5}\right) ^3\cdot 3!= -\left( \frac{2}{x+2.5}\right) ^2\cdot 3!= \\ \\ -a_1 \frac{2}{x+2.5} \cdot 3 \displaystyle f(x)=\sum_{k=1}^5 \frac{(-2)^{k+1}(k+1)!}{(x+2.5)^{k+1}}=\sum_{k=1}^5 \frac{(-1)^{k+1}\cdot2^{k+1}(k+1)!}{(x+2.5)^{k+1}} = \\ \\ \sum_{k=1}^5 \left[ (-1)^{k+1} \left( \frac{2}{x+2.5}\right)^{k+1}(k+1)!\right] = \sum_{k=1}^5a_k \\ \\ a_1=(-1)^2\left( \frac{2}{x+2.5}\right) ^2\cdot 2!= \left( \frac{2}{x+2.5}\right) ^2\cdot 2 \\ \\ amp;#10;a_2=(-1)^3\left( \frac{2}{x+2.5}\right) ^3\cdot 3!= -\left( \frac{2}{x+2.5}\right) ^2\cdot 3!= \\ \\ -a_1 \frac{2}{x+2.5} \cdot 3](https://tex.z-dn.net/f=5Cdisplaystyle+f28x293D5Csum_7Bk3D17D5E5+5Cfrac7B28-2295E7Bk2B17D28k2B129217D7B28x2B2.5295E7Bk2B17D7D3D5Csum_7Bk3D17D5E5+5Cfrac7B28-1295E7Bk2B17D5Ccdot25E7Bk2B17D28k2B129217D7B28x2B2.5295E7Bk2B17D7D+3D+5C5C++5C5C+5Csum_7Bk3D17D5E5+5Cleft5B+28-1295E7Bk2B17D+5Cleft28+5Cfrac7B27D7Bx2B2.57D5Cright295E7Bk2B17D28k2B129215Cright5D+3D+5Csum_7Bk3D17D5E5a_k+5C5C++5C5C+a_13D28-1295E25Cleft28+5Cfrac7B27D7Bx2B2.57D5Cright29+5E25Ccdot+2213D+5Cleft28+5Cfrac7B27D7Bx2B2.57D5Cright29+5E25Ccdot+2+5C5C++5C5C+0Aa_23D28-1295E35Cleft28+5Cfrac7B27D7Bx2B2.57D5Cright29+5E35Ccdot+3213D+-5Cleft28+5Cfrac7B27D7Bx2B2.57D5Cright29+5E25Ccdot+3213D+5C5C++5C5C+-a_1+5Cfrac7B27D7Bx2B2.57D+5Ccdot+3)

var
i,k:integer;
x,s,a:real;
begin
x:=-2;
while xlt;=3 do begin
a:=sqr(2/(x+2.5))*2;
s:=a;
for k:=2 to 5 do begin
a:=-a*(2/(x+2.5))*(k+1);
s:=s+a
end;
Writeln(x=,x:4:1,, f(x)=,s);
x:=x+0.5
end
end.
Результаты
x=-2.0, f(x)=2832032
x=-1.5, f(x)=42584
x=-1.0, f(x)=3604.93827160494
x=-0.5, f(x)=620
x= 0.0, f(x)=157.46048
x= 0.5, f(x)=51.2592592592593
x= 1.0, f(x)=19.8483285025797
x= 1.5, f(x)=8.75
x= 2.0, f(x)=4.27306135582313
x= 2.5, f(x)=2.27072
x= 3.0, f(x)=1.29731462817256
var
i,k:integer;
x,s,a:real;
begin
x:=-2;
while xlt;=3 do begin
a:=sqr(2/(x+2.5))*2;
s:=a;
for k:=2 to 5 do begin
a:=-a*(2/(x+2.5))*(k+1);
s:=s+a
end;
Writeln(x=,x:4:1,, f(x)=,s);
x:=x+0.5
end
end.
Результаты
x=-2.0, f(x)=2832032
x=-1.5, f(x)=42584
x=-1.0, f(x)=3604.93827160494
x=-0.5, f(x)=620
x= 0.0, f(x)=157.46048
x= 0.5, f(x)=51.2592592592593
x= 1.0, f(x)=19.8483285025797
x= 1.5, f(x)=8.75
x= 2.0, f(x)=4.27306135582313
x= 2.5, f(x)=2.27072
x= 3.0, f(x)=1.29731462817256
297