几道简单的fortran的题IF(x.LT.1.0) THEN Y=.FALSE.这里面哪里不符合语法规定?程序:K=0DO 10 I=1,6,2DO 10 J=1,6,3IF(K.LT.I*J)K=I*J10 CONTINUEWRITE(*,*)KENDA18 B30 C25 D36 为什么答案是C?I取5时j只能取4啊,没20这个答案?F

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/17 13:00:04
几道简单的fortran的题IF(x.LT.1.0)THENY=.FALSE.这里面哪里不符合语法规定?程序:K=0DO10I=1,6,2DO10J=1,6,3IF(K.LT.I*J)K=I*J10C

几道简单的fortran的题IF(x.LT.1.0) THEN Y=.FALSE.这里面哪里不符合语法规定?程序:K=0DO 10 I=1,6,2DO 10 J=1,6,3IF(K.LT.I*J)K=I*J10 CONTINUEWRITE(*,*)KENDA18 B30 C25 D36 为什么答案是C?I取5时j只能取4啊,没20这个答案?F
几道简单的fortran的题
IF(x.LT.1.0) THEN Y=.FALSE.这里面哪里不符合语法规定?
程序:K=0
DO 10 I=1,6,2
DO 10 J=1,6,3
IF(K.LT.I*J)K=I*J
10 CONTINUE
WRITE(*,*)K
END
A18 B30 C25 D36 为什么答案是C?I取5时j只能取4啊,没20这个答案?
FORMAT和 WRITE命令括号内,为什么有时1X表示空一格,有时是提行啊,
另外大于小于符号优先逻辑运算符,那逻辑的.NOT.AND OR EQV 的顺序呢

几道简单的fortran的题IF(x.LT.1.0) THEN Y=.FALSE.这里面哪里不符合语法规定?程序:K=0DO 10 I=1,6,2DO 10 J=1,6,3IF(K.LT.I*J)K=I*J10 CONTINUEWRITE(*,*)KENDA18 B30 C25 D36 为什么答案是C?I取5时j只能取4啊,没20这个答案?F
1、
要么删去then:
if (x .lt. 1.0) y=.false.
要么加end if:
if (x .lt. 1.0) then
y=.false.
end if
2、
我觉得是选项错了,应为20.我运行过了.
3、
1X就是空一格,我不明白你说的提行是什么意思.能否详细解释一下?
4、
逻辑运算符的优先级如下;
(1).NOT.
(2).AND.
(3). OR.
(4). EQV.与.NEQV. 这两个运算符按照先左后右的原则进行运算.
这是网上搜的.我自己的习惯:优先级不明的时候就多用括号.
有问题再交流

几道简单的fortran的题IF(x.LT.1.0) THEN Y=.FALSE.这里面哪里不符合语法规定?程序:K=0DO 10 I=1,6,2DO 10 J=1,6,3IF(K.LT.I*J)K=I*J10 CONTINUEWRITE(*,*)KENDA18 B30 C25 D36 为什么答案是C?I取5时j只能取4啊,没20这个答案?F 一个简单的FORTRAN程序,IF(IDBG.GE.1)THENWRITE(MAXWRT_MAXBUF(1),9010) FT,DKA,DKRCALL DMS_WRTTRM(1)ENDIF (x-y)^4的FORTRAN表达式是什么 一个简单的fortran问题,关于write的,help,tks一个简单的fortran问题,为什么执行语句 write(*,‘(1x,3i4)')(j,j=1,10) 后,生成的记录是4?help fortran中e的x次方怎么表示? 在fortran中,单do循环放在if语句里面的时候该怎么办? 求相关系数fortran程序~求相关系数的fortran程序~. fortran 某一行最小值有没有什么简单的表示方法可以表示fortran里面一个数组某一行的最小值 fortran语言怎么转成matlab语言,程序不大 是计算l理想导体散射的 对于fortran的解读能力不够 希望能帮帮忙 fortran语言 转成matlab,程序不大 是计算l理想导体散射的 对于fortran的解读能力不够 希望能帮帮忙 简单的几道判断题, 几道简单的概率题 Fortran语言中复数矩阵的定义,赋值和加减乘运算,需要完整且简单的程序.如题所述. 很简单的几题. 请问几道分段函数的问题function:f(X)={3x-7,if x If i can ,l love u forever .明白简单的跟我说下.. 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 关于matlab的几道简单的问题编写函数计算f(x)= x ;x