Дан числовой ряд и некоторое малое число x (например, x=0,00001). Найти сумму тех членов
Дан числовой ряд и некоторое малое число x (например, x=0,00001). Найти сумму тех членовряда, модуль которых больше или равен заданному x. Общий член
ряда имеет вид:
An = (2^n)/((n-1)!)
Написать в ПАСКАЛЕ
Гость
Ответ(ы) на вопрос:
Гость Const e=0.00001;
var a,st,f,s:real; n:integer;
begin
n:=1;
st:=2; f:=1;
a:=2;
s:=2;
while abs(a)>=e do
begin
st:=2*st;
a:=st/f;
s:=s+a;
n:=n+1; f:=f*n;
end;
writeln('s=',s:7:5);
end.
Результат:
s=14.77811
Не нашли ответ?
Похожие вопросы