Технический форум - Ряд Тейлора

Цитата:

Сообщение от zwenya (Сообщение 891440)

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

Здравствуйте. Ну вот Вам Паскаль-код, а уж обвесками Delphi занимайтесь сами:

Код:

VAR

 N,i,k:Word;

 Xbeg,Xfin,Dx,S,X,a,Eps:Real;



BEGIN

 Write('Xbeg= ');

 ReadLn(Xbeg);

 Write('Xfin= ');

 ReadLn(Xfin);

 Write('DX= ');

 ReadLn(DX);

 Write('Eps= ');

 ReadLn(Eps);

 N:=Round((Xfin-Xbeg)/DX);

 WriteLn('   X        Result      Number of items     Accurate value');

 For i:=0 to N do

  begin

   X:=Xbeg+DX*i;

   S:=X;

   k:=0;

   a:=X;

   Repeat

    Inc(k);

    a:=a*SQR(X)*(2*k-1)/(2*k+1);

    S:=S+a;

   Until Abs(a*2)<Eps;

   S:=S*2;

   WriteLn(X:6:3,S:12:3,k:12,(Ln((1+X)/(1-X))):24:3);

  end;

 Readln;

END.