Вычислить сумму N слагаемых заданного вида - Turbo Pascal
Формулировка задачи:
При некоторых заданных x, N и E, определяемых вводом, вы-числите сумму N слагаемых заданного вида, а также сумму тех слагаемых, которые по абсолютной величине больше E. Для второго случая выполните суммирование для двух значений E, отличающихся на порядок, и при этом определите количество слагаемых, включенных в сумму.Сравните результаты с точным значением функции, для которой данная сумма определяет приближенное значение x, лежащем в интервале (-R, R).
Решение задачи: «Вычислить сумму N слагаемых заданного вида»
textual
Листинг программы
uses crt;
var n,i:integer;
x,e,t,s:real;
begin
clrscr;
repeat
write('Введите |x|<1 x=');
readln(x);
until abs(x)<1;
repeat
write('Введите натуральное n>1 n=');
readln(n);
until n>1;
writeln('Значение при N=',n);
t:=x/2;
s:=1+t;
for i:=2 to n do
begin
t:=-t*(2*i-3)*x/(2*i);
s:=s+t;
end;
writeln('S=',s:0:5);
writeln('Значение при точности e=0.0001');
e:=0.0001;
n:=1;
t:=x/2;
s:=1+t;
while abs(t)>e do
begin
n:=n+1;
t:=-t*(2*n-3)*x/(2*n);
s:=s+t;
end;
writeln('S=',s:0:5,' N=',n);
writeln('Значение при точности e=0.00001');
e:=0.00001;
n:=1;
t:=x/2;
s:=1+t;
while abs(t)>e do
begin
n:=n+1;
t:=-t*(2*n-3)*x/(2*n);
s:=s+t;
end;
writeln('S=',s:0:5,' N=',n);
write('sqrt(1+x)=',sqrt(1+x):0:5);
readln
end.