用vfp解决：一个正整数有可能可以被表示为n(n>=2)个连续正整数之和

用vfp解决：一个正整数有可能可以被表示为n(n>=2)个连续正整数之和
100[ 标签：正整数之和,vfp,正整数 ] 一个正整数有可能可以被表示为n(n>=2)个连续正整数之和,如：
15=1+2+3+4+5
15=4+5+6
15=7+8
请编写程序,根据输入的任何一个正整数,找出符合这种要求的所有连续正整数序列.
输出数据：在标准输出上打印出符合题目描述的全部正整数序列,每行一个序列,每个序列都从该序列的最小正整数开始、以从小到大的顺序打印.如果结果有多个序列,按各序列的最小正整数的大小从小到大打印各序列.此外,序列不允许重复,序列内的整数用一个空格分隔.如果没有符合要求的序列,输出“NONE”.
例如,对于15,其输出结果是：
1 2 3 4 5
4 5 6
7 8
对于16,其输出结果是：
NONE
能用vfp解决这个算法类的问题吗?最好能有具体的代码!

爱似vv 1年前已收到1个回答举报

zhangsheng_2001 幼苗

共回答了19个问题采纳率：89.5% 举报

新建个表单,在表单里加一个text1,edit1,command1
command1命令代码：
LOCAL p,t,b
p=thisform.text1.value &先设定文本框是数值型
IF p<1
MESSAGEBOX("请输入一个正整数",48,"系统提示")
RETURN
endif
thisform.edit1.Value=""
FOR i=1 to INT(p/2)
FOR j=1 to INT(p/2)
t=(j+1)*i+(j+1)*j/2
IF p==t
b=ALLTRIM(STR(i))
FOR m=1 to j
b=b+SPACE(1)+ALLTRIM(STR(i+m))
ENDFOR
thisform.edit1.Value=thisform.edit1.Value+b+CHR(13)
ENDIF
ENDFOR
ENDFOR
IF EMPTY(ALLTRIM(thisform.edit1.Value))
thisform.edit1.Value="NONE"
ENDIF

1年前

可能相似的问题

你能帮帮他们吗

精彩回答