Технический форум - Pascal, циклы, управляемые условиями

Технический форум (http://www.tehnari.ru/index.php)

- Помощь студентам (http://www.tehnari.ru/forumdisplay.php?f=41)

- - Pascal, циклы, управляемые условиями (http://www.tehnari.ru/showthread.php?t=84732)

Pascal, циклы, управляемые условиями

Помогите пожалуйста решить задачу. Дана формула, идущая до бесконечности. Дан eps=0.1 Нужно найти X.

Рекуррентную формулу я нашел. t=4/pi*(sin(2*n-1)/(2*n-1) А дальше у меня все застопорилось.

Цитата:

t=4/pi*(sin(x*(2*n-1))/(2*n-1)

Отредактировал.

Цитата:

Сообщение от blazelott (Сообщение 859029)

Отредактировал.

Мало! Даже в "отредактированной" формуле количество открывающих скобок не равно количеству закрывающих. Далее: так, как это накорябано на снимке, приводит сразу к Х=0 (тогда и справа, и слева ноль). Устраивает? Нет? Тогда с самого начала, ясно, четко и подробно соблаговолите сформулировать задание. "Вокруг да около" нас не интересует.
P.S. И при чем тут изображенный на графике меандр? Сдается мне, что он тут ни к селу, ни к городу. Или это разлагаемый в ряд Фурье сигнал? Но зачем он нам?

Цитата:

Сообщение от Vladimir_S (Сообщение 859030)

И нужно найти X в рамках графика и при eps=0.1 В графике, по y, ограничение идет -1 и 1. Я и сам думаю, что график тут не нужен. Не пойму почему преподаватель его начертил. У меня такое подозрение, что надо найти не x, а f(x). Но эти подозрения я, в данный момент, не могу проверить.

Цитата:

Сообщение от blazelott (Сообщение 859038)

Хорошо, попробую.

Цитата:

Сообщение от Vladimir_S (Сообщение 859055)

Хорошо, попробую.

Буду благодарен.

Вот, получите.
Некоторые пояснения: как я понял, Eps=0.1 означает, что нужно ограничиться членом ряда, по модулю меньшим Eps при любом х, отсюда получаем, что знаменатель последнего члена должен быть больше 10, т.е. в нашем случае 11.
На графике изображен исходный меандр (синий) и результат вычисления (красный).

Код:

Var

 Step:real;

 i:byte;



Function Expansion(z:real):real;

var

 k:byte;

 Sum:real;

begin

 Sum:=0;

 for k:=0 to 5 do

  Sum:=Sum+Sin(z*(2*k+1))/(2*k+1);

 Expansion:=Sum*4/Pi;

end;



Begin

 Step:=Pi/8;

 For i:=0 to 24 do

  writeln(Step*i:5:3,Expansion(Step*i):16:5);

 Readln

End.