implicit none real a,b,c real d real root1,root2 print*,'请输入一元二次方程 的系数a,b,c:' read(*,*) a,b,c d=b**2-4.0*a*c if(d>=0.0) then root1=(-b+sqrt(d))/(2.0*a) root2=(-b-sqrt(d))/(2.0*a) print*,'root1=',root1 print*,'root2=',root2 else print*,'一元二次方程没有实根!' end if pause end