помогите пожалуйста сделать задание... Вычисление значений тригонометрических функций на основе разложения в ряд Маклорена 1. Вычислить с заданной точностью значения тригонометрических функций arctg(x); 2. Построить графики функций arctg(x), где x - ограниченно; 3. Оценить погрешности вычислений;
private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
function _arctan(x: double): double; const eps = 0.0001; var next: double; i: integer; begin result := 0; next := x; i := 1; repeat result := result + next / i; next := - next * sqr(x); inc(i, 2); until abs(next) < eps; end;
procedure TForm1.Button1Click(Sender: TObject); var x, delta: double; n: integer; begin Edit3.Text := 'Вычисление по Маклорену = ' + FloatToStr(_arctan(x)); Series1.Clear; x := -0.99; n := 0; while x < 1 do begin Series1.AddXY(x, _arctan(x)); delta := delta + abs(_arctan(x) - ArcTan(x)); x := x + 0.01; inc(n); end; Edit1.Text := 'Погрешность = ' + FloatToStr(delta / n); Edit2.Text := 'Проверка вычислений = ' + FloatToStr(ArcTan(x)); end; end.