Форум «Всё о Паскале» > Задача на циклы

Помощь - Поиск - Пользователи - Календарь

Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи

Саня

27.12.2005 6:09

Не используя стандартной функции (за исключением ABS) вычислить с точностью e>0.
Помогите пожалуйста доделать
Вот чё у меня получилось:

Код

program uau;

var
  x, eps, next, s: real;
  n, sign: integer;

begin
  write('X = '); readln(X);
  write('Eps = '); readln(eps);
  if (exp(x)>0) then
  next := 1; s := 0;
  n := 1; sign := 1;
  repeat
    next := next*x;
    s := s + sign * next / n;
    n := n + 1; sign := - sign;
  until (next / n) < eps;
  writeln('', exp(x):10:5, ' = ', s:10:5);
  end.
else writeln('exp(x)<0');
end.

Altair

27.12.2005 12:08

FAQ->Вопросы по математике

function _Exp(x,eps: double): double;
var
  s, next: double;
  n: integer;
begin
  next := 1;
  s := next; n := 0;
  repeat
    inc(n);
    next := (next * x) / n;
    s := s + next;
  until (next < eps);
  _exp := s
end;
var
  x, eps: real;
Begin
 write('X = '); readln(X);
 write('Eps = '); readln(eps);
 writeln(_exp(x,eps));
 readln
end.

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.