инфа / yelf& / 19var / 1.7_19var

real a,b,e,xl,xp,xc,fxc,fxl,x
a=0
b=2
e=0.0001

if((e<=0).or.(b<=a)) then
write(*,*)'NZID'
else
xl=a
xp=b
11 continue
xc=(xl+xp)/2
fxc = sqrt(1-0.4*(xc**2))+4*(exp(-xc-1.5))-2/3-xc
fxl = sqrt(1-0.4*(xl**2))+4*(exp(-xl-1.5))-2/3-xl
if ((fxl*fxc)>0) then
xl=xc
else
xp=xc
end if
if(.not.abs(xl-xp)<=e) goto 11
x=xc
write(*,*)'x=',x
end if
read(*,*)
end