05.12.2010, 23:00 | #1 (permalink) |
Member
Регистрация: 05.12.2010
Сообщений: 25
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Сумма
Сos(x)=∑_(i=1)^n▒〖〖(-1)〗^i x^2i/(2i)!〗 . Как я понимаю здесь просто нужно найти значение соs,т.е. если i-четное то к сумме прибавляем дробь,а если нечетное то отнимаем….помогите пожалуйста..не успеваю решить, а задача нужна к завтрашнему)) |
05.12.2010, 23:00 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Нашлось еще несколько тем, которые создавались ранее Паскаль. Сумма цифр числа Сумма числового ряда Сумма числового ряда. Найдите ошибку Контрольная сумма В файл записать числа, у которых равна сумма цифр целой и дробной части . |
05.12.2010, 23:15 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
CONST Eps=0.0001; VAR SUM,X:REAL; N:WORD; PROCEDURE SUMS(Xs:REAL; Var S:REAL; Var Ns:WORD); VAR a:REAL; Begin a:=1; S:=1; Ns:=0; Repeat Inc(Ns); a:=-a*Xs*Xs/(2*Ns-1)/(2*Ns); S:=S+a; Until Abs(a)<Eps; End; BEGIN Write('X= '); ReadLn(X); WriteLn(' Results of calculation:'); WriteLn(' X SUM N Cos(X)'); WriteLn; SUMS(X,SUM,N); WriteLn(X:8:5,' ',SUM:8:5,' ',N:3,' ',Cos(X):8:5); ReadLn; END. |
|
05.12.2010, 23:25 | #3 (permalink) |
Member
Регистрация: 05.12.2010
Сообщений: 25
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
стоп,а почему переменная i нигде не используется?или вместо i введена в процедуре переменная а?да и в дробе там факториал!!!!
Последний раз редактировалось opskaka; 05.12.2010 в 23:34 |
05.12.2010, 23:31 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Кстати, заметил, что в задании несколько иначе - задается не точность, а число членов разложения. Тогда так:
Код:
VAR X:REAL; N:WORD; Function SUMS(Xs:REAL; Ns:WORD):REAL; VAR a,S:REAL; Is:Integer; Begin a:=1; S:=1; For Is:=1 to Ns do begin a:=-a*Xs*Xs/(2*Is-1)/(2*Is); S:=S+a; end; SUMS:=S; End; BEGIN Write('X= '); ReadLn(X); Write('N= '); ReadLn(N); WriteLn(' Results of calculation:'); WriteLn(' X SUM N Cos(X)'); WriteLn; WriteLn(X:8:5,' ',SUMS(X,N):8:5,' ',N:3,' ',Cos(X):8:5); ReadLn; END. |
05.12.2010, 23:41 | #5 (permalink) |
Member
Регистрация: 05.12.2010
Сообщений: 25
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Да,что то не то...задана не точность а количество членов в общем вот задание посмотрите пожалуста может так будет понятнее
Ссылка удалена Последний раз редактировалось Fenix; 11.06.2013 в 13:32 Причина: Ссылка мертва |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
06.12.2010, 09:34 | #6 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|