有一个十进制的四位数ABCD与一个十进制的三位数CDC的差等于十进制的三位数...

问答题 有一个十进制的四位数ABCD与一个十进制的三位数CDC的差等于十进制的三位数ABC.下列程序按"ABCD=9876"的样式打印出ABCD这个数。请在其中____外填入适当的内容.

参考答案： 【10】 DO 10 D=0，9或DO 10，D=0，9
【11】L-...

您可能感兴趣的试卷

你可能感兴趣的试题

1.问答题 函数子程序DTOH能够将一个十进制正整数DEC转换为一个表示十六进制数的字符字符串，其长度不超过8。例如127转换为’7F’。算法是：将DEC除16取余，将所得的商再除16取余，如此反复，直到商和零为止，最后按照逆序输出所得的各个余数。请在其中____处填入适当的内容。

参考答案：

【7】POS=POS-1
【8】DTOH（POS：POS）
【9】 DEC.NE.0或DEC.GT.0

2.问答题 阅读下列程序.其功能是计算Y=1+1.1X+1.2X²+1.3X³+1.4X⁴+1.5X⁵当X=3.1时的值。主程序调用了函数子程序。请在其中____处填入适当的内容。

参考答案：【4】 DIMENSION A（6）或REPL A（6）
【5】Y=POLY（A...

点击查看完整答案

3.问答题 阅读下列程序，其功能是求出方程2X³-3X²+4X-11=0在区间（1，5）中的一个实数根，运行结果是显示根值和对分次数，使用的是二分算法。请在其中_____处填入适当的内容。

参考答案：

【1】 N=N+1或N=1+N
【2】FX=FUN（X）
【3】XR

4.单项选择题 阅读下列程序
INTEGER A（100），G
READ（*，*）N，（A（I），I=1，N）
DO 10 I=1，N-1
G=I
DO 20 J=I+1，N
IF（A（J）.LT.A（G））THEN
G=J
ENDIF
20 CONTINUE
K=A（I）
A（I）=A（G）
A（G）=K
10 CONTINUE
WRITE（*，’（1X，10I2）’）（A（I），I=1，N）
END
程序运行时输入的初始值是3，6，9，8，则运行结果是（）

A. 6 9 8
B. 8 9 6
C. 6 8 9
D. 9 8 6

点击查看答案

5.单项选择题 阅读下列程序
DIMENSION M（3，3）
DATA M/1，2，3，4，5，6，7，8，9/
WRITE（*，100）（M（3，J），J=1，3）
100 FORMAT（1X，3I2）
END
程序运行结果是（）

A. 2 5 8
B. 3 6 9
C. 4 5 6
D. 7 8 9

点击查看答案

6.单项选择题 阅读下列程序
LOGICAL L1，L2，L3，L4，L5
DATA L1，L2，L3/3*.TRUE./
L4=.NOT.L1.AND..NOT.L2.AND.L3
L5=.NOT.L1.OR..NOT.L2.OR.L3
WRITE（*，*）L4，L5
END
程序运行结果是（）

A. T T
B. T F
C. F F
D. F T

点击查看答案

7.单项选择题 阅读下列程序
FUN（c，d）=a*c+b/d
DATA a，b/1.0，1.0/
WRITE（*，’（F4.1）’）
FUN（a，b）-FUN（b，a）
END
程序运行结果是（）

A. 0.0
B. 4.0
C. 2.O
D. 3.O

点击查看答案

8.单项选择题 阅读下列程序
N=0
DO 10 K=1，3
N =N+1
M=K*N
10 CONTINUE
WRITE（*，’（1X，2I3）’）M，K
END
程序运行结果是（）

A. 9 4
B. 9 3
C. 12 4
D. 12 3（#^）

点击查看答案

9.单项选择题 阅读下列程序
CHARACTER A*4，B*5，C*4
DATA A，B，C/’BIG’，’MIDDLE’，’SMALL’/
WRITE（*，20）A，B，C
20 FORMAT（1X，A2，A3，A4）
END
程序运行结果是（）

A. BIGMIDDLE
B. *********
C. BIGMIDSMA
D. BIMIDSMAL

点击查看答案

10.单项选择题 阅读下列程序
A=3.5
CALL SUBA（A，A，A）
WRITE（*，’（F4.1）’）A
END
SUBROUTINE SUBA（X，Y，Z）
Y=Y-2.0
Z=Z+X
END
程序运行的结果是（）

A. 7.0
B. 5.0
C. 3.5
D. 1.5

点击查看答案