delphi7编程实现求sinx

delphi7编程实现求sinx，sinx=x-x^3/3!+x^5/5!-……+(-1)^n*[x^(2n+1)]/(2n+1)! 其中X和n从键盘输入 代码怎么写？

答案：program sinx;
{$APPTYPE CONSOLE}
var
  s, x, t: extended;
  n: integer;
begin
  writeln('请输入x, n的值：');
  readln(x, n);
  s := 0.0;
  t := x;
  for i := 1 to 2*n + 1 step 2 do
  begin
     s := s + t;
     t := t * x * x * (-1.0) / (2 * i) / (2 * i + 1);
  end;
  writeln(s);
end.

上一个：Delphi7编程问题
下一个：提示 - 搜搜问问