早教吧作业答案频道 -->其他-->
有人了解FORTRAN77吗?FORMAT(/3X,'P'smaterialdefinitionfile:',A20)CONTINUEREAD(5,'(A6,1X,A120)')KWORD,BUFFERIF(KWORD.EQ.KWCOMM)GOTO33尤其是最后一句话,这个是一个程序里的一小段,可能用到一些变量影响您分析
题目详情
有人了解FORTRAN77吗?
FORMAT(/3X,'P's material definition file:',A20)
CONTINUE
READ(5,'(A6,1X,A120)') KWORD,BUFFER
IF(KWORD.EQ.KWCOMM) GO TO 33
尤其是最后一句话,这个是一个程序里的一小段,可能用到一些变量影响您分析
FORMAT(/3X,'P's material definition file:',A20)
CONTINUE
READ(5,'(A6,1X,A120)') KWORD,BUFFER
IF(KWORD.EQ.KWCOMM) GO TO 33
尤其是最后一句话,这个是一个程序里的一小段,可能用到一些变量影响您分析
▼优质解答
答案和解析
解释如下:
FORMAT(/3X,'P's material definition file: ',A20) ! 格式语句,但是前面应该有语句标号
CONTINUE ! 继续语句,有人称之为空语句,本身也不干什么,就是(在逻辑上)往下继续执行
READ(5,'(A6,1X,A120)') KWORD,BUFFER ! 输入语句
IF(KWORD.EQ.KWCOMM) GO TO 33 ! 判断语句,假如满足条件,就转到语句标号为33的那条语句继续执行
FORMAT(/3X,'P's material definition file: ',A20) ! 格式语句,但是前面应该有语句标号
CONTINUE ! 继续语句,有人称之为空语句,本身也不干什么,就是(在逻辑上)往下继续执行
READ(5,'(A6,1X,A120)') KWORD,BUFFER ! 输入语句
IF(KWORD.EQ.KWCOMM) GO TO 33 ! 判断语句,假如满足条件,就转到语句标号为33的那条语句继续执行
看了 有人了解FORTRAN77吗...的网友还看了以下:
一元二次方程试题1.已知a是关于x的一元二次方程x2-3x+m=0的一个根,-a是关于x的一元二次 2020-04-05 …
如图4所示,一定质量的理想气体,从状态A经绝热过程A→B,等容过程B→C,等温过程C→A,又回到了 2020-05-14 …
求救~方程ax^2+bx+c=0(a≠0)有一非零根x1,方程-ax^2+bx+c=0有一非零根x 2020-05-16 …
已知关于X的方程A剩《2X减1》=3X减2无解求A的值AX=A当A大于等于0时方程唯一的解X等于A 2020-05-16 …
有人了解FORTRAN77吗?FORMAT(/3X,'P'smaterialdefinitionf 2020-05-23 …
这三个方程①(a²+a+1)x²-a=0②根号下x+1=x-1③x-3=1/3哪些是一元二次方程? 2020-06-03 …
2010年11月,芜湖市发改委召开出租车价格调整听证会,来自社会各界的25名代表参与听证,有关部门 2020-06-20 …
在等比数列{An}中,A7A11=6,A4+A14=5,则A20/A10=()A.1/2或-1/2 2020-07-09 …
一道工程问题:A、B、C三人完成3个同样的工程.A先工作9天,接着B工作1天,再接着C工作3天,就 2020-07-13 …
1.若关于x的方程(a+1)x^丨a丨+3=0是一元一次方程,则a=()2.若方程(a+6)x^2 2020-07-30 …