ние заданной функции с некоторой погрешностью 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.