أبو مـحمد

real :: a,b,p,y0,y1,y2 read ( *,* ) a , b 20 p=(a +b ) / 2 y1= a**3 + 4*a**2 - 10 y2= b**3 + 4*b**2 -10 10 y0=p**3 + 4*p**2 - 10 if ( y0 .lt. 0.00001 ) goto 100 if (y0*y1 .gt. 0.0 ) goto 10 a=a b=b goto 20 a=-p b=b goto 20 100 write(*,*) y0 , p stop end السلام…