Ряд Тейлора

[Lensom]

Ряд Тейлора

Вычислить и вывести в виде таблицы значения функции,заданной с помощью ряда Тейлора ,на интервале Хнач до Хкон с шагом dx c точностью eps . Каждая строка таблицы должна содержать значение аргумента,значение функции и количество просуммированных членов ряжа.

У меня получился стандартный код,но не знаю что ввести на месте s,h;

program Za_;
var
h, s, x, xmin, xmax, dx, Eps : real;
n : integer;

begin
write( 'xmin= '); read(xmin);
write( 'xmax='); read(xmax);
write( 'dx='); read(dx);
write( 'Eps= '); read(eps);


 x := xmin;
 while x <= xmax do
  begin
 h :=     ;
s :=      ;
n:= 0;

    while (abs(h) > eps) do
      begin
      s := s + h;
      n := n + 1;
       h :=    ;

      end;
      writeln(   'x= ', x ,  '   S=  ', s:5:10,'   N= ', n:3, '  sin(x)/x = ' ,  sin(x)/x:3:10);
      x := x + dx;
  end;
end.

Пожалуйста ,помогите исправить.

 

[Vladimir_S]

Пожалуйста ,помогите исправить.

Пожалуйста:

var
 h,s,x,xmin,xmax,dx,Eps:real;
 n: integer;

begin
 write( 'xmin= '); readln(xmin);
 write( 'xmax= '); readln(xmax);
 write( 'dx= '); readln(dx);
 write( 'Eps= '); readln(eps);

 x:=xmin;
 while x<=xmax do
  begin
   h:=1;
   s:=1;
   n:=0;
   while (abs(h)>eps) do
    begin
     n:=n+1;
     h:=-h*x*x/(2*n+1)/(2*n);
     s:=s+h;
    end;
   if x<>0 then
    writeln('x= ',x:8:5,'   S= ',s:7:5,'   N= ',n:3, '  sin(x)/x = ',sin(x)/x:7:5)
   else
    writeln('x= ',x:8:5,'   S= ',s:7:5,'   N= ',n:3, '  sin(x)/x = 1.00000');
   x:=x+dx;
  end;
 Readln
end.

Уж извините, но эту кучу пробелов, к которым у Вас явно маниакальная страсть, я поубивал.