Вычислить значение заданной функции непосредственно и как сумму ряда

@qibiq · Регистрация: 19.03.2010

Здравствуйте, необходимо решить задачуd gfcrfkt: "Вычислить значение заданной функции непосредственно и как сумму ряда с погрешностью 0,001. Значение аргумента выбрать самостоятельно"

Новичок · 10.11.2013, 13:43

Pascal

var x,s,p,e:Real;
f,i:Integer;
begin
i:=1;
e:=0.001;
Write('x=');
Readln(x);
s:=1;
p:=1;
f:=1;
while abs(-p*sqr(x)/f*(2*i)*(2*i-1))>=e do
begin
p:=-p*sqr(x);
f:=f*(2*i)*(2*i-1);
s:=s+p/f;
i:=i+1;
end;
Writeln('cos(x)=',s:0:3);
Readln;
end.

Поправьте,пожалуйста те кто разбирается в рядах.А то я что-то никак не могу подружиться с ними.

@Puporev · 10.11.2013, 13:50

Pascal

var x,s,f,e:Real;
i:Integer;
begin
i:=1;
e:=0.001;
Write('x=');
Readln(x);
s:=1;
f:=1;
i:=0;
while abs(f)>=e do
 begin
  i:=i+1;
  f:=-f*x*x/(2*i*(2*i-1));
  s:=s+f;
 end;
writeln('S=',s:0:3);
Writeln('cos(x)=',cos(x):0:3);
Readln;
end.

Новичок · 10.11.2013, 13:51

Точно,так более рационально.

@Puporev · 10.11.2013, 13:52

Так у тебя и не при всех значениях считало..

Новичок · 10.11.2013, 13:57

Да,почему-то если больше или равно единицы вылетало.

Добавлено через 3 минуты

Сообщение от Puporev

Так у тебя и не при всех значениях считало..

Вы не могли бы подсказать почему?

@Puporev · 10.11.2013, 14:01

Да у тебя написано фиг поймешь, лень разбираться...

@Samhain · 11.11.2013, 10:49

Сообщение от Новичок

если больше или равно единицы вылетало

потому что в 11 строке Вы не правильно задали условие, там не хватает скобок: (-p*sqr(x)/(f*(2*i)*(2*i-1))

Новичок · 11.11.2013, 20:32

Samhain, вот спасибо огромное!

@qibiq 0 / 0 / 0 Регистрация: 19.03.2010 Сообщений: 13
		1
	Вычислить значение заданной функции непосредственно и как сумму ряда 10.11.2013, 12:52. Показов 964. Ответов 8 Метки нет (Все метки) Здравствуйте, необходимо решить задачуd gfcrfkt: "Вычислить значение заданной функции непосредственно и как сумму ряда с погрешностью 0,001. Значение аргумента выбрать самостоятельно" Изображения __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Новичок 1642 / 1091 / 487 Регистрация: 17.07.2012 Сообщений: 5,345
	10.11.2013, 13:51	4
	Точно,так более рационально. 0

@Puporev Почетный модератор 64270 / 47569 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	10.11.2013, 13:52	5
	Так у тебя и не при всех значениях считало.. 0

Новичок 1642 / 1091 / 487 Регистрация: 17.07.2012 Сообщений: 5,345
	10.11.2013, 13:57	6
	Да,почему-то если больше или равно единицы вылетало. Добавлено через 3 минуты Сообщение от Puporev Так у тебя и не при всех значениях считало.. Вы не могли бы подсказать почему? 0

@Puporev Почетный модератор 64270 / 47569 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	10.11.2013, 14:01	7
	Да у тебя написано фиг поймешь, лень разбираться... 0

@Samhain 694 / 568 / 414 Регистрация: 31.03.2013 Сообщений: 1,029
	11.11.2013, 10:49	8
	Сообщение от Новичок если больше или равно единицы вылетало потому что в 11 строке Вы не правильно задали условие, там не хватает скобок: (-psqr(x)/(f(2i)(2*i-1)) 1

Новичок 1642 / 1091 / 487 Регистрация: 17.07.2012 Сообщений: 5,345
	11.11.2013, 20:32	9
	Samhain, вот спасибо огромное! 0

Опции темы