用vfp解决:一个正整数有可能可以被表示为n(n>=2)个连续正整数之和
来源:百度知道 编辑:UC知道 时间:2024/07/11 03:50:48
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个连续奇数的和。例如: