當輸入10，20時，下列程序執(zhí)行后的輸出結果為()。
READ(*，*)IX，IY
A=100.0
IF(IX／IY.GT.0)THEN
A=1.0
ELSEIF(IX／IY.LT.0)THEN
A=-1.0
ELSE
A=0.0
ENDIF
WRITE(*，*)A
END
A.0.0
B.1.0
C.–1.0
D.100.0
您可能感興趣的試卷
你可能感興趣的試題
下列程序執(zhí)行后的輸出結果為()。
CHARACTER9*C
C=’1234567890’
CALLSS(C)
END
SUBROUTINESS(X)
CHARACTERX*2
WRITE(*，*)X
END
A.123456
B.12
C.56
D.567890
當輸入1.5，2.5，3.5，4.0下列程序執(zhí)行后的輸出結果為()。
DIMENSIONA(2，2)
READ(*，*)A
SUM=0
DO10I=1，2
DO20J=I，2
K=A(I，J)*I*J
10A(1，2)=K
WRITE(*，*)A(2，1)
END
A.4.0
B.5.0
C.6.0
D.7.0
A.打印
B.編輯
C.執(zhí)行
D.刪除
A.可以減少屏幕的損耗
B.可以設置口令
C.可以保障系統(tǒng)安全
D.可以節(jié)省計算機內存
A.DOC
B.XLS
C.WAV
D.HTM
最新試題
校園網屬于（）。
有程序：DIMENSIONA(2，2)INTEGERA．YY=0D0201=1，2D020J=1，2A(1，J)=I*I+J*JY=Y+A(1，J)20CONTINUEWRITE(*，*)YEND此程序運行的結果（）
下列程序執(zhí)行后的輸出結果為()。CHARACTER9*CC=’1234567890’CALLSS(C)ENDSUBROUTINESS(X)CHARACTERX*2WRITE(*，*)XEND
程序character*(*)namename=’apple’L=len(name)Do10I=1,L10name(I:I)=char(Ichar(name(I:I))+Iprint*,nameend程序運行后輸出結果為()
對任意輸入的實數X，下列程序執(zhí)行后K的可能輸出值為()。READ(*，*)XK=2*COS(X)PRINT*，KEND
基準折現率是指（）。
某固定資產原值為90000元，預計凈殘值為l0000元，使用年限為4年，若按年數總和法計算折舊，則其第3年的折舊額為（）元。
程序gramtrapareadataa,b/10,5/y(x)=1*x+1S=(yB．+yA．)*abc(b-a)/2write(*,*)’S=’,Send執(zhí)行程序后,最接近S的值為()
下列程序執(zhí)行時，需輸入數據的記錄個數必須為（）DIMENSIONA(4，4)READ(*，*)AEND
語句WRITE(*，‘(1X，413)’)(I，I=1，10，2)，輸出記錄個數是()。