Ряд Тейлора в паскале

[Ku6ep]

Товарищи ! Кому не заподло, решите пожалуйста

Дано разложение некоторой функции y(x) в ряд Тэйлора S(x). Вычислить для вводимых с клавиатуры значений x ( │х│ < 1 ), N, K, Eps:
A) Сумму N членов ряда;
B) Сумму членов ряда до достижения заданной точности Eps;
C) Число слагаемых, при котором достигается эта точность;
D) Точное значение функции y(x);
Если для любого Е (эпселент)>0 можно найти такое N, что для всех n>N выполняется неравенство |A-Xn|<

y(x)=Sin(x) ; S(x)= x – x3 /3! + x5 /5! – x7 /7! +...

[alex_fcsm]

uses crt;
var sum,x,temp,eps:real;
    i,n:integer;
    
function power(a:real;y:integer):real;
var res:real;
    i:integer;
begin
  res:=1;
  for i:=1 to y do
   res:=res*a;
  power:=res;
end;

function fact(a:integer):real;
var i:integer;
    res:real;
begin
res:=1;
for i:=1 to a do
 res:=res*i;
 fact:=res;
end;

begin
clrscr;
writeln('input x');
readln(x);
writeln('input eps');
readln(eps);
writeln('input n');
readln(n);
sum:=x;i:=1;
clrscr;
repeat
inc(i);
temp:=power(x,2*i+1)/fact(2*i+1);
if i mod 2=0 then sum:=sum-temp
   else sum:=sum+temp;
until temp<=eps;
Writeln('Сумма до достижения точности ',sum:10:6);
Writeln('Количество слагаемых при этом ',i);
sum:=0;
for i:=0 to n-1 do
 sum:=sum+power(x,2*i+1)/fact(2*i+1);
Writeln('Сумма ',n,' слагаемых ',sum:10:6);
Writeln('Значение функции ',sin(x):10:6);
end.

[Alenia]

ой блін і мені б задачку вирішити, теж ряд тейлора, можна на Паскалі чи на Сі пофіг на чому...

Завдання: інтеграл від 1 до 0 від кубічного коріня, під ним 1+х в квадраті * dx (dx не під корнем)

додаткові данні:
(x нульове)=1/2

y(x)=кубічний корінь, під корнем ---> 1+х в квадраті * dx (dx не під корнем)

наче все, хто може умоляю допоможіть, а то мене з*їдять! )