第一题K=0DO 10 I=1,2DO 10 J=1,210 K=K+I/JWRITE(*,*)KEND第二题K=0DO 10 I=1,6,2DO 10 J=1,6,3IF(K.LT.I*J)K=I*J10 CONTINUEWRITE(*,*)KEND这个是fortran语言的程序设计,但是我几乎不怎么理解,以前学的是VB恳请知道的同学朋

第一题K=0DO 10 I=1,2DO 10 J=1,210 K=K+I/JWRITE(*,*)KEND第二题K=0DO 10 I=1,6,2DO 10 J=1,6,3IF(K.LT.I*J)K=I*J10 CONTINUEWRITE(*,*)KEND这个是fortran语言的程序设计,但是我几乎不怎么理解,以前学的是VB恳请知道的同学朋
第一题
K=0
DO 10 I=1,2
DO 10 J=1,2
10 K=K+I/J
WRITE(*,*)K
END
第二题
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
这个是fortran语言的程序设计,但是我几乎不怎么理解,以前学的是VB
恳请知道的同学朋友老师们教教我!
做好先能说明这个程序用到的计算语言是说明,比如说循环程序
然后逐条对照着如何运行,以便我看的懂!
其实也没什么好补充的

第一题K=0DO 10 I=1,2DO 10 J=1,210 K=K+I/JWRITE(*,*)KEND第二题K=0DO 10 I=1,6,2DO 10 J=1,6,3IF(K.LT.I*J)K=I*J10 CONTINUEWRITE(*,*)KEND这个是fortran语言的程序设计,但是我几乎不怎么理解,以前学的是VB恳请知道的同学朋
第一题
K=0 (赋初值)
DO 10 I=1,2 (I从1循环到2,循环体到行号10结束)
DO 10 J=1,2 (J从1循环到2,循环体到行号10结束)
10 K=K+I/J (行号10,给K赋值)
WRITE(*,*)K （输出K,使用默认输出设备和默认输出格式）
END （程序结束）
因此K终值为1/1+1/2+2/1+2/2=4,其中1/2由于是整型,所以值为0.
第二题
K=0
DO 10 I=1,6,2 (I从1循环到6,步长为2)
DO 10 J=1,6,3 (I从1循环到6,步长为3)
IF(K.LT.I*J)K=I*J (如果K小于I*J,则给K赋值)
10 CONTINUE （行号10,继续循环）
WRITE(*,*)K
END
因此K终值为5*4=20
你那两个答案不知从何而来,我已经运行过了程序,答案是我说的4和20.