第一题K=0DO 10 I=1,2DO 10 J=1,210 K=K+I/JWRITE(*,*)KEND第二题K=0DO
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/14 07:42:18
第一题
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=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=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.
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.
第一题K=0DO 10 I=1,2DO 10 J=1,210 K=K+I/JWRITE(*,*)KEND第二题K=0DO
main( ) {int i=1,j=4,k=7 do {if(i%j==0) if(i%k==0) {printf("
main( ) { int i=1,j=4,k=7; do {if(i%j==0) if(i%k==0) {printf
10、以下程序段运行时语句k=k+1执行次数为()次.k=-20 do while (k=0) k=k+1 loo
这个程序的循环次数是多少呀?k=0 Do While K < = 10 k=k+1 Loop
{ int i,j,k; for(i=4;i>0;i--) { j=5; k=i+j; if((k%4=1)||(k%4
int i=2,j=1,k=3 i&&(i+j)&k|i+j
main() {int k=1,s=0; do{if ((k%2)!=0) coutiune; s+=k;k++;}wh
英语翻译begin k:=100; 10:if k>i+j thenbegin k:=k-1;goto 10;end e
main() {int k=1,j=1; do{k+=(j-1)*j; if(j>4)break; else k+=2*
在java里int k = 0;int j = ++k + --k + k++ + k++ + ++k + k + ++
若有k=0,则循环结构do until k > 10 k=k+1 loop 中的循环体执行次数?