Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Помогите решить задачу!

86K
14 ноября 2013 года
AZelensky
11 / / 14.11.2013
Не используя стандартные функции, вычислить с точностью EPS>0

Y=LN(1+X)=X-X*X/2+X*X*X/3-...+(-1)^N*X^N/N+(-1)^N*X^X/N (|IXI|<1)

(Где ^N означает число в степени N)| (-1)^N*X^N/N |<EPS
247
15 ноября 2013 года
wanja
1.2K / / 03.02.2003
Код:
member=x;
xx:=x;
s:=0;
n:=1;
while abs(member)>=eps do
   begin
   s:=s+member;
   inc(n);
   xx:=-x*xx;
   member:=xx/N;
   end;
Примерно так...
86K
15 ноября 2013 года
AZelensky
11 / / 14.11.2013
Цитата: wanja
Код:
member=x;
xx:=x;
s:=0;
n:=1;
while abs(member)>=eps do
   begin
   s:=s+member;
   inc(n);
   xx:=-x*xx;
   member:=xx/N;
   end;
Примерно так...



Т.е. мне осталось всего лишь написать код ввода X и EPS и всё?

247
16 ноября 2013 года
wanja
1.2K / / 03.02.2003
И отладить, если есть ошибки.
86K
16 ноября 2013 года
AZelensky
11 / / 14.11.2013
Цитата: wanja
И отладить, если есть ошибки.





А тут "member=x;" точно не надо поставить :=? А то компилятор ругается

465
16 ноября 2013 года
QWERYTY
595 / / 25.03.2012
Ну если ругается ты подставь, а то ведь не будет компиляции.

Вам разрешено использовать модуль System?
86K
16 ноября 2013 года
AZelensky
11 / / 14.11.2013
Цитата: QWERYTY
Ну если ругается ты подставь, а то ведь не будет компиляции.

Вам разрешено использовать модуль System?




Думаю, что можно. А можно как-нибудь без функции ABS сделать это задание?

86K
16 ноября 2013 года
AZelensky
11 / / 14.11.2013
Цитата: QWERYTY
Ну если ругается ты подставь, а то ведь не будет компиляции.

Вам разрешено использовать модуль System?





Кстати, я правильно сделал дописал код?

Код:
USES CRT;
Var
x, xx, s, member: REAL;
n, eps: INTEGER;
Begin
CLRSCR;
writeln('Enter X (X<1)'); READ(x);
while (x>=1) do
   begin
   writeln('Enter X (X<1)'); READ(x);
   end;
writeln('Enter EPS'); READ(eps);
while (eps<=0) do
   begin
   writeln('Enter EPS (EPS>0)'); READ(eps);
   end;
member:=x;
xx:=x;
s:=0;
n:=1;
ReadLN;
while abs(member)>=eps do
   begin
   s:=s+member;
   inc(n);
   xx:=-x*xx;
   member:=xx/N;
   end;
writeln('Result = ', member:1:eps);
ReadLN;
END.
465
16 ноября 2013 года
QWERYTY
595 / / 25.03.2012
А что вас смущает в Abs, если вы используете Inc?
86K
16 ноября 2013 года
AZelensky
11 / / 14.11.2013
Цитата: QWERYTY
А что вас смущает в Abs, если вы используете Inc?





Просто в задании написано, что нельзя использовать стандартные функции

86K
16 ноября 2013 года
AZelensky
11 / / 14.11.2013
Цитата: QWERYTY
А что вас смущает в Abs, если вы используете Inc?





А как бы Вы выполнили это задание?

Не используя стандартные функции, вычислить с точностью EPS>0
Y=LN(1+X)=X-X*X/2+X*X*X/3-...+(-1)^N*X^N/N+(-1)^N*X^X/N (|IXI|<1)
(Где ^N означает число в степени N) Когда | (-1)^N*X^N/N | < EPS, то можно прекращать счёт

465
16 ноября 2013 года
QWERYTY
595 / / 25.03.2012
Скажу тебе сразу в алгоритм не вдумывался т.к. нет времени.

Наверное я бы вдумался в задание, построил код сначала с использованием функций, а потом методично одну за одной убрал заменяя конструкциями с использованием + - * /
86K
17 ноября 2013 года
AZelensky
11 / / 14.11.2013
Ещё раз повторюсь: вот задание:
Не используя стандартные функции, вычислить с точностью EPS>0
Y=LN(1+X)=X-X*X/2+X*X*X/3-...+(-1)^N*X^N/N+(-1)^N*X^X/N
Где |X|<1
(Где ^N означает число в степени N) Когда |(-1)^N*X^N/N |<EPS программа выполнена.

А вот как я попробовал сделать, правильно?:
Код:


Код:
USES CRT;
Var
x, xx, s, member: REAL;
n, eps: INTEGER;
Begin
CLRSCR;
writeln('Enter X (X<1)'); READ(x);
while (x>=1) do
   begin
   writeln('Enter X (X<1)'); READ(x);
   end;
writeln('Enter EPS'); READ(eps);
while (eps<=0) do
   begin
   writeln('Enter EPS (EPS>0)'); READ(eps);
   end;
member:=x;
xx:=x;
s:=0;
n:=1;
ReadLN;
while abs(member)>=eps do
   begin
   s:=s+member;
   inc(n);
   xx:=-x*xx;
   member:=xx/N;
   end;
writeln('Result = ', member:1:eps);
ReadLN;
END.

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог