вычисление значения функции

[shbn]

вычисление значения функции

[Mad_Cat]

Function S(x,e:real):real;
var res:real;
fact,step:real;
per:real;
i:integer;
begin
res:=1;
i:=1;
step:=x*x;
fact:=6;
while step/fact>=e do
begin
if odd(i) then  res:=res-step/fact
else res:=res+step/fact;
inc(i);
fact:=fact*2*i*(2*i+1);
step:=step*x*x
end;
s:=res;
end;
Function F(x:real):real;
begin
F:=sin(x)/x;
end;

var xn,xk,dx,e:real;
begin
readln(xn,xk);
readln(dx);
readln(e);
WRiteln('--------------------------------');
Writeln('    x',' ':4,'|  S(x)',' ':3,' |  F(x)',' ':4,'|');
WRiteln('--------------------------------');
while xn<=xk do
begin
writeln(xn:8:3,' | ',S(xn,e):8:3,' | ',F(xn):8:3,' |');
Writeln('--------------------------------');
xn:=xn+dx;
end;
readln;
end.

-0.9
0.9
0.6
0.0001
--------------------------------
x | S(x) | F(x) |
--------------------------------
-0.900 | 0.870 | 0.870 |
--------------------------------
-0.300 | 0.985 | 0.985 |
--------------------------------
0.300 | 0.985 | 0.985 |
--------------------------------
0.900 | 0.870 | 0.870 |
--------------------------------

( сьехала табличка((( в ПАскале норм рисуется)