Алгоритми обчислення факторіала та степеневого ряду.

Розробити програму наближеного обчислення функції 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.