Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Рассчитать первые 10 коэффициентов разложения функции y = sin(x) в ряд Тейлора в окрестности точки x.

Ответ оставил Гость

var ai: real;
    i,f: integer;
Begin
    ai := -1;
    f := 1;
    for i := 1 to 10 do begin  
        ai := ai * (-1) / f;  
        f:=f*(2*i-1)*i*2;
        WriteLn(A[,i,] = ,ai, * x^,2*i-1);
    end;
    Readln;
End.