Developing.ru

Не используя стандартные функции (за исключением abc), вычислить с точностью ╡(Эпсилон)
y = e^x = 1 + x/1! + x^2/2! + ... + x^n/n! + ... ^ - это степень.

Кому не сложно,помогите.

просто опиши их в отдельный модуль. например, описываешь ф-ии факториала, деления, возв в степень и усе...

Код: Выделить всё

a:=1;
s:=a;
t=1;
i:=1;
repeat
  a:=a*x/t;
  s:=s+a;
  inc(i);
  t=t*i;
until a<=eps;

Примерно так, писал без проверки

Developing.ru

Паскаль - Функия

Паскаль - Функия

Re: Паскаль - Функия

Re: Паскаль - Функия