Fortran解一元二次方程.源程序：programnameimplicitnonereala,b,c,d,x1,x2print*,#39;输入系数a,b,c:#39;read*,a,b,cd=b**2-4.0*a*cif(dgt;0.0)thenx1=(-b+sqrt(d))/(2.0*a)x2=(-b-sqrt(d))/(2.0*a)print*,#39;两个不等实根#39;print*,#3
<p>问题：Fortran解一元二次方程.源程序：programnameimplicitnonereala,b,c,d,x1,x2print*,#39;输入系数a,b,c:#39;read*,a,b,cd=b**2-4.0*a*cif(dgt;0.0)thenx1=(-b+sqrt(d))/(2.0*a)x2=(-b-sqrt(d))/(2.0*a)print*,#39;两个不等实根#39;print*,#39;x1=#39;,x1print*,#39;x2=#39;,<p>答案：↓↓↓<p class="nav-title mt10" style="border-top:1px solid #ccc;padding-top: 10px;">陈善文的回答：<div class="content-b">网友采纳 程序没有问题,我试过可以运行. 会不会把逗号输成全角的了? 要不然把read*,a,b,c改成read(*,*)a,b,c试试.我这里两种写法效果一样.
页:
[1]