_VF_程序例题分类.ppt

12 set talk off clear n=0 for yi=1 to 48 for er=1 to 48 wu=50-yi-er if yi+er*2+wu*5=100 n=n+1 endif endfor endfor ? n set talk on return * 整币兑零 把一张一元钞票,换成一分、二分和五分硬币,每种至少1枚,问兑换后其中二分的硬币恰有20枚的方案共有多少种? * 11 clear n=1 for yi=1 to 50 for wu=1 to 20 er=20 if yi+er*2+wu*5=100 n=n+1 endif endfor endfor ? n return * 马克思曾经做过这样一道趣味数学题：有30个人在一家小饭店里用餐，其中有男士、女士和小孩，每个男士花了3先令，每个女士花了2先令，每个小孩花了1先令，共花去50先令。如果要求男士、女士和小孩都有人参与，试求有多少种方案分配男士、女士和小孩的人数? 马克思和用餐问题 * 9 set talk off clear n=0 for m=1 to 15 for w=1 to 23 c=30-m-w if m*3+w*2+c=50 n=n+1 endif endfor endfor ?n set talk on return * * 有5羊4犬3鸡2兔值钱1496，4羊2犬6鸡3兔值钱1175，3羊1犬7鸡5兔值钱958，2羊3犬5鸡1兔值钱861，求兔值多少钱？ 羊犬鸡兔 * clea for d=1 to 191 for c=1 to 136 for b=1 to 287 a=(861-3*b-5*c-d)*1/2 if 5*a+4*b+3*c+2*d=1496 and 4*a+2*b+6*c+3*d=1175 and 3*a+1*b+7*c+5*d=958 ?a,b,c,d exit endi endf endf endf 177 23 29 121 * 球反弹 一球从100米高处落至平地，并且连续多次再反弹再落下，假设每次反弹的高度都是前一高度的3/4倍，试求出最大的自然数n，使得此球从开始下落至第n次着地时在垂直方向所经过的总路程不超过590米。 * clearh=100s=100for n=1 to 100　 h=3/4*h　 s=s+2*h　 if s=590　　 exit　 endif endfor? nreturn 6 矩阵问题 有一个4行5列的数表，位于第m行和第n列交叉处的数的值为m+n。求出此数表中所有数的和。 * clear dimension a(4,5) S=0 for m=1 to 4 for n=1 to 5 a(m,n) =m+n s=s+a(m,n) endfor endfor ? s return 110 * * 若两个自然数A,B的和与差（去绝对值）都是平方数，则称(A,B)为自然数对。若自然数对(A,B)满足下列条件：①AB; ②(A,B)与(B,A)视为同一个自然数对；求[1，100] 自然数对的对数以及这些自然数对中所有A之和，所有B之和。 对数：31 A和：1669 B和：1160 自然数对 * clea n=0 s1=0 s2=0 for b=1 to 99 for a=b+1 to 100 if int(sqrt(abs(a+b)))=sqrt(abs(a+b)) and int(sqrt(abs(a-b)))=sqrt(abs(a-b)) and ab n=n+1 s1=s1+a s2=s2+b endif endfor endfor ?n,s1,s2 retu 对数 31 B和 1160 A和 1669 分数转小数 设a=234，b=569，求a/b的精确值中小数点后前40位数字中数字3的个数。（提示：基于人工计算的思想） * clear a=234 b=569 n=0 for k=1 to 40 a=a*k q=int(a/b) if q=3 n=n+1 endif a=mod(a, b) en