Вычисление определённого интеграла

[Mr_Frost]

Для заданных границ интегрирования x1 и x2 вычислите значение определенного интеграла, разработав соответствующую рекурсивную функцию. Обеспечить бессбойную работу программы и возможность выбора отрезка и присутствующих в интеграле констант пользователем. Обеспечить возможность выполнения требуемых действий несколько раз без перезапуска программы.

Function Integral(a,x,m:Extended;n:Integer):Extended;
var
  q,p,h,k:Extended;
begin
  if n=0
    then begin
           q := (Power(a,m*x))/m*ln(a);
           Integral := q;
         end
    else if n=1
           then begin
                  p := (Power(a,m*x))/Sqr(m)*Sqr(ln(a));
                  Integral := x*q-p;
                end
           else begin
                  h := n/(m*ln(a));
                  Integral := (power(x,n))*q-h*(Integral(n-1,a,x,m));
                end;
end;

procedure vvoda;

вот что я уже написал, дальше не могу понять что делать.......

Integral := (power(x,n))*q-h*(Integral(n-1,a,x,m)); и в этой строке выдаёт ошибку..

[maladoy]

Модуль math подключи.

[Mr_Frost]

он подключен

[Stilet]

Mr_Frost

Уважаемый, во первых код оформляй тегом, так чтоб читать его было приятно всем.
Во-вторых нельзя присваивать функции выражение. Усек?
Назови переменную не Integral а по другому.

[Mr_Frost]

всё равно ругается (

[Stilet]

всё равно ругается (

На китайском или клавиш не хватает ругань переписать?

[Mr_Frost]

в этом больше нет проблем, я напутал с типами....

[SnowFall]

вот по этой же теме, не подскажете как такой интеграл записать в делфи

[SnowFall]

очень надо

[Mr_Frost]

у меня так и не получилось, напишите код проги плс, очень над