【一元二次方程求根fortranprogrammainwrite(*,*)quot;a=quot;read(*,*)awrite(*,*)quot;b=quot;read(*,*)bwrite(*,*)quot;c=quot;read(*,*)creal::d,e,x1,x2d=b*b-4*a*ce=sqrt(d)x1=(-b+e)/2.0/ax2=(-b-e)/2.0/awrite(*,*)x1

问题：【一元二次方程求根fortranprogrammainwrite(*,*)quot;a=quot;read(*,*)awrite(*,*)quot;b=quot;read(*,*)bwrite(*,*)quot;c=quot;read(*,*)creal::d,e,x1,x2d=b*b-4*a*ce=sqrt(d)x1=(-b+e)/2.0/ax2=(-b-e)/2.0/awrite(*,*)x1write(*,*)x2end这是小弟编的求根公式的程序,】

答案：↓↓↓

丁凡的回答：

网友采纳　　real::d,e,x1,x2要放在所有可执行语句之前.　　write(*,*)"a="引号要用单引号.