турбо Паскаль. вывести на экоан в виде таблицы ф-цию

[justdoitit]

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

[Mad_Cat]

procedure row(x,e:real; var res:real;var it:integer);
var ch,z:real;
begin
res:=1;
it:=1;
ch:=x;
z:=1;
while abs(ch/z)>e do
begin
res:=res+ch/z;
it:=it+1;
ch:=ch*x;
z:=z*it;
end;
end;
var xn,xk,dx:real;
eps:real;
i:integer;
s:real;
begin
write('e=');readln(eps);
write('Xn=');readln(xn);
write('Xk=');readln(xk);
write('dX=');readln(dx);
Writeln('Разложение в ряд Тейлора exp(x)');
writeln('x':5,'s':8,'i':5,'eps(x)':9);
while xn<xk do
begin
row(xn,eps,s,i);
writeln(xn:6:3,s:8:3,i:4,exp(xn):8:3);
xn:=xn+dx;
end;
end.

Разложение в ряд Тейлора exp(x)
x s i eps(x)
0.100 1.105 4 1.105
0.200 1.221 5 1.221
0.300 1.350 6 1.350
0.400 1.492 6 1.492
0.500 1.649 7 1.649
0.600 1.822 7 1.822
0.700 2.014 8 2.014
0.800 2.226 8 2.226
0.900 2.460 9 2.460
1.000 2.718 9 2.718