Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 03.02.2013, 09:46   #1 (permalink)
blazelott
Member
 
Регистрация: 03.02.2013
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Pascal, циклы, управляемые условиями

Помогите пожалуйста решить задачу. Дана формула, идущая до бесконечности. Дан eps=0.1 Нужно найти X.
Миниатюры
uou4olgzo-m1111.jpg  
blazelott вне форума   Ответить с цитированием

Старый 03.02.2013, 09:46
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Можете найти полезную информацию в похожих обсуждениях

Циклы и массивы. Говорят проще некуда, но не для меня
Pascal, циклы, управляемые условиями
Pascal

Старый 03.02.2013, 09:48   #2 (permalink)
blazelott
Member
 
Регистрация: 03.02.2013
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Рекуррентную формулу я нашел. t=4/pi*(sin(2*n-1)/(2*n-1) А дальше у меня все застопорилось.
blazelott вне форума   Ответить с цитированием
Старый 03.02.2013, 09:51   #3 (permalink)
blazelott
Member
 
Регистрация: 03.02.2013
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
t=4/pi*(sin(x*(2*n-1))/(2*n-1)
Отредактировал.
blazelott вне форума   Ответить с цитированием
Старый 03.02.2013, 10:14   #4 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от blazelott Посмотреть сообщение
Отредактировал.
Мало! Даже в "отредактированной" формуле количество открывающих скобок не равно количеству закрывающих. Далее: так, как это накорябано на снимке, приводит сразу к Х=0 (тогда и справа, и слева ноль). Устраивает? Нет? Тогда с самого начала, ясно, четко и подробно соблаговолите сформулировать задание. "Вокруг да около" нас не интересует.
P.S. И при чем тут изображенный на графике меандр? Сдается мне, что он тут ни к селу, ни к городу. Или это разлагаемый в ряд Фурье сигнал? Но зачем он нам?
Vladimir_S вне форума   Ответить с цитированием
Старый 03.02.2013, 10:49   #5 (permalink)
blazelott
Member
 
Регистрация: 03.02.2013
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от Vladimir_S Посмотреть сообщение
Мало! Даже в "отредактированной" формуле количество открывающих скобок не равно количеству закрывающих. Далее: так, как это накорябано на снимке, приводит сразу к Х=0 (тогда и справа, и слева ноль). Устраивает? Нет? Тогда с самого начала, ясно, четко и подробно соблаговолите сформулировать задание. "Вокруг да около" нас не интересует.
P.S. И при чем тут изображенный на графике меандр? Сдается мне, что он тут ни к селу, ни к городу. Или это разлагаемый в ряд Фурье сигнал? Но зачем он нам?
И нужно найти X в рамках графика и при eps=0.1 В графике, по y, ограничение идет -1 и 1. Я и сам думаю, что график тут не нужен. Не пойму почему преподаватель его начертил. У меня такое подозрение, что надо найти не x, а f(x). Но эти подозрения я, в данный момент, не могу проверить.
blazelott вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 03.02.2013, 11:16   #6 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от blazelott Посмотреть сообщение
И нужно найти X в рамках графика и при eps=0.1 В графике, по y, ограничение идет -1 и 1. Я и сам думаю, что график тут не нужен. Не пойму почему преподаватель его начертил. У меня такое подозрение, что надо найти не x, а f(x). Но эти подозрения я, в данный момент, не могу проверить.
Хорошо, попробую.
Vladimir_S вне форума   Ответить с цитированием
Старый 03.02.2013, 11:21   #7 (permalink)
blazelott
Member
 
Регистрация: 03.02.2013
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от Vladimir_S Посмотреть сообщение
Хорошо, попробую.
Буду благодарен.
blazelott вне форума   Ответить с цитированием
Старый 03.02.2013, 11:58   #8 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Вот, получите.
Некоторые пояснения: как я понял, 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.
Миниатюры
pi.jpg  
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 16:07.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.