Оператор циклов.Паскаль

[Ам тя]

Вычислить функцию с некоторой погрешностью Eps путям вычислений указанного ряда.Решение необходимо получить для 5 наборов исходных данных. Eps изменяется в диапазоне от 0.01 до 0.00001 при одном значении аргумента. Вычислить сумму ряда.
функция sin(x)
ряд x-x^3/3!+x^5/5!-x^7/7!+...
ограничения x - любое
!-факториал
это я решила=)

program text2;
var I:integer;
    x,sum,chis:real;
    const eps=(1E-10);
begin
 writeln('vv x'); readln(x);
 sum:=x; chis:=-x*x*х/2/3;
 i:=4;
  repeat
   sum:= sum+chis;
   chis:=-chis*x*x/i/(i+1);
   I:=I+2;
  until
   abs(chis/sum)<eps;
   writeln(sum,sin(x));
   end.

помогите с Cos(x)
ряд 1-х^2/2!+x^4/4!-x^6/6!+...
ограничения х - любое

[ОДИНОЧЕСТВО В СЕТИ]

это я решила=)
дык второе практически тоже самое!
сами 1-ое решали?

[Ам тя]

да.... но 2 чет не сходиться с косинусом х_х
нужно в первом и во втором случае исправить chis? и все?

[Stilet]

Ам тя

А с чего ты взяла что эта прога правильно считает?

[Ам тя]

не правильно?аааа

[Stilet]

не правильно?аааа

Ну я запустил, она разные результаты выдала с синусом

[Ам тя]

да ?оО
у мя правильно ....было х)
аааа

[Stilet]

Я так посмотрел, еще раз перепроверил - вроде сработала, но думаю что лучше будет сделать по правилам:

 var i:integer;x,cs:double;b:integer;

 function fac(n:integer):integer; begin
  Result:=1;
   while n>1 do begin
   fac:=fac*n; dec(n);
   end;
  end;

 function aga(x:double;i:integer):double;
 begin
   aga:=exp(i*ln(x))/fac(i);
 end;

begin  cs:=1;      x:=3; b:=-1;
 I := 2; while i<=12 do begin
   cs:=cs+b*aga(x,i);
   i:=i+2;
   b:=-b;
 end;
 writeln(cs:10:2,cos(x):10:2);
 readln;
end.

[Ам тя]

ыыы ваще не понятно.
мы пока по по простому делаем ...
но спс)

[Stilet]

мы пока по по простому делаем ...

Ну извини... По другому я не смог