Задача. Используя оператор While вычисление бесконечных сумм - Pascal ABC

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

Комментарии к заданию В программе должно быть не менее 7 – 8 итераций цикла. аk =( tg(x)+ 7k)/k!

Указание. Вычислить сумму последовательности, из элементов аk вычисляемых по формуле, с точностью е = 0.001. Выяснить сколько нужно слагаемых для достижения заданной точности. Значение k=1,2,…

Решение задачи: «Задача. Используя оператор While вычисление бесконечных сумм»

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

uses crt;
var x,e,t,ak:real;
    k:integer;
begin
write('x=');read(x);
if cos(x)=0 then write('Значение ak не определено')
else
 begin
  e:=0.001;
  k:=1;
  t:=1;
  ak:=sin(x)/cos(x)+7;
  while abs(sin(x)/cos(x)+7)*t>e do
   begin
    k:=k+1;
    t:=t/k;
    ak:=ak+(sin(x)/cos(x)+7)*t
   end;
  write('ak=',ak:0:3,' k=',k)
 end;
end.

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

Программа на языке Pascal ABC.
Задача - вычисление бесконечных сумм.
Ввод значения переменной x с помощью функции read.
Проверка условия: если cos(x)=0, то выводится сообщение Значение ak не определено, иначе выполняется следующий блок кода.
Инициализация переменных: e=0.001, k=1, t=1, ak=sin(x)/cos(x)+7.
Запуск цикла while, который выполняется до тех пор, пока abs(sin(x)/cos(x)+7)*t больше e.
Внутри цикла увеличиваем значение k на 1.
Делаем деление переменной t на k.
Обновляем значение переменной ak, добавляя в нее (sin(x)/cos(x)+7)*t.
По окончании цикла выводим значение переменной ak и k.