Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора - Turbo Pascal (30052)

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

Ребята,пожалуйста помогите сделать задание ,сама не смогу написать код к нему...а очень нужно.. Само задание выглядит так : Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора, на интервале от xнач до xкон с шагом dx с точностью . Таблицу снабдить заголовком и шапкой. Каждая строка таблицы должна содержать значение аргумента, значение функции и количество просуммированных членов ряда.

Решение задачи: «Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора»

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

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

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

В начале кода используется библиотека crt, которая обеспечивает функциональность стандартного ввода и вывода.
Константа e равна 0.0001, что представляет собой очень маленькое число, используемое для представления очень маленьких значений в экспоненциальном ряде.
Переменные xn, xk, x, s, si, dx, t и ex являются реальными числами, которые используются для хранения значений функций и ее производных.
Переменные n и k являются целыми числами, которые используются для контроля цикла, выполняющего табуляцию функции.
Цикл repeat используется для получения от пользователя начала и конца интервала, а также шага табуляции.
Цикл while используется для вычисления значений функции и ее производных в заданном интервале.
Внутри цикла while выполняется вычисление значений функции и ее производных с использованием степенного ряда.
После каждого вычисления значения функции и ее производных выводится на экран с помощью функции writeln.
В конце кода выводится сообщение для пользователя о том, что нужно нажать Enter.
Код проверяет, является ли номер строки 16 кратным 16, и если это так, то выводит сообщение для пользователя о том, что нужно нажать Enter.
Переменная x увеличивается на dx после каждого вычисления значения функции и ее производных.
Конец кода.