Вычислить сумму членов ряда

@Bud · Регистрация: 26.05.2013

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

Уповаю на Ваши знания pascal, уважаемые жители сего форума и прошу подсказать или направить на путь истинный, желательно с объяснениями, буду рад любой помощи. Заранее благодарю за потраченное время.

1. Вычислить сумму членов ряда: Y(x)=1-x^2/2!+x^4/4!-...+(-1)^k+1*(x^2k-2)/(2k-2)!+...

Вычисления проводить до тех пор, пока очередной член ряда по модулю не станет <=е, е=0.00001.

(Программирование итерационного цикла с постусловием в модуле функция и использованием оператора repeat - until).

Такие извращения у меня выходят, дальше мозгов не хватает.

1.

Pascal

program Lab 1;
    uses crt;
   const
          eps=0.00001;
   var
          x:real;
  Function Fact(x,eps: real): real;
  var
      y,s: real;
      k: integer;
  begin
         k:=0; y:=1; s:=0;
  repeat
         s:=s+y; k:=k+2;
         y:=(-y)*exp((2*k-2)*ln(abs(x))/Fact(k);
         Fact(k):=s
  until(abs(y)<eps);
  end;
  begin
         write('Vv. x: ');
         writeln('cos(x)',cos(x):5:5);
         writeln('Fact(x)',Fact(x):5:5);
         readln;
  end.

@Bud · 28.05.2013, 20:11 **[ТС]**

Up.

@Bud 0 / 0 / 0 Регистрация: 26.05.2013 Сообщений: 5
	28.05.2013, 20:11 [ТС]	2
	Up. 0

Опции темы