Exp(x), Решить с помощью цикла Опции

[strelec025]

Целью решения задачи, приведенной в табл. 3, является вычисле-
ние заданной функции с некоторой погрешностью EPS путем вычисле-
ний указанного бесконечного ряда. Величину EPS изменять в диапазоне
0,01..0,00001 пpи одном значении аpгумента.
Для проверки правильности вычислений сpавнить
значение полученной суммы pяда со значением библиотечной функции.



Я какбы написал программу, которая сравнивает числа с точностью до сотых, но вот при x=1 и x=2 проблем не возникает, а как x=3 у меня выходит ошибка то что на ноль делить нельзя.
Помогите пожалуйста.

var s,x,i:integer; y:real;
begin
writeln('BBeDuTe cTeIIeHb EkcIIoHeHTa');
readln(x);
y:=1+x; {na4alo funkcii}
i:=1;  {stavim stepen 4isla x=1}
s:=1;  {factorial = 1}
repeat
 i:=i+1; {yveli4ivaem stepen 4isla x}
 s:=s*i; {vi4islyaem factorial do i! }
 y:=y+exp(ln(x)*i)/s; {= y+x^i/i!}
 until trunc(y*100)=trunc(exp(x)*100); {sravnivayem 2 cifri posle zapyatoi y 4isel}
writeln('y= ',y); {vivodim priblizhenoe zna4enie s to4nost'u do sotih}
writeln('exp(x)= ',exp(x)); {vivodim funkciu E^x}
readln
end.

[strelec025]

Я незнаю пока про функции ничего и поэтому строку

Код

function _Exp(x: double): double;

не понял.

А вообще нам нужно решить эту задачу, как раз примерно так как я изначально написал. Ну может попроще как-то если еще возможно.

Добавлено через 9 мин.

...В программе по ссылке нужно кое-что добавить. Подумай, что именно...

а типо логарифм от неположительного числа не существует да?
а как тогда в степень возводить то еще число?