Разложение в ряд Тейлора - Pascal ABC (12698)

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

Найти сумму ряда S=1-x^2/2!+x^4/4!-x^6/6!+... Значение x и членов ряда(n) задать с клавиатуры. Для проверки: при x=1.57 и n=10, S=0 Ребят выручайте

Решение задачи: «Разложение в ряд Тейлора»

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

var x,s,t:real;
    n,i:integer;
begin
write('x=');
readln(x);
repeat
write('n>0 n=');
readln(n);
until n>0;
s:=1;
t:=1;
for i:=1 to n do
 begin
  t:=-t*x*x/(2*i-1)/(2*i);
  s:=s+t;
 end;
writeln('Сумма=',s:0:4);
write('Cos(x)=',cos(x):0:4); //проверка, можете убрать из кода
end.

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

Переменные x, s и t объявлены как числа с плавающей запятой (real).
Переменная n объявлена как целое число (integer).
Переменная i также объявлена как целое число.
В цикле repeat считывается значение переменной n.
Цикл продолжается до тех пор, пока n больше нуля.
Переменные s и t инициализированы как 1.
В цикле for считывается значение переменной i от 1 до n.
Значение t инициализируется как -t*x*x/(2*i-1)/(2*i).
Значение s увеличивается на t.
Выводится значение суммы s.
Выводится значение функции cos(x).
Конец программы.