Ряд Тейлора

Lensom · 29.05.2014, 18:52

Вычислить и вывести в виде таблицы значения функции,заданной с помощью ряда Тейлора ,на интервале Хнач до Хкон с шагом 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 · 29.05.2014, 22:54

Цитата:

Сообщение от Lensom

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

Пожалуйста:

Код:

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.

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

29.05.2014, 18:52	#1 (permalink)
Lensom Новичок Регистрация: 21.05.2014 Сообщений: 5 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Ряд Тейлора Вычислить и вывести в виде таблицы значения функции,заданной с помощью ряда Тейлора ,на интервале Хнач до Хкон с шагом 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. Пожалуйста ,помогите исправить. Миниатюры

29.05.2014, 18:52
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Участники форума когда то создавали аналогичные темы Ряд Тейлора Помогите с задачей. Ряд Тейлора. Ряд Тейлора

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070