VFP程序模型.ppt

Vf程序模型 1整除2余数3简单位数4位数及多条件5闰年6水仙花数73位回文数84位回文数9小吃题10硬币11羊犬鸡兔12素数13完数 14勾 股 弦15两个数字相同16人口翻翻17前20项中正数项之和18最大的自然数n19最大的自然数n20最大公约数21最小的自然数n22最小的自然数n 1 简单整除 求和求个数 求出 10 100 内所有能被2整除的整数的和 个数 settalkoffclearn 0 设置计数变量s 0 设置求和变量fori 10to100ifmod i 2 0n n 1 满足条件计数变量加1s s i 满足条件 求和变量增加endifendfor n ssettalkonreturn 简单余数 编写程序 求出100到500之间同时满足除5余4和除7余2条件的数的个数及和 SettalkoffS 0N 0Fort 100to500Ifmod t 5 4andmod t 7 2S s tN n 1EndifEndf n ssettalkonreturn 简单位数运算 编写程序 求三位数的奇数中 所有各位数字之和是15的倍数的数的和 SettalkoffS 0Fori 100to999A int i 100 B int i A 100 10 C mod i 10 Ifmod i 2 1andmod a b c 15 0S s iEndifEndf s 位数及多条件运算 编写程序 求满足下列条件的所有四位数ABCD的个数 该四位数是8的倍数 且A B B C 即第1位数加上第2位数等于第2位数加上第3位数 settalkoffn 0forI 1000to9999a int i 1000 b int i a 1000 100 c int i a 1000 b 100 10 d mod i 10 ifmod i 8 0anda b b cn n 1endifendf n 判断闰年题 编写程序 求在公元10 2000之间有多少个闰年 SettalkoffS 0N 0Fort 10to2000Ifmod t 4 0andmod t 100 0 ormod t 400 0S s tN n 1EndifEndf nsettalkonreturn 水仙花数 水仙花数 是指这样的数 其各位数字的立方和等于该数本身 编写程序求100至400的范围内有多少个水仙花数 Settalkoffn 0ForI 100to400A int i 100 B int i A 100 10 c mod I 10 Ifa 3 b 3 c 3 iN n 1endifendf n 回文数 所谓回文数是从左至右与从右至左读起来都是一样的数字 如 121是一个回文数 编写程序 求出100 200的范围内所有回文数的和 SettalkoffS 0ForI 100to200A int i 100 B int i A 100 10 c mod I 10 Ifa cS s iendifendf s 所谓回文数是从左至右或从右至左读起来都是一样的数字 如 121是一个回文数 编写程序 计算从1981年开始到3000年为止 共有多少个年号是回文数年号 n 0forx 1981to3000a int x 1000 b int x a 1000 100 c int x a 1000 b 100 10 d mod x 10 ifa dandb cn n 1endifendf n 有60个学生一起买小吃 共花钱100元 其中每个大学生花3元 每个中学生花2元 每个小学生花1元 问大 中 小学生的人数分配共有多少种不同的解 去掉某类学生为0的 Settalkoffs 0fora 1to40forb 1to50forc 1to100ifa b c 60anda 3 b 2 c 1 100s s 1endifendfendfendf sSettalkon 用一元纸币兑换一分 两分和五分的硬币 要求兑换硬币的总数为60枚 问共有多少种换法 注 在兑换中 一分 两分或五分的硬币数可以为0枚 n 0fora 0to60forb 0to50forc 0to20ifa b c 60andc 5 b 2 a 100n n 1endifendfendfendf n 有5羊4犬3鸡2兔值钱1496 4羊2犬6鸡3兔值钱1175 3羊1犬7鸡5兔值钱958 2羊3犬5鸡1兔值钱861 求羊值多少钱 Settalkoffforb 10to250forc 10to150ford 10to30a 1496 4 b 3 c 2 d 5if5 a 4 b 3 c 2 d 1496and4 a 2 b 6 c 3 d 1175if3 a 1 b 7 c 5 d 958and2 a 3 b 5 c 1 d 861 aendiendifEndfendfendfSettalkon 所谓素数是指这样的自然数 除1和它本身外不再有其它因子 编写程序 计算从1981年开始到3000年为止 我们将遇到多少个素数年号 n 0fort 1981to3000f 1forj 2tot 1ifmod t j 0f 0exitendifendfiff 1n n 1endifendf n 一个数如果刚好与小于它的所有因子之和相等 则称该数为一个 完数 如 6 1 2 3 则6就是一个完数 求出200到500之间的所有完数之和 s 0fork 200to500c 0fori 1tok 1ifmod k i 0c c iendifendfifc ks s kendifendf s 对自然数A B C 若A B C且A A B B C C 则称 A B C 为一组勾股弦数 其中A B C分别称为勾 股 弦 试求出弦为 1 100 内符合条件的数有多少组 settalkoffclearn 0forc 1to100fora 1tocforb a 1tocifa a b b c cn n 1endifendforendforendfor nsettalkonreturn 求出 123 456 内恰好有两个数字相同的所有整数之和 s 0forx 123to456a int x 100 b int x a 100 10 c mod x 10 if a banda candb c or a canda bandbc or b candacandab s s xendifendfor s 某国今年的人口总数为1亿 若以每年4 的速度递增 试求出至少要再过几年该国人口总数才会翻一翻 Settalkoffclears 0 s 1forn 1to100s s 1 04ifs 2loop exitendifendfor Nsettalkonreturn 已知数列 f n f 1 1 f 2 1 当n 2时f n 3 f n 2 f n 1 试求此数列的前20项中所有正数项之和 settalkoffdimensionf 20 f 1 1f 2 1s 0 s 2forn 3to20f n 3 f n 1 f n 2 f n 3 f n 2 f n 1 iff n 0s s f n endifendfor s 求出100以内使得算式1 3 2 5 n 2 n 1 的值小于10000的最大的自然数n settalkoffs 0forn 1to100a n 2 n 1 s s aifs 10000loop exitendifendfor n n 1 n 1 s a s a 求出100以内最大的自然数n 使得从1开始的连续n个自然数的倒数之和小于3 5 settalkoffs 0forn 1to100s s 1 n s s 1 nifs 3 5loop exitendifendfor n n 1 求出20677和42067的最大公约数 settalkoffcleara 20677b 42067ford 1toaifmod a d 0andmod b d 0max dendifendfor maxsettalkonreturn 求出100以内使得算式1 1 1 2 1 1 2 n 的值大于1 71828的最小的自然数n a 1 00