问题标题:
【一、程序填空1.输入一串数字字符,当其个数为10时,进行各个数字求和运算,否则重新输入.CLEARSETTALKOFFS=0DOWHILE.T.ACCEPT“输入一串数字字符:”TOXM=(1)IFM=10(2)ENDIF(3)ENDDOFORN=1TO10S=S+(4)】
更新时间:2024-04-28 04:47:11
问题描述:
一、程序填空
1.输入一串数字字符,当其个数为10时,进行各个数字求和运算,否则重新输入.
CLEAR
SETTALKOFF
S=0
DOWHILE.T.
ACCEPT“输入一串数字字符:”TOX
M=(1)
IFM=10
(2)
ENDIF
(3)
ENDDO
FORN=1TO10
S=S+(4)
ENDFOR
”该数字字符各个数字之和为:”,S
SETTALKON
RETURN
2.定义一个包含10个元素的A数组,该数组中已有9个数据且按从小到大顺序存放,第10个元素为空,现输入一个数放到数组中,且要求仍为由小到大顺序.
CLEAR
SETTALKOFF
DIMEA(10)
FORK=1TO9
INPUT"输入"+"第"+STR(K,2)+"个数据"TOA(K)
NEXT
INPUT“输入要插入的数:”TOX
FORN=1TO9
IFA(N)>X
(5)
ENDIF
ENDFOR
FORM=10TON+1(6)
(7)
NEXT
(8)
FORK=1TO10
A(K)
ENDFOR
SETTALKON
RETURN
董玮文回答:
&&这是测试过的程序,请你再测试.
&&1.
CLEAR
SETTALKOFF
S=0
DOWHILE.T.
ACCEPT"输入一串数字字符:"TOX
M=LEN(x)
IFM=10
exit
ENDIF
loop
ENDDO
FORN=1TO10
S=S+VAL(SUBSTR(x,n,1))
ENDFOR
"该数字字符各个数字之和为:",S
SETTALKON
RETURN
&&2.
CLEAR
SETTALKOFF
DIMEA(10)
FORK=1TO9
INPUT"输入"+"第"+STR(K,2)+"个数据"TOA(K)
NEXT
INPUT"输入要插入的数:"TOX
FORN=1TO9
IFA(N)>X
exit
ENDIF
ENDFOR
FORM=10TON+1STEP-1
a(m)=a(m-1)
NEXT
a(N)=x
FORK=1TO10
A(K)
ENDFOR
SETTALKON
RETURN