Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Доброго времени суток, уважаемые эксперты!
Помогите пожалуйста решить (у меня экзамен). Дана точность e>0. При |X|<1 вычеслить сумму S=x+1/2*x^x+1*3/2*4*x^x^x+1*3*5/2*4*6*x^x^x^x+.....

Вопрос задал: kinetik (статус: Посетитель) Вопрос отправлен: 13 января 2012, 11:44 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

Ну, вот я тут набросал на коленке кое-что:

function GetSum(E, X: Double): Double;
var
  N, D, R: Double; // числитель, знаменатель, член ряда
  Index: Integer;
begin
  Result:= X;
  Index:= 0;
  N:= 1;
  D:= X;
 
  repeat
    N:= N * (Index + 1); // 1, 1*3, 1*3*5... (числитель)
    D:= D * X * (Index + 2); // 2*x^x, 2*4*x^x^x, 2*4*6*x^x^x^x...
    R:= N / D; // член ряда
    Result:= Result + R; // сумма ряда
    Index:= Index + 2;
  until Abs(R) < E;
end;

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 13 января 2012, 12:53

Мини-форум вопроса

13 января 2012, 15:25: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Лабораторный практикум » Delphi модератором Ерёмин А.А.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.