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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

используем рекурентную формулу, чтобы упростить программу а[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;