Вычислить значение функции - Pascal (4631)

Формулировка задачи:

посоветуйте как сделать Вычислить значение функции с точностью ε=10^-4, x изменяется от 0 до 0.5 с шагом 0.01.

Решение задачи: «Вычислить значение функции»

textual
                            Листинг программы 
                        

                            const e=0.0001;//точность
      xn=0.0;
      xk=0.5;
      h=0.01;
var x,s,t:real;
    n:integer;
begin
x:=xn;
writeln('       Табулирование функции F(x)=sin(x),');
writeln('     представленной разложением в степенной ряд');
writeln('        на интервале [',xn:0:1,';',xk:0:1,'] с шагом ',h:0:2);
writeln;
writeln('        -----------------------------');
writeln('        |   X   |    S    |   sinx  |');
writeln('        -----------------------------');
while x<=xk+h/2 do
 begin
  n:=1;
  t:=x;
  s:=t;
  while abs(t)>e do
   begin
    n:=n+1;
    t:=-t*x*x/((2*n-2)*(2*n-1));
    s:=s+t
   end;
  writeln('        |',x:6:2,' |',s:8:4,' |',sin(x):8:4,' |');
  x:=x+h;
 end;
writeln('        -----------------------------');
end.
                        