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

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

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

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

textual
uses crt;
const x=0.75;
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:=x;
s:=t;
for i:=1 to n do
 begin
  t:=t*x*x*(2*i-1)/(2*i);
  if abs(t)/(2*i+1)>e then s:=s+t/(2*i+1);
 end;
writeln('S=',s:0:5);
write('arcsin(x)=',arctan(x/sqrt(1-x*x)):0:5);
end.

12   голосов, оценка 3.917 из 5


СОХРАНИТЬ ССЫЛКУ