pascal简单问题一个。！

输入X值（0>=Z>=1.5) 按下列公式计算X-X^3/3+X^5/5-X^7/7..

直到最后一项的绝对值小于10^-7次方为止

用REPEAT哈~~
还有一题。。还是内题目。。。
问题改了下。。
就说。。直到100项。。~~
用For的
谢谢哈

1.
program aaa;{名字随便起的}
const
eps=1e-7;
var
x,t,s:real;
n:integer;
begin
read(x);
n:=1;
t:=x;
s:=x;
repeat
n:n+2;
t:=t*(-x*x)/(n-1)/n;
s:=s+t;
until abs(t)<eps;
writeln(s);
end.
2.
program bbb;{名字随便起的}
var
x,t,s:real;
i:integer;
begin
read(x);
t:=x;
s:=x;
for i:=1 to 100 do
t:=t*(-x*x)/(2*i-1);
s:=s+t;
writeln(s);
end.

1
var x,s,i,j,k:real;
begin
__readln(x);
__i:=-1; s:=0; j:=1/x; k:=-1;
__repeat
____j:=j*x*x; k:=k+2; i:=-i;
____s:=s+i*j/k;
__until abs(j/k)<1e-7;
__writeln(s);
end.

2
var x,s,i,j,k,l:real;
begin
__readln(x);
__i:=1; s:=0; j:=x; k:=1;
__for l:=1 to 100 do begin
____s:=s+i*j/k;
____j:=j*x*x; k:=k+2; i:=-i;
__end;
__writeln(s);
end.