unit functions;

interface

{--- First function ---}
function f1(x: real): real; far;
{--- Second function ---}
function f2(x: real): real; far;
{--- Third function ---}
function f3(x: real): real; far;

{=======  OTHER For Test... ======}

function fk1(x: real): real;
function fk2(x: real): real;
function fk3(x: real): real;

implementation

{--- Vozvedenie v stepen' ---}
function pow(a, x: real) : real;
begin
  pow:=exp(x * ln(a));
end;

{10 Variant        f1=1+4/(x^2+1)    f2=x^3    f3=2^(-x)}

{--- First function ---}
function f1(x: real): real;
begin
  f1:= 1 + 4 / (x*x + 1);
end;

{--- Second function ---}
function f2(x: real): real;
 begin
  f2 := x*x*x; {pow(x, 3);}
end;


{--- Third function ---}
function f3(x: real): real;
begin
  f3 := pow(2,-x);
end;





{------------ OTHER -------------}

{--- First function ---}
function fk1(x: real): real;
begin
  fk1:= 2;
end;

{--- Second function ---}
function fk2(x: real): real;
 begin
  fk2 := x*x; {pow(x, 3);}
end;


{--- Third function ---}
function fk3(x: real): real;
begin
  fk3 := x;
end;

end.