IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Задачка на факториал, Помогите разобраться
Warn
сообщение 22.11.2005 15:30
Сообщение #1


Гость






Здравствуйте! Помогите, пожалуйста, решить задачу.
Код

        n   2n-1
∞   (-1)   x                            -5
∑   −−−−−−−−−−−−    , E (эпсилон)=0,2*10    , |x|≤1
n=1   (2n)!

Извините за плохое оформление, так получилось.

Я пробовал решить:

Код

Program Factor;
Const e=1E-5;
Var n,x:Integer; Ai,S,Fact:Real; Minus:Boolean;
Begin
WriteLn('BBeDuTe 4ucLo');
 ReadLn(x);
 n:=1;
 Minus:=True;
 Fact:=1;
 S:=0;
 Ai:=0;
Repeat
 Fact:=Fact*2*n;
 Ai:=Exp((2*n-1)*Ln(x))/Fact;
 If Minus Then Ai:=Ai*(-1);
 S:=S+Ai;
 Minus:=Not Minus;
 n:=n+1;
Until
 Abs(Ai)<e;
Writeln('S = ',s);
Readln;
End.


Не пойму, где применить E (эпсилон)=0,2*10^(-5) , |x|≤1.
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Warn
сообщение 22.11.2005 22:26
Сообщение #2


Гость






Спасибо, что не оставили без внимания! Только можно попроще? Мы еще не проходили такие строки как например
Цитата
s := s + (1 - 2*Byte(Odd(n))) * next;

Вот.. unsure.gif
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 20.06.2025 19:48
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"