Задачка на разложение в ряд Тейлора Опции

[Stefan]

Очень нужна помощь,помогите пожалуйста.

Xi изменяется от 0 до 0,5 с шагом 0,1,а Yi от 0 до 0,5 с шагом 0,05.Для вычисления cos организовать функцию,использующую разложение в ряд Тейлора.

[Tan]

вот тебе пример, но с другой функцией (по крайней мере у нас это называлось разложение в ряд Тейлора) :

var X,S,Y,A:real;
    k:integer;
begin
   x:= -0.9;
   while x< 0.9 do
   begin
      S:=2*x;
      A:=2*x;
      k:=1;
      while ABS (A)> 0.0001 do {точность}
      begin
         A:=A*((x*x*(2*k-1))/(2*k+1));
         S:=S+A;
         k:=k+1;
      End;
      y:=ln((1+x)/(1-x));
      writeln (x:6:2,S:12,Y:12,k:6);
      x:=x+0.1;
   End;
readln;
End.

Сообщение отредактировано: Tan - 23.03.2007 23:02