Вычислить функцию с заданной точностью

@Kat_irinka_ · Регистрация: 16.11.2010

Студворк — интернет-сервис помощи студентам

помогите пожалуйста сделать задачу очень срочно надо...
1. Не используя стандартные функции, вычислить с точностью eps (0<eps<1)

y = cos (x) =
=1 - x^2/2! +x^4/4!+.... +((-1)^n*x^2n))/(2n!)...
Считать, что требуемая точность достигнута, если очередное слагаемое по модулю меньше eps, - все последующие слагаемые можно уже не учитывать.

@Laise · 14.03.2011, 16:22

Pascal

Program Lab3;
Uses Crt;
Var i : Integer;
    y,A1,A2,E : Real;
    Eps,x : Real;
begin
  clrscr;
  write('Eps = ');
  readln(Eps);
  write('x= ');
  readln(x);
  y := 1;
  A1 := 1;
  i := 1;
  repeat
   A2 := -A1*2*x*2*x/(2*i*(2*i-1));
   i := i+1;
   y := y + A2;
   E :=abs(abs(A1) - abs(A2));
   A1 := A2;
   until E<Eps;
  writeln(y:2:3);
  readln;
end.

Добавлено через 15 минут
Ой, ошибочка есть. Я скинула свою лабу, а там нужно было вычислить cos2x. Так что просто вместо
A2 := -A1*2*x*2*x/(2*i*(2*i-1)); нужно A2 := -A1*x*x/(2*i*(2*i-1));

@Kat_irinka_ 0 / 0 / 1 Регистрация: 16.11.2010 Сообщений: 16
		1
	Вычислить функцию с заданной точностью 14.03.2011, 15:58. Показов 1553. Ответов 1 Метки нет (Все метки) помогите пожалуйста сделать задачу очень срочно надо... 1. Не используя стандартные функции, вычислить с точностью eps (0<eps<1) y = cos (x) = =1 - x^2/2! +x^4/4!+.... +((-1)^n*x^2n))/(2n!)... Считать, что требуемая точность достигнута, если очередное слагаемое по модулю меньше eps, - все последующие слагаемые можно уже не учитывать. 0

Опции темы

Вычислить функцию с заданной точностью

Решение