foxpro程序设计示例与练习三(因子)

适用班级：1004501/1004502 VFP程序设计示例与练习（三）^Q^ VFP程序设计示例与练习三（因子）
1.从键盘输入一个正整数m，求m的不同因子有多少个
clear
set talk off
input ‘请输入一个正整数：’ to m
t=0 &&计数器，统计m所含因子的个数
for i=1 to m
if mod(m,i)=0 &&若为真，则找到一个因子
t=t+1
endif
endfor
? t
set talk on
return
2.从键盘输入一个正整数m，求m的真因子共有多少个（真因子是指除m以外的所有因子）clear
set talk off
input ‘请输入一个正整数：’ to m
t=0 &&计数器，统计m所含因子的个数
for i=1 to int(m/2) &&也可以写成i=1 to m-1 if mod(m,i)=0
t=t+1
endif
endfor
? t
set talk on
return
3.某整数N的所有真因子之和为S，若S<N，则称N为盈数。

从键盘输入一个正整数N，判断N 是否盈数。

clear
set talk off
input ‘请输入一个正整数：’ to n
s=0 &&存放因子之和
for i=1 to int(n/2) &&同例2
if mod(n,i)=0
s=s+i
endif
endfor
if s<n
?‘n是盈数’
else
? ‘n不是盈数’
endif
set talk on
return
4.某整数N的所有真因子之和为S，若S=N，则称N为完数，求[1，1000]中有多少个完数。

clea
set talk off
t=0
for n=1 to 1000
s=0 &&注意，对每个数求因子之前，因子的和为0
for i=1 to int(n/2) &&求每个数的真因子及其和if mod(n,i)=0
s=s+i
endif
endfor
if s=n &&是完数的条件
t=t+1
endif
endfor
?t
set talk on
return
5.求出18000中含有质因数的个数（相同的重复计数，例如，180中含有5个质因数：2、2、3、3、5）。

（质因数，质因子，即素数因子）clear
x=18000
n=0 &&计数器，记录质因子个数
k=2
do while x>1 &&求解过程中x的值会越来越小if mod(x,k)=0
n=n+1 &&每次求得的第一个因子肯定为质因子
x=int(x/k) &&求得第一个因子后即改变x的值
loop
*求得第一个因子后即离开循环求新x的第一个因子endif
k=k+1 &&若k不是约数，则继续判断k+1 enddo
? n
【练习】
1.写程序，求[1，1000]中有多少个盈数？
（答案：751）2.某整数N的所有真因子之和为S，若S>N，则称N为亏数。

求[100，1000]中最小的亏数是几。

（答案：100）3.若某整数N的所有因子之和是N的倍数，则称N为多因子完备数，如28，其所有因子之和为56。

求[1，500]之间有多少个因子完备数。

（答案：5）4.求[100，500]中含有偶数个真因子的整数共有多少个。

（答案：13）5.有些整数刚好是其因子个数的整数倍，如24有8个因子。

[1，300]中有多少个能被其因子数目整除的数？（答案：35）6.求[100,999]中含有偶数个质因子的整数的个数（相同的质因子重复计数）（答案：444）（提示：内外层循环变量不能相同！）。