Ребятушки задание повышенной сложности (Delphi)

[Dimabara]

program Project2;

{$APPTYPE CONSOLE}
{48. Не используя стандартные функции (за исключением abs),
вычислить с точностью eps = 0.0001 (х ввести с клавиатуры):
а) e ^ x = 1 + x / 1! + x2 / 2! + ... + xn / n! + ...;
Считать, что требуемая точность достигнута, если очередной слагаемое по модулю меньше
eps, - все последующие слагаемые можно уже не учитывать.}

uses
SysUtils;

var
fact,n,y,e,x:real;

const
eps=0.0001;
begin
writeln('input x');
read(x);
n:=0;
y:=0;
fact:=1;
while
if abs((1/fact)) > eps then
begin
n:=n+1;
fact:=fact*n;
y:=(e^x)+(1/fact);
else
writeln(e);
readln;
end;
end.

[Error] Project2.dpr(29): Pointer type required
[Error] Project2.dpr(33): Type of expression must be BOOLEAN

я просто плаваю с этим заданием

[BDA]

var
  s, x, a: real;
  n: longint;

const
  eps = 0.0001;

begin
  writeln('input x');
  readln(x);
  n := 0;
  s := 0;
  a := 1;
  while abs(a) > eps do
  begin
    s := s + a;
    inc(n);
    a := a * x / n;
  end;
  writeln(s);
  readln;
end.

[Dimabara]

спасибо
но что значат переменные s и а ?

[BDA]

В s как раз и будет e^x - сумма ряда.
a - текущий элемент ряда.

[Dimabara]

еще один вопрос
каким образом на наш ответ влияет eps и вообще для чего он в условии задачи нужен?

[BDA]

eps обязательно нужен - без него цикл не закончится.
Чем больше eps, тем менее точный ответ будет получен.
Факториал растет быстрее числа в степени. В конце концов текущий элемент станет настолько маленьким, что почти не будет влиять на сумму.