project1.dpr

来自「自动求出任何一个数的cos值。可自动保留有效数字。」· DPR 代码 · 共 31 行

program Project1;
 ///cos(x)
{$APPTYPE CONSOLE}
var
x,n,i:integer;
s1,s2,s3:integer;
s:real;
begin
writeln('请输入X值:');
readln(x);
writeln('请输入n:');
readln(n);
///////////////////////////

s:=0;
s1:=1;  s2:=1;   s3:=1;
for  i:=1 to n do
begin
     s1:=s1*(-1);
     s2:=s2*x*x;
     s3:=s3*(2*i-1)*(2*i);
     s:=s+(s1*s2/s3);
end;
  s:=s+1;
writeln('cos(x)=',s);
readln(s);


///////////////////////////
end.