Написать прогу на паскале!Дан числовой ряд и некое маленькое число e

Написать прогу на паскале!

Дан числовой ряд и некое малое число e (к примеру, e=0,00001). Найти сумму тех членов ряда, модуль которых больше либо равен заданному e. Общий член ряда имеет вид: An=n!/(2n)!

Задать свой вопрос
1 ответ

var fac1,fac2,sum,an,e:real;
i,j:integer;
begin
readln(e);
an:=0.5;
fac1:=1;
fac2:=1;
i:=1;
while angt;=e do begin
inc(i);
sum:=an+sum;
for j:=1 to i do fac1:=j*fac1;
for j:=1 to 2*i do fac2:=j*fac2;
an:=fac1/fac2;
end;
writeln(sum);
end.

 

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт