Помогите решить в турбо паскале , задание f

Помогите решить в турбо паскале , задание f

Задать свой вопрос
1 ответ
Var s,f,e:real; k,z:integer;
begin
s:=1;
z:=1; f:=1;
e:=exp(1);
writeln('1 /',e,' = ',1/e);
for k:=1 to 30 do
 begin
 z:=-z;
 f:=f*k;
 s:=s+z/f;
 if k mod 10=0 then writeln('s = ',s,' s-1/e = ',s-1/e);
 end;
 end.

Пример:
1 / 2.718281828459045e+00 = 3.678794411714423e-01
s = 3.678794642857144e-01 s-1/e = 2.311427205192729e-08
s = 3.678794411714424e-01 s-1/e = 1.110223024625157e-16
s = 3.678794411714424e-01 s-1/e = 1.110223024625157e-16
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт