VFP程序模型课件.ppt

Vf程序模型;1.简单整除，求和求个数。 ;set talk off clear n=0 设置计数变量 s=0 设置求和变量 for i=10 to 100 if mod(i,2)=0 n=n+1 满足条件计数变量加1 s=s+i 满足条件，求和变量增加 endif endfor ? n,s set talk on return ;简单余数;Set talk off S=0 N=0 For t=100 to 500 If mod(t,5)=4 and mod(t,7)=2 S=s+t N=n+1 Endif Endf ?n,s set talk on return;简单位数运算 ;Set talk off S=0 For i=100 to 999 A=int(i/100) B=int((i-A*100)/10) C=mod(i,10) If mod(i,2)=1 and mod(a+b+c,15)=0 S=s+i Endif Endf ?s;位数及多条件运算 ;set talk off n=0 for I=1000 to 9999 a=int(i/1000) b=int((i-a*1000)/100) c=int((i-a*1000-b*100)/10) d=mod(i,10) if mod(i,8)=0 and a+b=b+c n=n+1 endif endf ?n;判断闰年题;Set talk off S=0 N=0 For t=10 to 2000 If mod(t,4)=0 and mod(t,100)0 ; or mod(t,400)=0 S=s+t N=n+1 Endif Endf ?n set talk on return ;水仙花数;Set talk off n=0 For I=100 to 400 A=int(i/100) B=int((i-A*100)/10) c=mod(I,10) If a^3+b^3+c^3=i N=n+1 endif endf ?n;回文数 ;Set talk off S=0 For I=100 to 200 A=int(i/100) B=int((i-A*100)/10) c=mod(I,10) If a=c S=s+i endif endf ?s;所谓回文数是从左至右或从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，计算从1981年开始到3000年为止，共有多少个年号是回文数年号。 ;n=0 for x=1981 to 3000 a=int(x/1000) b=int((x-a*1000)/100) c=int((x-a*1000-b*100)/10) d=mod(x,10) if a=d and b=c n=n+1 endif endf ?n;有60个学生一起买小吃，共花钱100元，其中每个大学生花3元，每个中学生花2元，每个小学生花1元，问大、中、小学生的人数分配共有多少种不同的解（去掉某类学生为0的）？ ;Set talk off s=0 for a=1 to 40 for b=1 to 50 for c=1 to 100 if a+b+c=60 and a*3+b*2+c*1=100 s=s+1 endif endf endf endf ?s Set talk on;用一元纸币兑换一分、两分和五分的硬币，要求兑换硬币的总数为60枚，问共有多少种换法？(注：在兑换中，一分、两分或五分的硬币数可以为0枚) ;n=0 for a=0 to 60 for b=0 to 50 for c=0 to 20 if a+b+c=60 and c*5+b*2+a=100 n=n+1 endif endf endf endf ?n;有5羊4犬3鸡2兔值钱1496,4羊2犬6鸡3兔值钱1175，3羊1犬7鸡5兔值钱958， 2羊3犬5鸡1兔值钱861，求羊值多少钱？;Set talk off for b=10 to 250 for c=10 to 150 for d=10 to 30 a=(1496-4*b-3*c-2*d)/5 if 5*a+4*b+3*c+2*d=1496 and 4*a+2*b+6*c+3*d=1175 if 3*a+1*b+7*c+5*d=958 and 2*a+3*b+5*c+1*d=861 ?a endi endif Endf endf endf Set talk on;所谓素数是指这样的自然数，除1和它本身外不再有其它因子。编写程序,计算从1981年开始到3000年为止，我们将遇到多少个素数年号。;n=0 for t=1981 to 3000 f=1 for j=