Вычислить сумму ряда с заданной точностью - Pascal ABC (14779)

Формулировка задачи:

При заданном х=0.3 вычислить сумму N членов ряда с точностью e<=0.0001 Сравнить результаты со значением стандартной функции Паскаля.


textual

Код к задаче: «Вычислить сумму ряда с заданной точностью - Pascal ABC (14779)»

uses crt;
const x=0.3;
var n,i:integer;
    e,t,s:real;
begin
repeat
write('Введите точность 0<e<=0.0001 e=');
readln(e);
until(e>0)and(e<=0.0001);
repeat
write('Введите количество слагаемых n>0 n=');
readln(n);
until n>0;
t:=1;
s:=1;
for i:=1 to n do
 begin
  t:=-t*(2*i-1)*x/(2*i);
  if abs(t)>e then s:=s+t;
 end;
writeln('S=',s:0:4);
write('1/(sqrt(1+x))=',1/(sqrt(1+x)):0:4);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 4.400 из 5

Источник