Нахождение интеграла

[Gasphord]

Нахождение интеграла

Нужна помощь с решением задачи по интегралам с использованием рекурсии.

Function step (x,n):real;
  Var i:integer;
      q:real;
  Begin
    q:=1;
    for i := 1 to n do
    q:=q*x;
  end;


Function Integral(x:real; n:integer):real;
  Var cos:real;
  Begin
    if n>=2 then
      begin
        cos:=Step(cos(x),n-1);
        Integral:=(1/n-1)*(sin(x)/cos)+(n-2/n-1)*Integral(x,n-1);
      end
    else
      if n=1 then
      integral:= ln(tan((pi/4)+(x/2))
    else
    Integral:=x;
    end;

 

[Vladimir_S]

Так, ну ход программы, в общем-то, правилен, вот только НЕ СЛЕДУЕТ давать своим идентификаторам имена стандартных функций и констант. В частности, определять переменную "cos". Обзовите её как-нибудь иначе. Ну и добавьте ввод n и x, а также, если нужно, останов по завершении счёта, чтобы можно было увидеть результат.
И да, ввод алгебраических дробей сделан абсолютно безграмотно. Вот здесь:
Integral:=(1/n-1)*(sin(x)/cos)+(n-2/n-1)*Integral(x,n-1);
Нужно так:
Integral:=(1/(n-1))*(sin(x)/cos)+((n-2)/(n-1))*Integral(x,n-1);