|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
24.01.2010, 21:25 | #1 (permalink) |
Member
Регистрация: 24.01.2010
Сообщений: 43
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 26
|
Как вычислить значение аргумента Х?
Ссылка удалена ? Расчеты производить по этой формуле Ссылка удалена по разложению в ряд. Если у кого есть свободные 6 минут, помогите с кодом, пожалуйста =) UPD. Извините, название темы неверно.. UPD2 Именно паскаль, спасибо! ) Последний раз редактировалось Fenix; 11.06.2013 в 13:01 Причина: Ссылка мертва |
24.01.2010, 21:25 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Если решение проблемы затянулось - можете прочитать данные темы Вычислить методом тарапеции в VBA Вычислить сумму |
24.01.2010, 22:23 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
VAR X:REAL; i:INTEGER; Function SUM(Xs:REAL):REAL; VAR a:REAL; n:INTEGER; Begin a:=-SQR(2*Xs)/2; SUM:=1+0.5*a; n:=1; Repeat Inc(n); a:=-a*SQR(2*Xs)/(2*n-1)/(2*n); SUM:=SUM+0.5*a; Until Abs(a)<1E-7; End; BEGIN For i:=0 TO 45 DO Begin X:=Pi*i/90; WriteLn(i:2,'*Pi/90', SUM(X):10:5, SQR(Cos(X)):10:5); End; ReadLn; END. |
|
24.01.2010, 22:58 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Попробуйте такой вариант функции:
Код:
Function SUM(Xs:REAL):REAL; VAR a,S:REAL; n:INTEGER; Begin a:=-SQR(2*Xs)/2; S:=1+0.5*a; n:=1; Repeat Inc(n); a:=-a*SQR(2*Xs)/(2*n-1)/(2*n); S:=S+0.5*a; Until Abs(a)<1E-7; SUM:=S; End; |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
25.01.2010, 23:22 | #10 (permalink) |
Member
Регистрация: 24.01.2010
Сообщений: 43
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 26
|
Спасибо еще раз.
Прошу прощения, за возможно глупый вопрос, но имеет ли место быть в этом решении рекуррентная формула ? |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|