Помощь в нахождении ошибки в ряде Тейлора, Ряд Тейлора, интервал, шаг, точность. Опции

[_NooB_]

Здравствуйте. Задание: Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора, на интервале от Хнач до Хкон с шагом h с точностью e.
Таблица должна содержать значение аргумента, функции и количество просуммированных членов ряда.
Пример: e^x=1+x+x^2/2!+x^3/3!+...+x^n/n! (Прошу прощения, что вручную)

Сама программа с ошибкой - не могу найти ошибку:

Program name;
var xk,xn,h,e:real;
    x,fx,fx1,s,a:real;
    i,j,n:integer;
BEGIN
writeln('Vvedite xk,xn,h,e');
readln(xk,xn,h,e);
writeln('Vi4islit funkcii s pomosiu rada Teilora');
writeln;
writeln('__________')
writeln('   Nn    X  fx   fx1  n   ');
writeln;
 n:=trunc((xk-xn)/h)+1;
 For i:=1 to n do
     begin
x:-xn+(j-1)*h;
s:=1;
a:=1;
j:=1;
   repeat 
   writeln(a:10:2,j:10);
   readln;
   a:=a*x/j;
   s:=s+a;
   inc(j);
   until a>e;
 fx:=s;
 fx1:=exp(x); 
 writeln('  ',i:5,'  ',x:8:2,'   ',fx:8:3,'   ',fx1:8:3,'   ',j:5);
 end;
writeln('__________');
readln;
end.

Сообщение отредактировано: _NooB_ - 30.09.2010 20:22

[volvo]

Одна из твоих ошибок - это непонимание того, что Until заканчивается, когда условие становится истинным, в отличие от While. Проще говоря, там обратное условие.

Repeat ... Until (условие) - это Продолжать ... Пока (условие = False), как только станет True - все, стоп...