题目
一、 程序填空
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. 输入一串数字字符,当其个数为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
提问时间:2021-02-20
答案
&&这是测试过的程序,请你再测试.
&&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
&&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
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
1,人们染上烟瘾,最终因吸烟使自己丧命.
最新试题
- 1How are you managing to do your work without an assisant?这句话的句子成分
- 2一个零件加工厂前6天平均每天生产零件93箱,为赶工期,第7天生产的零件箱数比这7天的平均数还多3箱.这个厂
- 3tanx=0.6889,x等于多少
- 4孝德感恩的作文500字
- 5喷气式飞机的飞行速度
- 6神奇的书仿写6段
- 7某市一载满浓硫酸的罐车翻倒,导致26吨溶质质量分数为百分之九十八的浓硫酸泄露,流入附近小溪中.环保部门立即垒垻并用石灰浆(主要成分是氢氧化钙)中和稀释后的硫酸.计算:中和泄漏的硫酸,理论上需要多少吨氢
- 8形容海底很深的词语有哪些?
- 9急求英语演讲开头 谢谢
- 10水蒸气,开水哪个温度高?
热门考点
- 1大宝、二宝、小宝三兄的年龄之和是45岁,大宝的年龄是二宝的3倍,小宝的年龄是二宝的0.5倍,大宝、二宝、小宝各有多少岁?
- 2将圆平均分成若干份,平成一个近似的长方形,已知长方形的长比宽多6.42cm圆的面积是多少cm
- 3英语翻译
- 4用圆木加工成一根最大的方木,长15分米,地面直径1分米,加工成方木,求方木的体积.
- 538分钟等于 小时
- 6谁有《生命的灯塔 议论文》 是议论文哦!
- 7终南别业的中心思想是什么?
- 8南北半球的气温由什么逐渐向什么降低
- 9他现在正在打开窗户(翻译成英语)
- 10From one letter a wedding ring fell,the finger it was bought for perhaps lies rotting in the grave