Прошу помощи по Паскалю

[Jenas]

Прошу помощи по Паскалю

помогите написать программу в паскале-методом левых прямоугольников вычислить интеграл- I=определенный ∫ от 0.1 до 0.3 tg^n(x)dx ; n=4

 

[Vladimir_S]

помогите написать программу в паскале-методом левых прямоугольников вычислить интеграл- I=определенный ∫ от 0.1 до 0.3 tg^n(x)dx ; n=4

Да пожалуйста:

Const
 Xbeg=0.1;
 Xfin=0.3;
Var
 N,i,k:Integer;
 Dx,S,X,a:Real;

Function Tan(z:Real):Real;
begin
 Tan:=Sin(z)/Cos(z);
end;

Function Tan4(z:Real):Real;
begin
 Tan4:=SQR(SQR(Tan(z)));
end;

Function Ant(z:Real):Real;
begin
 Ant:=Tan(z)*Tan(z)*Tan(z)/3-Tan(z)+z;
end;


BEGIN
 Writeln('   N         Result      Accurate value');
 N:=5;
 For k:=1 to 7 do
  Begin
   N:=N*2;
   Dx:=(Xfin-Xbeg)/N;
   S:=0;
   For i:=1 to N do
    begin
     X:=Xbeg+DX*i;
     S:=S+Tan4(X)*Dx;
    end;
    WriteLn(N:5,S:16:8,(Ant(0.3)-Ant(0.1)):16:8);
  End;
 Readln
END.