program lab4console

program lab4console;

{$APPTYPE CONSOLE}

uses

SysUtils,Math;

Type fn=function(x:real):real;

Var r1,r2:real; {коpни уpавнений}

function fx1(x:real):real; {fx1 задает первое уравнение}

begin

fx1:=7*x*ArcTan(x/Sqrt(Exp(1)))-Exp(5/3)/(Abs(Ln(Sqr(x)))+Pi)-5/9;

end;

function fx2(x:real):real; {fx2 задает второе уравнение}

begin

fx2:=1/x*Sqrt(x)-Power(Power(x/5,2),1/3)*Power(Ln(Abs(0.2+Sin(x))),2)-3*Pi/4;

end;

{root - подпрограмма вычисления корня}

{уравнения fx(x)=0 на [a,b] c погрешностью е методом простых итераций}

function root(fx:fn; a,b,e:real):real;

{fx - функция - формальный параметр}

var x,x0:real;

begin

x0:=(a+b)/2; x:=fx(x0);

while abs(x-x0)>e do

begin

x0:=x; x:=fx(x0);

end;

root:=x;

end;

begin

r1:=root(fx1,1,3,1.0e-4);{fx1 - функция - факт. параметр}

r2:=root(fx2,1,3,1.0e-4);{fx2 - функция - факт. параметр}

writeln('Коpень пеpвого уpавнения r1=',r1:7:4);

writeln('Коpень втоpого уpавнения r2=',r2:7:4);

readln;

end.