Цитата:
Сообщение от Kampuchiec
Всем доброго времени суток, прошу помочь с программой
1. Составить алгоритм и написать код программы, вычисляющей значения суммы ряда S при заданных с консоли начальном и конечном значениях аргумента x (x_nach, x_kon), шаге его изменения delta_x и точности вычислений eps.
|
Получите:
Код:
VAR
N,i,k:Word;
Xbeg,Xfin,Dx,S,X,a,Eps:Real;
BEGIN
Write('Xbeg= ');
ReadLn(Xbeg);
Write('Xfin= ');
ReadLn(Xfin);
Write('DX= ');
ReadLn(DX);
Write('Eps= ');
ReadLn(Eps);
N:=Round((Xfin-Xbeg)/DX);
WriteLn(' X Result Number of items Accurate value');
For i:=0 to N do
begin
X:=Xbeg+DX*i;
S:=Pi/2-X;
k:=0;
a:=-X;
Repeat
Inc(k);
a:=-a*SQR(X)*(2*k-1)/(2*k+1);
S:=S+a;
Until Abs(a)<Eps;
WriteLn(X:6:3,S:12:3,k:12,(Pi/2-ArcTan(X)):24:3);
end;
Readln;
END.