Chuỗi Taylor

Lập trình tính: MCos(x)=1- (x^2/2!) + (x^4/4! ) - … (số mũ chẵn )
       MSin(x)=x- (x^3/3!) + (x^5/5! ) - … (số mũ lẻ ). Với x là số thực nhập từ bàn phím

                                                                 Giải

Const e=0.00001;
Var x, Mc, Ms, Me, Sh, S: Real; n: Longint;
Function Mcos(x:Real):Real;
   Begin
       S:=1; Sh:=1; n:=0;
       While Abs(Sh)>=e Do
              Begin Sh:=(-sh*x*x)/((n+1)*(n+2)); S:=S+Sh; n:=n+2; End;
       Mcos:=s;
    End;
Function Msin(x:Real):Real;
   Begin
       While Abs(Sh)>=e do
           Begin Sh:=(-Sh*x*x)/((n+1)*(n+2)); S:=S+Sh; n=n+2; End;
       Msin:=S;
   End;
BEGIN
      Write('Nhap x = '); Readln(x); Ms:=Msin(x); Mc:=Mcos(x);
      Writeln('=> Msin(',x:6:2,') = ',Ms:10:3,' so sanh voi chuan = ',sin(x):10:3);
      Writeln('=> Mcos(',x:6:2,') = ',Mc:10:3,' so sanh voi chuan = ',cos(x):10:3);
      Writeln('=> Mexp(',x:6:2,') = ',Me:10:3,' so sanh voi chuan = ',exp(x):10:3);
       Readln;
END.