简单的一个fortran程序为什么运行不出正确答案啊.program pra0201implicit noneinteger salary,taxwrite(*,*) "salary:"read(*,*) salaryif(salary1000 .and.salary=5000) thentax=salary*0.15else salary

简单的一个fortran程序为什么运行不出正确答案啊.program pra0201implicit noneinteger salary,taxwrite(*,*) salary:read(*,*) salaryif(salary1000 .and.salary=5000) thentax=salary*0.15else salary 一个简单的FORTRAN程序,IF(IDBG.GE.1)THENWRITE(MAXWRT_MAXBUF(1),9010) FT,DKA,DKRCALL DMS_WRTTRM(1)ENDIF 求相关系数fortran程序~求相关系数的fortran程序~. 求fortran大神帮我编一个Fortran程序计算无理数π的1-100的小数位, 急,高手帮我看看这个fortran求积分的程序哪错了,为什么运行不出来结果.program f915implicit noneexternal f1,f2,f3double precision a,b,simpswrite(*,*)'a,b'read(*,*)a,bwrite(*,*)simps(a,b,1d-7,f1)write(*,*)simps(a,b,1d-7,f2)write 一个简单的fortran问题,关于write的,help,tks一个简单的fortran问题,为什么执行语句 write(*,‘(1x,3i4)')(j,j=1,10) 后,生成的记录是4?help fortran的一个简单程序总是出错用fortran编写一个简单的绘图程序,代码如下：program gdemo1use TextGraphLibimplicit nonecall SetScreen( 10,10 ) 设定分辨率为10x10call DrawLine( 1,1,10,10 ) 在(1,1)到(10,10)这两点间画 求教 fortran 高手! 怎么用fortran语言编写程序 用来构建一个三维网格我需要对一个平板进传热分析,先用fortran构建一个三维网格,然后用tecplot360读出三维模型.现在我的困惑时不知道怎么编写fort 用fortran语言编一个矩阵相乘的通用程序 急用 fortran程序 第一次接触fortran语言,试着编写了一个简单的程序：program tsimplicit noneinteger xx=120call ti(x)endsubroutine ti(x)real*8 xi=xprint *,'i=',xend连接时会有警告：Warning:In the call to TI,actual argument #1 does 数控车（不车圆弧时）为什么也显示说：起点半径与终点半径超过规定值?很简单一个车轴的程序,自动运行到第六行（我标注了XXXXXXXXXXXXXXXXXXXXXXXXXXXXX）就显示#20 起点半径与终点半径之差超 fortran会的进,fortran计算器程序怎么写?我想做一个fortran计算器,就是键盘输入a和b两个数,然后回车,就输出a+b 的结果, fortran 某一行最小值有没有什么简单的表示方法可以表示fortran里面一个数组某一行的最小值 求：牛顿迭代法解方程的程序要Fortran的 fortran中do循环应用问题.比如我有一组数据,2,4,6,8,10,12,能不能用fortran写一个循环程序,让第一次循环,输出的是第一个数2减半的数（也就是1）,第二次循环,输出的是前面两个数据2,4,减半的数,第 C 语言里怎么实现在程序运行的中途结束程序,比如判断一个条件满足就结束,不满足就继续,不使用 goto 语 fortran 复数开方问题fortran 下,对一个复数开方,有两个解,程序为什么只输出一个解?复介电常数的开方例如 program mainimplicit nonecomplex*16::aa=(9.0d0,-40.0d0)write(*,*) cdsqrt(a)end输出：( 5.0000000000000000 ,-4. 求fortran编程从来没学过 现在时间紧迫 需要编一个能自动运行 显示原始数据x,y轴坐标 同时转换坐标,并总结原始数据的一些基本信息如编号,物质成分,成分比例等的一个程序 该怎么写啊 !谢