Задача 2. Вычислить ex с точность 10-4

1. Постановка задачи.

Вычислить e x с точность 10-4. Начальные условия: k = 1, U0 = 1, S0 = 1, x = 0.5

2. Математическая модель.

3. Блок-схема

4. Список идентификаторов.

Имя	Смысл	Тип
x	x	Real
U	Элемент ряда	Real
S	Значение синуса	Real
e	Точность	Real
K	Счетчик	Integer

5. Код программы.

program z2_1;

{$mode objfpc}{$H+}

uses

{$IFDEF UNIX}{$IFDEF UseCThreads}

cthreads,

{$ENDIF}{$ENDIF}

Classes, Math;

var x, u, s, e:real;

k:integer;

function f(i:integer):integer;

var j, g:integer;

begin

g:=1;

for j:= 1 to i do

g:=g*j;

f:= g;

end;

begin

writeln ('x, U, S, k, eps');

readln (x, u, s, k, e);

while u>e do

begin

u:=(exp(k*ln(x))/f(k));

s:=s+u;

inc(k);

end;

writeln('e^x = ', s:0:6);

readln;

end.

6. Результаты выполнения программы.