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

http://www.cyberforum.ru/cgi-bin/latex.cgi...{{5x}^{5}}+...)

Помогите написать программу. Делаю все как препод рассказал, но во втором У всегда выдает нули. Не получается правильно набрать рекурентную формулу.
Вот моя программа:
program nomer;
uses crt;
const miter=500;
var
a,b,x,c,y,e,h:double;
n:integer; res:real; deg:real; i:byte;
dane:boolean;
begin
clrscr;
writeln('BBeguTe Ha4aJIo uHTepBa/\a');
readln(a);
writeln('BBeguTe okoH4aHue uHTepBa/\a');
readln(b);
writeln('BBeguTe To4HocTb E');
readln(e);
writeln('BBeguTe war');
readln(h);
x:=a; n:=0;
while x<b do begin
c:=1; y:=c;
dane:=true;
while abs©>e do begin
deg:=2*n+1; res:=1; i:=0;
while i<abs(deg) do begin
res:=res*x;
i:=i+1;
if deg<0 then res:=1/res;
end;
c:=c*2*(1/((2*n+1)*res));
y:=y+c; n:=n+1;
if n>miter then begin
writeln('pacXo}I{geHue nocJIegoBaTeJIbHocTu!!!');
dane:=false; break;
end;
end;
if dane then
writeln('x=',x:8:3,' ' ,'y=',y:8:3);
x:=x+h;
end;
readln;
end.
Желательно сегодня или завтра, вместе с блок-схемой. Заранее спасибо.