【一元二次方程求根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
<p>问题：【一元二次方程求根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这是小弟编的求根公式的程序,】<p>答案：↓↓↓<p class="nav-title mt10" style="border-top:1px solid #ccc;padding-top: 10px;">丁凡的回答：<div class="content-b">网友采纳 real::d,e,x1,x2要放在所有可执行语句之前. write(*,*)"a="引号要用单引号.
页:
[1]