Лабораторные работы / Программы (Pascal) - 1994 / GIDRA / MPD

program mpd;{ЮвЫРФЪР јїґ}
        var a,b,eps,x:  real;
            bu       :  boolean;
        function func(x:real) :real;
        begin
          func:=(x-2.0)*(x-3.0)
        end;
        procedure power2(a,b,eps:real; var bu:boolean; var xcon:real);
        {ЯаЮжХФгаР ЭРеЮЦФХЭШп ЪЮаЭп гаРТЭХЭШп func(x)=0 ЯЮ јїґ}
          var fa,fb,x,fx:real;
          label met;
        begin
          fa:=func(a); fb:=func(b);
          if fa*fb>0 then
          begin
            writeln('ЭХв ЪЮаЭп');  bu:=false; goto met
          end; {if ЭХв ЪЮаЭп}
          repeat
            x:=(a+b)/2;  fx:=func(x);
            if fx*fa<0 then b:=x else a:=x;
          until abs(a-b)<eps;
          xcon:=abs(a+b)/2;  bu:=true;
          met:
        end;{јїґ}
begin{ЮбЭЮТЭРп ЯаЮУаРЬЬР}
        writeln;
        write('a=');readln(a);
        write('b=');readln(b);
        eps:=abs(b-a)/100.0;
        power2(a,b,eps,bu,x);
        if bu then
        begin
          writeln('x=',x); writeln('f(x)=',func(x));
        end;
end.