Написание процедуры в Паскале Опции

[BezRecepta]

Здравствуйте! Подскажите, пожалуйста, как записать выражение из прикрепленного файла в процедуру на Паскале.

[Федосеев Павел]

Вверху страницы красным цветом выделен FAQ - в нем есть статья о численном интегрировании.
Что такое P(l) - массив, функция, другое?

В общем виде будет так:

Код

function r0(d: double; P: неизвестно что; eps: double);
begin
  r:=Integral(P, 0, 2*d);
  r:=r+UnboundedIntegral(P2, 2*d, eps);
  r0:=r;
end;

Интеграл до бесконечности не соображу как взять... Может быть как при суммировании бесконечного ряда... А что по этому поводу в методичке или лекциях?

Добавлено через 10 мин.
Несобственный интеграл от 2d до бесконечности можно вычислить так:
Взять большое число B, вычислить определённый интеграл от 2*d до B. Потом вычислить интеграл от 2*d до 2*B. Если разница между интегралами невелика (меньше eps), то завершить процесс вычисления.