Вычислить и вывести на экран в виде таблицы значения функции e^x - Pascal

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

Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда, на интервале от Х_НАЧ до Х_КОН с шагом dХ и точностью E . Таблицу снабдить заголовком и шапкой. Строка таблицы должна содержать значение аргумента, значение функции и количество просуммированных членов ряда. Нужно через рекуррентную!

Решение задачи: «Вычислить и вывести на экран в виде таблицы значения функции e^x»

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

uses crt;
var xn,xk,dx,e,x,s,t:real;
    n,k:integer;
begin
repeat
writeln('Введите диапазон');
readln(xn,xk);
until xk>xn;
repeat
write('Введите шаг табулирования dx<',xk-xn:0:2,' dx=');
readln(dx);
until dx<xk-xn;
repeat
write('Введите точность вычисления суммы 0<e<1 e=');
readln(e);
until (e>0)and(e<1);
writeln('Табулирование функции, представленной разложением в степенной ряд');
writeln('     на интервале ',xn:0:2,'-',xk:0:2,' с шагом ',dx:0:2);
writeln('        -----------------------------------');
writeln('        |   X   |    S    |  n  |   e^x   |');
writeln('        -----------------------------------');
x:=xn;
while x<=xk+dx/2 do
 begin
  n:=0;
  t:=1;
  s:=t;
  while abs(t)>e do
   begin
    n:=n+1;
    t:=t*x/n;
    s:=s+t
   end;
  writeln('        |',x:6:2,' |',s:8:4,' |',n:4,' |',exp(x):8:4,' |');
  k:=k+1;
  if k mod 16=0 then
   begin
    write('Нажмите Enter');
    readln;
    clrscr;
    writeln('        -----------------------------------');
    writeln('        |   X   |    S    |  n  |   e^x   |');
    writeln('        -----------------------------------');
   end;
  x:=x+dx;
 end;
writeln('        -----------------------------------');
end.

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

В первой строке кода используется директива uses, которая указывает на использование определенных функций или библиотек в программе.
Переменные xn, xk, dx, e, x, s, t объявлены с типами данных real, что означает, что они могут хранить числовые значения с плавающей точкой.
Переменная n объявлена как integer, что означает, что она может хранить целочисленные значения.
В цикле repeat-until используются функции readln() для чтения значений с клавиатуры и writeln() для вывода сообщений на экран.
Цикл while используется для выполнения определенного количества раз, пока условие истинно.
Внутри цикла while переменная n инициализируется значением 0, а переменная t инициализируется начальным значением 1.
В цикле while выполняется разложение числа x в степенной ряд до тех пор, пока абсолютное значение числа t больше числа e.
Когда условие выполняется, переменная n увеличивается на 1, а переменная t умножается на x и делится на n. Затем переменная s увеличивается на сумму t.
После завершения внутреннего цикла while выполняется вывод на экран значения переменной s.
Если значение переменной k становится четным (что происходит после каждого 16-го ввода), то выполняется команда write('Нажмите Enter'), чтобы ожидать ввода пользователя.
После этого вызывается функция clrscr(), чтобы очистить экран, и начинается новый цикл while.
Переменная x увеличивается на dx, чтобы перейти к следующему значению x.
Если значение переменной x становится больше xk плюс dx, то внутренний цикл while завершается.
После завершения внутреннего цикла while выполняется вывод на экран значения переменной s.
Цикл while завершается, и программа заканчивается.