program lab4console
.docprogram 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.