PascalABC
Составить функцию, которая вычисляет функцию синус как сумму ряда (С точностью 0.001)
Пример ввода:
x=45
sin(45) = 0.707
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
