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

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

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

> прогрессия, хелп!
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 9
Пол: Мужской

Репутация: -  0  +


arctg(X)= x-x^3/3+x^5/5-x^7/7+x^9/x+...... xe [-1;1]
правелно ли я делаю ? или лутше через массив?

Код

Program first;
uses crt;
var xn,E,summa,p,x2:real;
    i:integer;
begin
clrscr;
repeat
writeln ('введите xn [-1..1]');
readln(xn);
until (xn>=(-1)) and (xn<=1);
write('E=');
read(E);
x2:=xn*xn;
summa:=xn;
p:=xn;
i:=3;
repeat
p:=-p*x2/(i*(i-2));
summa:=summa+p;
i:=i+2;
until p<E;
writeln('p=',p:5:5);
writeln('summa=',summa:5:5);
readln;
readln;
end.


так как мне надо вводить n тоесть n=1 =x
n=2 = x+x^3/3
n=3 = x+x^3/3+x^5/5
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2





Группа: Пользователи
Сообщений: 9
Пол: Мужской

Репутация: -  0  +


Код

Program first;
uses crt;
var xn,p,E,summa,next,x2:real;
    i,n:integer;
begin
clrscr;
repeat
writeln ('iveskyte xn [-1..1]');
readln(xn);
until (xn>=(-1)) and (xn<=1);
repeat
writeln ('iveskyte E<>0=');
readln(E);
until E<>0;
x2:=xn*xn;
summa:=xn;
next:=xn;
i:=3;
for n:=1 to 3 do begin
repeat
p:=next/i;
next:=next*x2;
summa:=summa+p;
i:=i+2;

until abs(p)<E;
writeln('p=',p:5:5);
writeln('summa=',summa:5:5);
end;
readln;
end.



во..... но теперь я хотчу чтобы я вводил n а не чикл мне векидивал от 1 до 3 , хелп yes2.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Andrej   прогрессия   15.11.2006 20:03
volvo   У тебя не совсем верно здесь: repeat p:=-p*x2/(i…   15.11.2006 20:22
Andrej   спасиба :wink:   15.11.2006 20:31
Andrej   что то не то если x=1 a e=0.2 то должна сумма быть…   15.11.2006 20:47
Andrej   и еще с abs нелзя е=0 вечный цикл получается   15.11.2006 21:01
volvo   Ну вот расскажи мне, если у тебя X = 1, и s = X + …   15.11.2006 21:09
Andrej   да ты прав...понял :give_rose: а он считает толь…   15.11.2006 21:30
Andrej   Program first; uses crt; var xn,p,E,summa,next,x2…   15.11.2006 22:31
volvo   А вот теперь ты мне расскажи, зачем тебе в програм…   15.11.2006 22:55
Andrej   for n:=1 to 3 do begin так хоть далше считает.…   16.11.2006 2:34
Andrej   ну кажись решил....посчитал на бумаге вроде всио о…   16.11.2006 6:33
Sozialist   Program first; uses crt; var xn,p,E,summa3,summa2…   16.11.2006 7:11
volvo   Sozialist, ты что изменил-то в основном цикле прог…   16.11.2006 13:14
Sozialist   Человек просил вывести только последний результат,…   16.11.2006 17:09
Andrej   ище мне надо так же найти cумму которая >E но н…   16.11.2006 19:32


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

 





- Текстовая версия 29.03.2024 15:33
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name