Как переделать на процедурный тип?

[Дорош]

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var x,e,t,int,int1,h,x0,b:Real;
    a,i,n:Integer;
function step(x:Real;y:real):Real;
var pow:Real;
    l:Integer;
begin
if (x < 0) then pow := (-1)*Exp(y*Ln(Abs(x))) else
  if (x > 0) then pow := Exp(y*Ln(Abs(x))) else
  pow := 0;
  l := round(y);
  if (l mod 2 = 0) then pow:=Abs(pow);
  if (y = 0) then pow :=1;
  result:=pow;
end;
 function f(x:Real;t:real):real;
 begin
   result:=(step(x,t))/(Sqrt(1+sqr(x)));
 end;
 begin
   write('input t from[1,10]=');
   Readln(t);
   a:=1; b:=2;
   e:=0.01;
   h:=1;
   n:=Round((b-a));
   int:=0;
   for i:=1 to n do
   int:=int+f(a+((2*i-1)*h/2),t);
   int:=int*h;
   repeat
     int1:=int;
     n:=n*2;
     h:=(b-a)/n;
     int:=0;
     for i:=1 to n do
      int:=int+f(a+((2*i-1)*h/2),t);
      int:=int*h;
      until Abs(int1-int)<e;
      Writeln('integral=',int:0:5);
      Writeln('k-t tochok rozbutia=',n);
      Readln;
   { TODO -oUser -cConsole Main : Insert code here }
 end.

[Stilet]

Примерно так:

program Project2;
{$APPTYPE CONSOLE}
uses
  SysUtils;
var x,e,t,int,int1,h,x0,b,astep,af:Real;
    a,i,n:Integer;

procedure step(x:Real;y:real);
var pow:Real;
    l:Integer;
begin
if (x < 0) then pow := (-1)*Exp(y*Ln(Abs(x))) else
  if (x > 0) then pow := Exp(y*Ln(Abs(x))) else
  pow := 0;
  l := round(y);
  if (l mod 2 = 0) then pow:=Abs(pow);
  if (y = 0) then pow :=1;
  astep:=pow;
end;

 procedure f(x:Real;t:real);
 begin
   step(x,t); 
   af:=astep/(Sqrt(1+sqr(x)));
 end;

 begin
   write('input t from[1,10]=');
   Readln(t);
   a:=1; b:=2;
   e:=0.01;
   h:=1;
   n:=Round((b-a));
   int:=0;

   for i:=1 to n do begin
    f(a+((2*i-1)*h/2),t); 
    int:=int+af;
   end;

   int:=int*h;
   repeat
     int1:=int;
     n:=n*2;
     h:=(b-a)/n;
     int:=0;

   for i:=1 to n do begin
    f(a+((2*i-1)*h/2),t); 
    int:=int+af;
   end;

      int:=int*h;
      until Abs(int1-int)<e;
      Writeln('integral=',int:0:5);
      Writeln('k-t tochok rozbutia=',n);
      Readln;
   { TODO -oUser -cConsole Main : Insert code here }
 end.

[Дорош]

нам нужно функцыю передать в качестве параметра.

[Stilet]

нам нужно

Вам, Ваше Высочайшее Величество, нужно посредством рабов построить тип:

tp=procedure (x:Real;y:real);

И описать, скрепив королевской печатью, функцию:

procedure f(x:Real;t:real;stp:tp);

После вызвать на дуэль вот так:

result:=(stp(x,t))/(Sqrt(1+sqr(x)));

А саму f() так:

int:=int+f(a+((2*i-1)*h/2),t,step);

Насчет последнего могу ошибаться. Мы, крепостные паскаля не имеем - проверить не на чем.

[evg_m]

примерно так

type 
  Tstepfunc =procedure(x,y: real);

procedure f(x:Real;t:real; stepfunc: Tstepfunc );
begin
   stepfunc(x,t); 
   af:=astep/(Sqrt(1+sqr(x)));
end;