fortran语言的程序设计

第一题

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。

Program Main

Implicit None

Integer :: i , iCount

iCount = 0

Do i = 351 , 432

If( Mod(i,3)/=0 .And.(Mod(i,8)/=0) ) then

iCount = iCount + 1

EndIf

End Do

Write(*,*) iCount

End Program Main

---