Интеграл Опции

[Shkipper]

Ребят можете помоч решить хоть какие нибудь задачи из этих

4.написать программу которая
Для заданных границ интернирования, a и b вычислите значение определенного интеграла следующего вида.

Спасибо за ранее огромное

[TarasBer]

Ну и? Формула дана, в лоб можно записать спокойно, сделав подстановку, в чём проблема?

[Lapp]

Ну и? Формула дана, в лоб можно записать спокойно, сделав подстановку, в чём проблема?

Под словами "в лоб" Тарас, по всей видимости, имел в виду рекурсию )).

Шкипер, ты пробовал начать делать? Если да - показывай. Тут гораздо лучше относятся к тем, что хоть что-то сам делает.

На первый раз - так и быть.. )) Функция будет выглядеть приблизительно вот так (не проверял, набирал прямо тут):

function IntegralPowerByExp(n,m: integer; a,x1,x2: double): double;
  function Power(x,y: double): double;
  begin
    Power:= Exp(y*Ln(x))
  end;
begin
  if n=1 then
    IntegralPowerByExp:= Power(a,m*x)/m/Ln(a) * (x - 1/Ln(a));
  else
    IntegralPowerByExp:=
      (Power(x,n)*Power(a,m*x)/n - n/m*IntegralPowerByExp(n-1,m,a,x1,x2)) / Ln(a))
end;

Спрашивай, что неясно.