作业帮 > 综合 > 作业

VFP改错帮帮忙!1.题目:下列的程序功能是:求出不超过6位数的Armstrong数.所谓* Armstrong数是指一

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/06/09 03:35:46
VFP改错帮帮忙!
1.题目:下列的程序功能是:求出不超过6位数的Armstrong数.所谓
* Armstrong数是指一个n位数的正整数,它的每位数字的n次方
* 之和等于该数本身.例如:153=1^3+5^3+3^3 要求:
* (1)将下列程序输入到项目的程序文件pcode中,并对其中的
* 2条错误语句进行修改;
* (2)在修改程序时,不允许修改程序的总体框架和算法,不允许
* 增加或减少语句数目.
*-------------------------------------------------------
clear
for m=1 to 100000
n=len(allt(str(m)))
x=0
for y=1 to n
c=substr(allt(str(m)),y,1)

else
if Mmin>a(i) and mod(a(i),2)=1
Mmin=a(i)
endif
endfor
?"最大偶数:",iif(Mmax=-1,"无",Mmax)
?"最小奇数:",iif(Mmin=100,"无",Mmin)
1
clear
for m=1 to 100000
n=len(allt(str(m)))
x=0
for y=1 to n
c=substr(allt(str(m)),y,1)

else
if Mmin>a(i) and mod(a(i),2)=1
Mmin=a(i)
endif
endif
endfor
?"最大偶数:",iif(Mmax=-1,"无",Mmax)
?"最小奇数:",iif(Mmin=100,"无",Mmin)