一、 程序填空
题目
一、 程序填空
1. 输入一串数字字符,当其个数为10时,进行各个数字求和运算,否则重新输入.
CLEAR
SET TALK OFF
S=0
DO WHILE .T.
ACCEPT “输入一串数字字符:” TO X
M= (1)
IF M=10
(2)
ENDIF
(3)
ENDDO
FOR N=1 TO 10
S=S+ (4)
ENDFOR
”该数字字符各个数字之和为:”,S
SET TALK ON
RETURN
2. 定义一个包含10个元素的A数组,该数组中已有9个数据且按从小到大顺序存放,第10个元素为空,现输入一个数放到数组中,且要求仍为由小到大顺序.
CLEAR
SET TALK OFF
DIME A(10)
FOR K=1 TO 9
INPUT "输入"+ "第"+STR(K,2)+ "个数据" TO A(K)
NEXT
INPUT “输入要插入的数:” TO X
FOR N=1 TO 9
IF A(N)>X
(5)
ENDIF
ENDFOR
FOR M=10 TO N+1 (6)
(7)
NEXT
(8)
FOR K=1 TO 10
A(K)
ENDFOR
SET TALK ON
RETURN
答案
&&这是测试过的程序,请你再测试.
&&1.
CLEAR
SET TALK OFF
S=0
DO WHILE .T.
ACCEPT "输入一串数字字符:" TO X
M=LEN(x)
IF M=10
exit
ENDIF
loop
ENDDO
FOR N=1 TO 10
S=S+VAL(SUBSTR(x,n,1))
ENDFOR
"该数字字符各个数字之和为:",S
SET TALK ON
RETURN
&&2.
CLEAR
SET TALK OFF
DIME A(10)
FOR K=1 TO 9
INPUT "输入"+ "第"+STR(K,2)+ "个数据" TO A(K)
NEXT
INPUT "输入要插入的数:" TO X
FOR N=1 TO 9
IF A(N)>X
exit
ENDIF
ENDFOR
FOR M=10 TO N+1 STEP -1
a(m) =a(m-1)
NEXT
a(N)=x
FOR K=1 TO 10
A(K)
ENDFOR
SET TALK ON
RETURN
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
热门考点
- 大宝、二宝、小宝三兄的年龄之和是45岁,大宝的年龄是二宝的3倍,小宝的年龄是二宝的0.5倍,大宝、二宝、小宝各有多少岁?
- 将圆平均分成若干份,平成一个近似的长方形,已知长方形的长比宽多6.42cm圆的面积是多少cm
- 英语翻译
- 用圆木加工成一根最大的方木,长15分米,地面直径1分米,加工成方木,求方木的体积.
- 38分钟等于 小时
- 谁有《生命的灯塔 议论文》 是议论文哦!
- 终南别业的中心思想是什么?
- 南北半球的气温由什么逐渐向什么降低
- 他现在正在打开窗户(翻译成英语)
- From one letter a wedding ring fell,the finger it was bought for perhaps lies rotting in the grave