Алгоритмические языки и программирование

Лабораторная работа № 3. Гринин И. В. гр. 02В3

Program Dima;

Var

X, {Значение аргумента}

F, {Значение функции}

EPS, {Точность}

A, {Очередной член ряда}

N: Real;

Begin

Writeln ('Введите значение аргумента и точность');

Read (X, EPS);

F:=1; A:=1; N:=0;

Repeat

A:=A*X/(N+1);

F:=F+A;

N:=N+1;

Until ABS(A)

Writeln ('Экспонента X=',F);

{Вывод контрольного значения вычисленной функции}