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

[blazelott]

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

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

 

[blazelott]

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

 

[blazelott]

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

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

 

[Vladimir_S]

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

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

 

[blazelott]

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

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

 

[Vladimir_S]

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

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

 

[blazelott]

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

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

 

[Vladimir_S]

Вот, получите.
Некоторые пояснения: как я понял, 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.