Здравствуйте!Помогите пожалуйста: вычислить сумму бесконечного ряда с данной погрешностью

Здрасти!Помогите пожалуйста: вычислить сумму нескончаемого ряда с заданной погрешностью E=0,001

Задать свой вопрос
1 ответ
Var x,e,a,s:real; i,f,z:integer;
begin
readln(e);
x:=1.5;
i:=0;
f:=1;
s:=0;
z:=1;
a:=1;
while абс(a)gt;e do
 begin
 i:=i+1;
 f:=f*i;
 z:=-z;
 a:=z*exp(x-i)/f;
 s:=s+a;
 end;
writeln('s = ',s:6:3);
end.

Пример:
0.001
s = -1.379
Ирина
Спасибо для вас большое!!!
Василий Палковников
Пожалуйста.
Инна Дунамалян
а к вам можно если что будет обращаться?
Владислав Крейнюк
Обращайтесь, но обещать ничего не могу.
Илья Троханов
Спасибо!
Юрий Айсена
Здрасти!Мне снова нужна ваша помощь!Если можете помогите
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт