program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;

{ОБЪЯВЛЕНИЕ ФУНКЦИИ}// для использования кириллицы
function Rus(S:String):String;
var i:byte;
begin
Result:='';
for i:=1 to Length(S) do
case S[i] of
'А'..'п': Result:=Result+Chr(Ord(S[i])-64);
'р'..'я': Result:=Result+Chr(Ord(S[i])-16);
'Ё': Result:=Result+Chr(240);
'ё': Result:=Result+Chr(241);
else
Result:=Result+S[i];
end;
end;
var
x, eps, D, R, S, Y:real;
N,k:integer;
begin
writeln ('Введите требуемую точность '); readln (eps);
writeln ('Введите количество знаков после запятой k');
readln (k);
writeln ('Введите значение аргумента функции'); readln (x); writeln;
D:=x; N:=1; R:=x; S:=x; Y:=N;
while R>eps do
begin
N:=N+1;
D:=D*x;
Y:=Y*N;
R:=D/Y;
S:=S+R;
end;
S:=S+1;
writeln;
WriteLn('N=', N, ' R=', R:K+4:k+1, ' S=', S:K+3:k);
Write ('Число шагов = '); writeln(N);
Write('S точное = '); writeln (S:k+3:k);
Write('e^x = '); writeln (exp(x):k+3:k);
Write('Абсолютная ошибка = '); writeln (Abs(exp(x)-S):k+3:k);
Write('Относительная ошибка = '); writeln (Abs((exp(x)-S)/exp(x)):5:11,'%');
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.