Программа для вычисления значения функции - Turbo Pascal (28948)

Формулировка задачи:

Помогите пожалуйста!!! Срочно, умоляю молю Составить программу для вычисления значения функции :y=sin(x) с помощью разложения функции в степенной ряд


textual

Код к задаче: «Программа для вычисления значения функции - Turbo Pascal (28948)»

uses crt;
const
e=0.00000001;
var x,t,s:real;
    n:integer;
begin
clrscr;
write('x=');readln(x);
t:=x;
s:=x;
n:=0;
while abs(t)>=e do
 begin
  n:=n+1;
  t:=-t*x*x/(2*n*(2*n+1));
  s:=s+t;
 end;
writeln('Приближенное значение  sinx=',s:10:8);
writeln('Аналитическое значение sinx=',sin(x):10:8);
readln
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

11   голосов, оценка 3.909 из 5

Источник