大家帮帮忙！我初学pascal!~

Question

好多错啊，兄弟还要多多努力。1、算阶称跟x有什么关系？那一段应该是：
x2:=1
for j:=1 to n do
x2:=x2*j;2、x:=x1/x2后，x值变了，下一项的运算怎么会正确？

Answer 1

呵呵
1、算阶称跟x有什么关系？那一段应该是：
x2:=1
for j:=1 to n do
x2:=x2*j;
                                  （笔误！）program abc;
var
i,j,a,n:integer;
x1,x2,sum,x,b,c:real;
begin
read(x);
a:=1;
n:=3;
repeat
  for i:=1 to n do
  x1:=x*x;
  for j:=1 to n do
  x2:=x2*j;
  c:=x1/x2;
  if a mod 2 =0 then
    sum:=sum+c
  else
    sum:=sum-c;
  a:=a+1;
  n:=n+2;
until ABS(c)< 1E-7;
b:=x+sum;
write('sin(x)=',sin(b))
end.这次对了吗？