Что такое "p", я не понял, но остальное вроде бы понял.
| Код |
function f_line(x: real): real;
begin
f_line:= x;
end;
function f_arc(x: real): real;
begin
f_arc:= Sqrt( 1 - Sqr(x) );
end;
const
h: real = 0.01;
type
Tf = function (x: real) : real;
function integral(
f: Tf;
x0, xn: real
): real;
var
rslt: real = 0;
n: Integer;
i: Integer;
xi, xi1, fxi, fxi1: real;
begin
n:= Trunc((xn - x0) / h);
xi:= x0;
fxi:= f(xi);
for i:=1 to n do
begin
if (i = n) then
xi1:= xn
else
xi1:= x0 + (h * i);
fxi1:= f(xi1);
rslt:= rslt + ( h/2 * ( fxi + fxi1 ) );
xi:= xi1;
fxi:= fxi1;
end;
integral:= rslt;
end;
begin
writeln(integral(@f_line, 0, 1) :0:5 );
writeln(integral(@f_arc, -1, 1) :0:5 );
end.
|
|