fortran程序求教program sjk01implicit noneinteger::a(5,5),b(5,5),i,jdo i=5do j=1,5a(i,j)=0b(i,j)=(i-j)+1enddoa(i,j)=1enddowrite (*,'(5x,5i6)' ((a(i,j),i=1,5),i=1,5)write (*,'(5x,5i6)') ((b(i,j),j=1,5),i=1,5)end一个数据库的题目 老是不对

来源：学生作业帮助网 编辑：六六作业网 时间：2025/01/31 13:57:21
fortran程序求教programsjk01implicitnoneinteger::a(5,5),b(5,5),i,jdoi=5doj=1,5a(i,j)=0b(i,j)=(i-j)+1enddo

fortran程序求教program sjk01implicit noneinteger::a(5,5),b(5,5),i,jdo i=5do j=1,5a(i,j)=0b(i,j)=(i-j)+1enddoa(i,j)=1enddowrite (*,'(5x,5i6)' ((a(i,j),i=1,5),i=1,5)write (*,'(5x,5i6)') ((b(i,j),j=1,5),i=1,5)end一个数据库的题目 老是不对
fortran程序求教
program sjk01
implicit none
integer::a(5,5),b(5,5),i,j
do i=5
do j=1,5
a(i,j)=0
b(i,j)=(i-j)+1
enddo
a(i,j)=1
enddo
write (*,'(5x,5i6)' ((a(i,j),i=1,5),i=1,5)
write (*,'(5x,5i6)') ((b(i,j),j=1,5),i=1,5)
end
一个数据库的题目 老是不对 求指导!

fortran程序求教program sjk01implicit noneinteger::a(5,5),b(5,5),i,jdo i=5do j=1,5a(i,j)=0b(i,j)=(i-j)+1enddoa(i,j)=1enddowrite (*,'(5x,5i6)' ((a(i,j),i=1,5),i=1,5)write (*,'(5x,5i6)') ((b(i,j),j=1,5),i=1,5)end一个数据库的题目 老是不对
执行 a(i,j)=1 这一句的时候,刚跳出 j 的循环, j 应该等于6的,给a(i,j)赋值应该会有问题
另外输出的时候((a(i,j),i=1,5),i=1,5),两个都是 i ,没问题么?

求相关系数fortran程序~求相关系数的fortran程序~. fortran程序求矩阵特征值, 如何知道自己编写的fortran程序哪里错了program mainimplicit nonereal::x,yread*,xif(x>=0.and.x program k1 real i do 99 i=1.10,5 print *,i,i*i 99 Continue end fortran程序,do 99 i=1.10,5 fortran达人帮忙改下程序,错误已指出,但我不懂改,主程序错误argument S (number 6)主程序program mainexternal f1,f2double precision x,y,E,a,b,f1,f2open(9,file=v(x,y).dat,status='unknown')a=3.14/3.0b=2.0*3.14/3.0do i=1,nx=0.0-2.0 fortran程序求教program sjk01implicit noneinteger::a(5,5),b(5,5),i,jdo i=5do j=1,5a(i,j)=0b(i,j)=(i-j)+1enddoa(i,j)=1enddowrite (*,'(5x,5i6)' ((a(i,j),i=1,5),i=1,5)write (*,'(5x,5i6)') ((b(i,j),j=1,5),i=1,5)end一个数据库的题目 老是不对 fortran一个小程序,有两个错误.This line is comment line.PROGRAM 1DOUBLE PRECISION,PARAMETER::PI=3.1415926DOUBLE PRECISION R,SREAD *,RS=PI*(R**2)WRITE(*,*) SEND PROGRAM 1 fortran的一个简单程序总是出错用fortran编写一个简单的绘图程序,代码如下：program gdemo1use TextGraphLibimplicit nonecall SetScreen( 10,10 ) 设定分辨率为10x10call DrawLine( 1,1,10,10 ) 在(1,1)到(10,10)这两点间画 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 简单的一个fortran程序为什么运行不出正确答案啊.program pra0201implicit noneinteger salary,taxwrite(*,*) salary:read(*,*) salaryif(salary1000 .and.salary=5000) thentax=salary*0.15else salary 求教 fortran 高手! 怎么用fortran语言编写程序 用来构建一个三维网格我需要对一个平板进传热分析,先用fortran构建一个三维网格,然后用tecplot360读出三维模型.现在我的困惑时不知道怎么编写fort fortran循环程序程序错在哪里?program randomimplicit nonedouble precision t,wi,Ptinteger i,mparameter(m=10)do i=1,mreal ::xcall random_seed () call random_number (x) wi=0.1t=-log(x)/wiPt=wi*exp(t*wi)write(*,*) i,t,Ptend doend program random fortran fortran 复数开方问题fortran 下,对一个复数开方,有两个解,程序为什么只输出一个解?复介电常数的开方例如 program mainimplicit nonecomplex*16::aa=(9.0d0,-40.0d0)write(*,*) cdsqrt(a)end输出：( 5.0000000000000000 ,-4. children's program 怎样求最长连续降水日数用fortran程序编写, 求：牛顿迭代法解方程的程序要Fortran的 用Fortran编一个程序 程序中的命令可以由简单的字母 符号 数字组成 要求其中的字母不能连着出现在相邻两行我指的字母是命令中的恒量和变量不是指的像PROGRAM中的字母