Написать программу-цикл(сумма с погрешностью) - Turbo Pascal

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

Совершенно не понимаю как делать цикл, перерыл весь интернет, но как решать до меня дойти не смогло. Прошу помощи в написании программы. Вычислить с погрешностью E=0.1E-4, если сумма где X=0.71

Код к задаче: «Написать программу-цикл(сумма с погрешностью) - Turbo Pascal»

textual
const x=0.71;eps=0.1e-4;
var k:integer;s,d:real;
begin
 d:=1;k:=1;s:=0;
 repeat
  d:=-d*x/k;
  s:=s+d;
  inc(k)
 until abs(d)<eps;
 writeln('сумма: ',s:0:5)
end.

15   голосов, оценка 4.200 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы