Вычислить сумму и найти число слагаемых, которые вошли в сумму - Pascal ABC

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

Помогите пожалуйста в решении задачи. Вычислить сумму и найти число слагаемых, которые вошли в сумму (см. таблицу 4). Процесс вычислений требуется закончить, когда очередное слагаемое по модулю окажется меньше ε (это слагаемое при вычислении суммы уже не учитывать):


textual

Код к задаче: «Вычислить сумму и найти число слагаемых, которые вошли в сумму - Pascal ABC»

n:=0;
t:=1;
s:=0;
while abs(t)>e do
 begin
  n:=n+1;
  t:=-t*x*x/n;
  s:=s+t;
 end;
write('S=',s:0:4);
Эта работа вам не подошла?

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


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

8   голосов, оценка 4.125 из 5

Источник