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

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

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

Решение задачи: «Программа для вычисления значения функции»

Листинг программы

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.

Объяснение кода листинга программы

В начале кода подключается библиотека crt, которая является стандартной библиотекой Turbo Pascal и используется для работы с числовыми значениями.
Затем определяются константа e (приближенное значение числа π) и переменные x, t, s типа real (числа с плавающей точкой) и n типа integer (целое число).
С помощью функции clrscr() очищается экран.
Пользователю предлагается ввести значение переменной x.
Значения переменных t и s инициализируются как x.
Запускается цикл while, который выполняется до тех пор, пока значение переменной t не станет больше или равно e.
Внутри цикла переменная n инициализируется значением 0.
Переменная t вычисляется как -txx/(2n(2*n+1)). Это приближенное значение синуса x.
Переменная s вычисляется как s + t. Это сумма предыдущих значений t и s.
Значение переменной t обновляется как -txx/(2n(2*n+1)).
Значение переменной s обновляется как s + t.
Цикл while повторяется, пока значение переменной t не станет больше или равно e.
После окончания цикла выводится сообщение с приближенным значением sinx, которое вычисляется как среднее значение переменных t и s.
Затем выводится сообщение с аналитическим значением sinx, которое вычисляется как sin(x).
Конец программы.