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


Ответ
 
Опции темы Опции просмотра
Старый 05.12.2010, 23:00   #1 (permalink)
opskaka
Member
 
Регистрация: 05.12.2010
Сообщений: 25
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Сумма

Получить значение функции Y=Cos(x), используя N членов разложения функции в ряд
Сos(x)=∑_(i=1)^n▒〖〖(-1)〗^i x^2i/(2i)!〗 .
Как я понимаю здесь просто нужно найти значение соs,т.е. если i-четное то к сумме прибавляем дробь,а если нечетное то отнимаем….помогите пожалуйста..не успеваю решить, а задача нужна к завтрашнему))
opskaka вне форума   Ответить с цитированием

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

Нашлось еще несколько тем, которые создавались ранее

Паскаль. Сумма цифр числа
Сумма числового ряда
Сумма числового ряда. Найдите ошибку
Контрольная сумма
В файл записать числа, у которых равна сумма цифр целой и дробной части .

Старый 05.12.2010, 23:15   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,837
Сказал(а) спасибо: 316
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Цитата:
Сообщение от opskaka Посмотреть сообщение
Получить значение функции Y=Cos(x), используя N членов разложения функции в ряд
Сos(x)=∑_(i=1)^n▒〖〖(-1)〗^i x^2i/(2i)!〗 .
Как я понимаю здесь просто нужно найти значение соs,т.е. если i-четное то к сумме прибавляем дробь,а если нечетное то отнимаем….помогите пожалуйста..не успеваю решить, а задача нужна к завтрашнему))
Ладно, без паники! Вот программа, вычисляющая Ваш косинус с заданной точностью. Выводится Х, значение суммы, число членов разложения и (для сравнения) точное значение косинуса:
Код:
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.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Старый 05.12.2010, 23:25   #3 (permalink)
opskaka
Member
 
Регистрация: 05.12.2010
Сообщений: 25
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

стоп,а почему переменная i нигде не используется?или вместо i введена в процедуре переменная а?да и в дробе там факториал!!!!

Последний раз редактировалось opskaka; 05.12.2010 в 23:34
opskaka вне форума   Ответить с цитированием
Старый 05.12.2010, 23:31   #4 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,837
Сказал(а) спасибо: 316
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Цитата:
Сообщение от opskaka Посмотреть сообщение
Спасиб,большущее!!!очень помогли!!!
Кстати, заметил, что в задании несколько иначе - задается не точность, а число членов разложения. Тогда так:
Код:
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.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Старый 05.12.2010, 23:41   #5 (permalink)
opskaka
Member
 
Регистрация: 05.12.2010
Сообщений: 25
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Да,что то не то...задана не точность а количество членов в общем вот задание посмотрите пожалуста может так будет понятнее
Ссылка удалена

Последний раз редактировалось Fenix; 11.06.2013 в 13:32 Причина: Ссылка мертва
opskaka вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 06.12.2010, 09:34   #6 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,837
Сказал(а) спасибо: 316
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Цитата:
Сообщение от opskaka Посмотреть сообщение
Да,что то не то...задана не точность а количество членов в общем вот задание посмотрите пожалуста может так будет понятнее
Ссылка удалена
Так ведь я же выложил и такой вариант... Что же Вы столь невнимательны?
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Ads

Яндекс

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

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

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

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




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

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