Вычисление числа Е и arcsin или arccos

[qip2005]

Народ тут такое дело!
Преподша по математике задала такое вот чудо:

Написать программу для вычисления числа Е с любой точностью.

То есть типа как она объяснила, она вводит любое значение, например там -0.342, а программа исходя из него считает Е.

И то же самое арксинус или арккосинус.
Помогите плз с прогой или хотя бы формулы и саму идею по написанию опишите, потому, что у меня ваще без вариантов, а сегодня вечером сдать надо.

[_Dmitry]

Для вычисления функций используется метод разложения в ряд и вычисление суммы ряда.
Формулы можете посмотреть здесь:
http://ru.wikipedia.org/wiki/Число_E
http://ru.wikipedia.org/wiki/Обратны...ческие_функции
И преподаватель скорее всего вводит не любое значение, а точность вычисления функции. Например, epsilon:=0.0001, тогда суммирование ряда завершаем, когда очередной член ряда <= epsilon.

[Vedrus]

Копай в сторону темы "численные методы".

[qip2005]

Многообещающе

[Plague]

http://ru.wikipedia.org/wiki/Ряд_тейлора
http://ru.wikipedia.org/wiki/Ряд_Маклорена
плюс тема "циклы" по программированию

[qip2005]

Чё то проблемно c этим всем!
Народ напишите хто нить, если не влом.

[6AZblJlb]

навеное вот так

{$N+}
var
  e : extended;
  n,x : int64;
  i : longint;
begin
  n:=20;
  =1;
  e:;
  for i:=1 to n do
    begin
      =x*i;
      e:=e+1/x;
    end;
    writeln(e:0:20);
end.

[6AZblJlb]

сори там что то пропало вот дописал

{$N+}
var
  e : extended;
  n,x : int64;
  i : longint;
begin
  n:=20;
  x:=1;
  e:=0;
  for i:=1 to n do
    begin
      x:=x*i;
      e:=e+1/x;
    end;
    writeln(e:0:20);
end.

[qip2005]

Сообщение от 6AZblJlb

сори там что то пропало вот дописал

{$N+}
var
  e : extended;
  n,x : int64;
  i : longint;
begin
  n:=20;
  x:=1;
  e:=0;
  for i:=1 to n do
    begin
      x:=x*i;
      e:=e+1/x;
    end;
    writeln(e:0:20);
end.

На строчке инт 64 выбивает ошибку:
Uknown identifer!

А когда ставлю интеджер:
Must be in 8087 mode to compile this(ТАм где e:=0)

[6AZblJlb]

ты в паскале пишешь...............да и то что я написал работает только от 9 до 33 ........

{$N+}
var
  e : real;
  n,x : longint;
  i : longint;
begin
  readln(n);
  x:=1;
  e:=0;
  for i:=1 to n do
    begin
      x:=x*i;
      e:=e+1/x;
    end;
    writeln(e:0:20);
end.