UC知道用vfp解决：一个正整数有可能可以被表示为n(n>=2)个连续正整数之和
来源：百度知道 编辑：UC知道 时间：2024/06/18 01:51:04
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的高手，能用vfp解决这个算法类的问题吗？最好能有具体的代码！
新建个表单，在表单里加一个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
任意一个正整数都可以表示为质因子之积 谁能用三个2表示任意正整数？在可以使用任何数学符号的情况下，用三个2表示任意正整数。 n为正整数,用n表示不能被3整除的数 用VFP 做一个“九九乘法表” 谁帮我解决一下VFP的一个问题啊? 将一个正整数分解质因数？用C 设计求出前100个正整数中的所有素数的一个算法，并用程序框图表示 如果一个正整数能表示成为两个连续偶数的平方差,这是神秘数. 一个正整数分别加上100和168，可以得到两个完全平方数，求这个正整数？ 每个正整数n的立方都可以表示为n个连续奇数的和。例如：