Program A4;
uses crt;
Label 10;label 30; label 11; label 12; label 13;
var
i,j,k:integer;
a,b,s,R,x0,y,U,f,ff,f1,ff1,f2,ff2,x1:real;
begin
clrscr;
writeln('‚ўҐ¤ЁвҐ «Ґўго Ја *Ёжг Ё*вҐаў « a');
readln(a);
writeln('‚ўҐ¤ЁвҐ Їа ўго Ја *Ёжг Ё*вҐаў « b');
readln(b);
writeln('‚ўҐ¤ЁвҐ в®з*®бвм U');
readln(U);
k:=0;
s:=1;
R:=sqrt(Sin(a))-sqr(a);
30: x0:=(a+b)*0.5;
y:=sqrt(Sin(x0))-sqr(x0);
if (b-a)<(2*U) then goto 10;
k:=k+1;
s:=y*R;
if s>0 then
begin
a:=x0;
R:=y;
goto 30;
end
else
if s<=0 then
begin
b:=x0;
goto 30;
end;
goto 10;
10: writeln('ЌҐ®Ўе®¤Ё¬ п в®з*®бвм ¤®бвЁЈ*гв ');
writeln('ђҐиҐ*ЁҐ га ў*Ґ*Ёп',' ',x0:3:3);
writeln('—Ёб«® ЁвҐа жЁ© а ў*®:',k);
{ЊҐв®¤ Є б ⥫м*ле}
{ a:=1; b:=2;}
Writeln(' ');
writeln('‚ўҐ¤ЁвҐ «Ґўго Ја *Ёжг Ё*вҐаў « a');
readln(a);
writeln('‚ўҐ¤ЁвҐ Їа ўго Ја *Ёжг Ё*вҐаў « b');
readln(b);
f:=sqrt(Sin(a))-sqr(a); ff:=sqrt(Sin(b))-sqr(b);
f1:=Cos(a)/(2*sqrt(Sin(a)))-2*a; ff1:=Cos(b)/(2*sqrt(Sin(b)))-2*b;
f2:=-(Cos(a)*Cos(a))/(4*sqrt(Sin(a)*Sin(a)*Sin(a)))-Sin(a)/(2*sqrt(Sin(a)))-2;
ff2:=-(Cos(b)*Cos(b))/(4*sqrt(Sin(b)*Sin(b)*Sin(b)))-Sin(b)/(2*sqrt(Sin(b)))-2;
if f*ff2>=0 then x0:=a
else
begin
Writeln('‚ўҐ¤ЁвҐ ¤агЈЁҐ §* зҐ*Ёп a Ё b');
goto 13;
end;
k:=0;
11: f:=sqrt(Sin(x0))-sqr(x0);
f1:=Cos(x0)/(2*sqrt(Sin(x0)))-2*x0;
x1:=x0-f/f1;
if abs(x0-x1)<U then goto 12
else
begin
x0:=x1; k:=k+1;
goto 11;
end;
12: writeln('—Ёб«® ЁвҐа жЁ© а ў*®:',' ', k);
Writeln('ђҐиҐ*ЁҐ га ў*Ґ*Ёп:',' ',x1:5:5);
13: end.