|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
03.02.2013, 09:46 | #1 (permalink) |
Member
Регистрация: 03.02.2013
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Pascal, циклы, управляемые условиями
|
03.02.2013, 09:46 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Можете найти полезную информацию в похожих обсуждениях Циклы и массивы. Говорят проще некуда, но не для меня Pascal, циклы, управляемые условиями Pascal |
03.02.2013, 10:14 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Мало! Даже в "отредактированной" формуле количество открывающих скобок не равно количеству закрывающих. Далее: так, как это накорябано на снимке, приводит сразу к Х=0 (тогда и справа, и слева ноль). Устраивает? Нет? Тогда с самого начала, ясно, четко и подробно соблаговолите сформулировать задание. "Вокруг да около" нас не интересует.
P.S. И при чем тут изображенный на графике меандр? Сдается мне, что он тут ни к селу, ни к городу. Или это разлагаемый в ряд Фурье сигнал? Но зачем он нам? |
03.02.2013, 10:49 | #5 (permalink) | |
Member
Регистрация: 03.02.2013
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
03.02.2013, 11:16 | #6 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
|
|
03.02.2013, 11:58 | #8 (permalink) |
Специалист
Регистрация: 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. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|