Question

Вычислите частичную сумму ряда S=1+1/2+1/4+1/8+..... вычисления прекратите,когда модуль очередного слагаемого станет меньше 0,001.

Answer 1

используем рекурентную формулу, чтобы упростить программу

а[n+1]=1/4

a[n]=1/2

t=(1/4)/(1/2)=1/2

a[n+1]=a[n]*1/2

Program;

var  n:integer;abs,s,a:real;

begin

a:=1;

eps:=1;

s:=1;

repeat

a:=a*1/2;

abs:=abs(a);

s:=s+a;

until abs<0.001;

writeln(s);

end;