2010 VF 程序例题分类总结.pptVIP

四位双平方数 勾股数组 倒勾股数 弦 数 爱因斯坦走台阶 最大公约数 最小公倍数 求出 9269 和 8671 的最小公倍数。 算法提示：a与b的最小公倍数是 a 的倍数中第1个 被b整除的数。 整除问题 非平凡因子 clear a=559399 for n=2 to a if mod(a,n)=0 ?n exit endif endfor return 真因子 clear a=203267 n=0 for b=1 to a-1 if mod(a,b)=0 max=b endif endfor ? max return 质因数 最大质因数 真分数 非约简真分数 最简真分数 完 数 多因子完数 绝对素数 绝对素数 双胞胎数 友数对 超级素数 逆向超级素数 素数对（歌德巴赫猜想） 菲波数列 菲波数列 阶乘之和 格里高利公式 E数列 数 列 clea dime f(100) sum1=0 f(1)=1 f(2)=1 f(3)=0 for n=4 to 61 f(n)= f(n-1)-2*f(n-2)+f(n-3) endf for i=11 to 61 sum1=sum1+f(i) endf ?sum1 retu 数 列 数 列 数 列 求出100以内最小的自然数 n，使得从1开始的连续 n个自然数的倒数之和大于3.6。 求出100以内最大的奇数 n使得算式(1-1/2) +(1/3-1/4)+…+(1/n-1/(n+1))的值小于0.68。 闰年问题 人口递增问题 clear s=1 n=2000 do while s2 n=n+1 s=s*1.035 enddo ? n return 猴吃桃 百钱买百鸡 百马驮百瓦 整币兑零 整币兑零 马克思和用餐问题 羊犬鸡兔 矩阵问题 分数转小数 数制转换 解方程 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 * 编程求Fibonacci数列：1，1，2，3，5， 8……的第30个数，如下所示，求fib(30) ? fib(1)=1 n=1 F1=1 fib(2)=1