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

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

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

> Найти массив сумм с точностью до e
Миа
сообщение 28.12.2010 14:30
Сообщение #1





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

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


Не могу справиться с задачей, так как не понимаю условия. В методичке был пример решения данной задачи, я попыталась по примеру составить программу, но мало того что выдает ошибку, так еще и понятие "с точностью до е" меня сбивает с толку (я его просто не понимаю).

Найти массив сумм S элементов ряда для каждого значения заданной последовательности Х (с использованием оператора for). Каждую сумму искать с точностью до e.
S=x^3/3-x^5/15+...+((-1)^(n+1))*(x^(2n+1))/(4n^2-1)
x=0.1...1.3, hx=0.3, e=10e-3

Вот текст, который я попыталась составить:
PROGRAM Lab_7_2;
USES
Crt;
CONST
m = 5; {Количество Х}
xn = 0.1; {Начальное знеачение Х}
xk = 1.3; {Конечное значение Х}
hx = 0.3; {Шаг по Х}
eps = 1e-3; {Коэффициент точности}
VAR
s : array [1..m] of real; {Массив сумм}
q : real; {Коэффициент рекурентности}
i : integer; {Счетчик элементов ряда}
x : real; {Текущий Х}
k : integer; {Счетчик Х}
BEGIN
ClrScr;
x:=xn; {Начальный Х}
k:=1;
WHILE x<=xk+eps DO
Begin
i:=0;
REPEAT {Цикл поиска k-ой суммы}
q:=exp((2*i+1)*ln(x))/((4*sqr(i))-1);
if odd(i)=false then q:=-q;
s[k]:=s[k]+q;
i:=i+1;
UNTIL abs(q)<eps; {Условие точности}
Writeln('k = ',k,' x = ',x:3:1,' S = ',s[k]:6:4);
k:=k+1;
x:=x+hx; {Переход на следующий Х}
Readln;
End;
END.


Помогите составить правильную программу...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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


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

 



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