Розробити програму наближеного обчислення функції y= sin(x). Цю функцію можна розвинути у степеневий ряд Тейлора n=1,2
program stepen_ryd; {sin(x)}
var x,s,item:real; {аргумент функції, сума та члени ряду}
i:integer; {лічильник}
eps:real; {точність}
begin
writeln ('sin(x) calculation');
writeln ('enter function argument x= ');
readln (x);
writeln ('enter mistake');
readln (eps); {увести похибку розрахунків}
s:=x; {ініціалізувати суму ряду}
item:=x; {ініціалізувати перший член ряду}
i:=2; {ініціалізувати лічильник}
while abs(item)>eps do {доки поточний член не задовольняє точності}
begin {обчислювати поточний член і суму ряду}
item:=item*(-x*x)/(i*(i+1));
s:=S+item;
i:=i+2;
end;
writeln ('s=', s:6:2, 'sin(', x:3:3, ')= ', sin(x):6:7, 'error= ', abs(s-sin(x)):6:7);
end.