题库大全
查看
题库大全
题库
考试培训
财会类题库
网络知识
作业答案
作业习题
蚂蚁庄园答案
当前位置:
题库大全
作业答案
有程序:F(X,Y)=X/Y+XY=-2.0X=4.0X=1.0*F(Y,X)WRITE(*,*)XEND此程序的运行结果是:A.2.5B.-2.5C
有程序:F(X,Y)=X/Y+XY=-2.0X=4.0X=1.0*F(Y,X)WRITE(*,*)XEND此程序的运行结果是:A.2.5B.-2.5C
发布时间:2021-02-15 04:55:22
1.[]有程序:F(X,Y)=X/Y+X Y=-2.0 X=4.0 X=1.0*F(Y,X) WRITE(*,*)X END 此程序的运行结果是:A.2.5 B.-2.5 C.2 D.-2ABCD
网友回答
参考答案:B
参考解析:程序运行时由于是用F(Y,X)调用,则F(X,Y)=-2.0/4.0-2.5=-2.5,X=1.0*(-2.5)=-2.5。
以上问题属网友观点,不代表本站立场,仅供参考!
上一条:
有程序:F(C,D)=A*C+B/DA=1.0B=2.0WRITE(*,*)F(A,B)+F(B,A)END此程序的运行结果是:A.10.0B.4.0
下一条:
两个点电荷带电量分别为q和2q,相距L,现将第3个点电荷Q放在它们之间,要使Q静止,则Q与q的距离应为:A.(1/)LB.[1/(+1)]LC.(-1
资讯推荐
有程序:DIMENSIONA(2,2)READ(*,*)ASUM=0DO10I=1,2D010J=1,210A(I,J)=A(I,J)+I+JWRIT
有程序:READ(*,*)xY=0.0IF=(xGT.0.0)THENY=1.0ELSEIF(x.GE.150)THENY=2.0ELSEY=3.0E
有程序:F1(x)=2.0/(1.0+x)F2(Y)=F1(Y)*Y+1.0A=F1(1.0+F2(1.0)WRITE(*,10)A10FORMAT(
有程序:DIMENSION(4,4)READ(*,*)AWRITE(*,10)A10FORMAT(1x,6E9.2)END此程序执行后的输出结果的记录
下列程序执行时,需输入数据的记录个数必须为:DIMENSIONA(4,4)READ(*,*)A………………ENDA.1个B.4个C.16个D.不超过1
有程序:DIMENSIONx(3,3)READ(*,*)xCALLSSl(x(1,2))ENDSUBROUTINESSl(x)DIMENSIONx(3
有程序:CHARACTER*6SS=‘ABCDEF'CALLSS(S)ENDSUBROUTINESS(S1)CHARACTERS1*3WRITE(*,
有程序:CHARACTER*4A,B*6A=‘ABCD'B=A∥‘EFGH'WRITE(*,*)BEND此程序执行后的输出结果为:A.ABCDEFGH
有程序:DATAI,M,N/2,1,4/10M=M*II=I+1IF(I.GT.N)GOT020GOTO1020WRITE(*,*)MEND执行此程序
有程序:INTEGERM(3,3)DATAM/1,2,3,4,5,6,7,8,9/DO10I=1.3DO10J=1,3K=M(I,J)M(I,J)=M
有程序:DIMENSIONA(4,3)DATAA/3*-1.0,3*-2.0,3*-3.0,3*-4.0/S=0.0DO10K=1,4D=ABS(A(
有程序:CHARACTER*4STR1,STR2,STR3OPEN(UNIT=15,FILE=‘INPUT.DAT',STATUS=‘OLD')REA
有程序:ADD(X,Y)=X**2+YOPEN(8,FILE=‘F',STATUS=‘NEW',ACCESS=‘DIRECT',*FORM=‘UNFO
有程序:READ(*,100)A100FORMAT(3x,F6.2)WRITE(*,200)A200FORMAT(1x,F8.2)END当执行此程序时
有程序:CHARATERX*2,Y*3,Z*4DATAX,Y,Z/‘AB',‘CDE',‘FGHI'/WRITE(*,100)X,Y,Z100FORM
有程序:LOGICALA,B,C,DINTEGERX,YDATAX,Y,A,B/1,-1,2*.FALSE./C=.NOT.A.AND(B.OR.XG
有程序:WRITE(*,400)876.345400FORMAT(1X,E8.0)此程序段的正确执行结果是:A.8.E+02B.1.E+03C.格式错
有程序:READ(*,50)SWRITE(*,100)S50FORMAT(1X,F7.3)100FORMAT(1X,F8.3)END执行此程序,由键盘
有程序:READ(*,10)IA,IIF(IA.GE.125)THENI=I+10,ELSEI=I-10ENDIFWRITE(*,*)I10FORMA
有程序:I=5J=10K=20M=-10IF(I.GT.M)M=IIF(J.GT.M)M=JIF(K.GT.M)M=KWRITE(*,*)MEND此程
有程序:LOGICALLL=.TRUE.READ(*,*)xIF(x.LT.0)THENL=.FALSE.ELSEWRITE(*,*)xENDIFIF
有程序:DATAA,B,C/4.0,-8.0,3.0/P=B*B-4*A*CIF(P.GE.0.0)THENS=(-B+SQRT(P))/(2*A)T
有程序:N=0DOK=6,2,-2N=N+KM=2*N10CONTINUEWRITE(*,*)MEND上面程序的运行结果是:A.12B.20C.24D
有程序:DO10I=1,5,3DO10J=I,310K=I+JWRITE(*,*)KEND此程序的运行结果是:A.8B.4C.7D.10ABCD参考答
有程序:M=2N=MD010I=1,N+1,NN=N*NM=M*N10CONTINUEWRITE(*,*)MEND此程序的运行结果是:A.8B.32C
有程序:INTEGERPP=0DO10I=0,10,3DO10J=5,100,20DO10K=-10,-5,-110P=P+1WRITE(*,*)PE
有程序:INTEGERB(3,3)DATAB/3*2,3*3,3*4/DO10I=1,310WRITE(*,‘(1X,3I2)')(B(I,J),J=
有程序:INTEGERM(5,5)L=0DO40J=1,5DO40K=1,5M(J,K)=K40CONTINUEDO10I=1,5N=1IF(MOD(
有程序:DIMENSIONA(2,2)INTEGERA,YY=0DO20I=1,2D020J=1,2A(I,J)=I*I+J*JY=Y+A(I,J)2
有程序:INTEGERA(3)DATAA/3*1/N=2DO10I=1.NDO10J=1,N10A(I)=A(J)+1WRITE(*,*)A(N)EN
返回顶部