PascalABC Составить функцию, которая вычисляет функцию синус как сумму ряда (С точностью...

Question

PascalABC
Составить функцию, которая вычисляет функцию синус как сумму ряда (С точностью 0.001)
Пример ввода:
x=45
sin(45) = 0.707

---

Answer 1

Var g,s:real;
function sn(g:real):real;
const e=0.001;
var x,a,s:real; n:integer;
begin
x:=g*Pi/180;
a:=x;s:=a;n:=0;
while abs(a)>e do
 begin
 a:=-a*x*x/(2*n+2)/(2*n+3);
 s:=s+a;
 n:=n+1
 end;
sn:=s;
end;
begin
write('Введите угол (в градусах): ');
readln(g);
s:=sn(g);
writeln('sin(',g,')=',s:7:5);
end.

Comments

А через функцию можете составить? Из программы я конечно её составлю, но надо бы сделать корректный ответ по условию, чтобы остальным была польза.

---

Можно и через функцию

---

Все, ответ удолетворяет условию.