Вычислить значение аргумента

[fermerius]

М, собственно вопрос, как вычислить значение функции (на языке паскаль) cos^2 x при значении аргумента x, от 0 до Pi/2 (0; Pi/2) с шагом Pi/90.

?

Расчеты производить по этой формуле по разложению в ряд.

Если у кого есть свободные 6 минут, помогите с кодом, пожалуйста =)

Стану крутым, помогу =)

UPD.
Namolem, сорри, неправильно выразился (

[Namolem]

значение аргумента?
for (double p=0;p<M_PI/2+0.00001;p+=M_PI/90)
cout <<p<<' ';

[fermerius]

Задача решена, спасибо =)

Решение:

VAR
 X:REAL;
 i:INTEGER;

Function SUM(Xs:REAL):REAL;
 VAR
   a,S:REAL;
   n:INTEGER;
 Begin
   a:=-SQR(2*Xs)/2;
   S:=1+0.5*a;
   n:=1;
   Repeat
    Inc(n);
    a:=-a*SQR(2*Xs)/(2*n-1)/(2*n);
    S:=S+0.5*a;
   Until Abs(a)<1E-7;
   SUM:=S;
 End;

BEGIN
 For i:=0 TO 45 DO
  Begin
    X:=Pi*i/90;
    WriteLn(i:2,'*Pi/90', SUM(X):10:5, SQR(Cos(X)):10:5);
  End;
 ReadLn;
END.