VF程序汇总.doc

2013 年重庆市程序复习题 1 1 以下程序的功能是显示系统日期的中文季节 比如系统日期为 2007 04 12 显示 春季 请填空完成 yue month Do case Case yue 3 or yue 4 or yue 5 Coth 春 Case yue 6 or yue 7 or yue 8 Coth 夏 Case yue 9 or yue 10 or yue 11 Coth 秋 Case yue 12 or yue 1 or yue 2 Coth 冬 Messagebox 季 return 有如下程序 请写出运行结果 clear x 34567 y 0 do while x 0 y y 10 x 10 x int x 10 enddo y 2 以下程序的功能是统计 100 以内能被 8 整除的整数的个数 SET TALK OFF X 0 N 0 DO WHILE X 100 AND N 1000 IF 1 N ENDIF 2 ENDDO RETURN 2 有如下程序 请写出运行结果 CLEA M 1 N 1 DO WHILE M 10 M M 1 IF INT M 3 M 3 N N M ENDIF ENDDO N N RETURN 2 有如下程序 请写出运行结果 SET TALK OFF CLEAR I 1 DO WHILE I 50 2013 年重庆市程序复习题 3 IF I 7 INT I 7 STR I 4 ENDIF I I 2 ENDDO RETURN 1 数据表 STUDENT dbf 内容如下 Record 学号 姓名 性别 班级 总分 1 1458 张萧 女 班 520 2 1479 王琴 女 班 495 3 1480 陆海军 男 班 500 4 1500 李文君 女 班 468 5 1503 海涛 男 班 515 写出执行以下程序结果 use student do while t if 性别 女 exit endif if 班级 班 disp 姓名 性别 班级 总分 endif skip enddo use 2 以下程序段与 VFP 命令 DELETE for 性别 男 and 政治面貌 群众 等效 请填空完成 do while not eof if 性别 男 endif if 政治面貌 群众 endif skip enddo 2013 年重庆市程序复习题 4 1 已知某单位教师工资表 JS dbf 有如下记录 Record 编号 姓名 年龄 工资 1 3001 李丽珍 36 690 2 3002 刘苏 51 1680 3 3003 末言 22 820 4 3004 魏虎豹 46 960 5 3005 罗山 40 1100 6 3006 甘甜 30 920 7 3007 丰潇潇 47 1200 下列程序用于统计工资表 JS DBF 中 40 岁以上 包括 40 岁 的教师的平均工资 请填空完 成 USE JS S 0 N 0 LOCATE FOR DO WHILE S S 工资 N N 1 ENDDO S N USE 3 下面程序运行时输入 5 请写出程序执行结果 SET TALK OFF Clear INPUT 请输入层数 TO N FOR K 1 TO N SPACE N FOR J 1 TO K ENDFOR ENDFOR 3 有一程序如下 请写出运行结果 CLEAR DIMENSION A 3 3 FOR I 1 TO 3 FOR J 1 TO 3 IF IJ A I J 0 2013 年重庆市程序复习题 5 ELSE A I J 9 ENDIF A I J ENDFOR ENDFOR CANCEL 一 数学表达式 1 编写一个求 S 1 2 3 100 的程序 Clear S 0 For i 1 to 100 S S i Endfor S s Cancel 2013 年重庆市程序复习题 6 2 编写程序 其功能是 计算并输出下列多项式的值 n S 1 4 1 3 1 2 1 1 例如 若 n 5 则应输出 2 283333 clear s 0 input n to n for i 1 to n s s 1 i endfor S s return 3 编写程序 计算表达式 n n Sn 1 3 4 2 3 1 2 clear s 0 input n to n for i 1 to n s s i 1 i endfor 2013 年重庆市程序复习题 7 S s return 4 设计完成如下表达式计算的程序 nn Sn 2 1 12 1 4 1 3 1 2 1 1 clear s 0 input n to n for i 1 to n s s 1 2 i 1 1 2 i endfor s s return 5 编写程序 计算表达式 n S 321 1 321 1 21 1 1 set talk off clear s 0 input n to n for i 1 to n s s 1 m i endfor s s return 2013 年重庆市程序复习题 2 set talk on function m k S 0 for j 1 to k S S j endfor return S endfunc clear s 0 m 0 input n to n for i 1 to n m m i s s 1 m endfor s 6 编写一个求 S 1 2 3 10 Clear S 0 For k 1 to 10 2013 年重庆市程序复习题 2 S S T k Endfor S s RETURN FUNCTION T N F 1 FOR K 1 to N F F K ENDFOR RETURN F ENDFUNC 7 请分别将求阶乘的功能设计为自定义函数 并在计算 5 3 7 时进 行调用 clear T 5 T 3 T 7 return function T n t 1 for i 1 to n 2013 年重庆市程序复习题 3 t t i endfor return t endfunc 8 编写程序 其功能是 计算并输出下列多项式的值 1 3 1 2 1 1 1 1 n Sn 例如 在程序中从键盘给 n 输入 15 则输出为 a 2 718282 注意 要求 n 的值大于 1 但不大于 100 set talk off clear s 1 input n to n for i 1 to n s s 1 T i endfor s s return function T k t 1 for j 1 to k t t j endfor 2013 年重庆市程序复习题 return t endfunc 9 编写程序 其功能是 计算并输出 321 321 21 1nS 例如 从键盘给 n 输入 20 后 输出为 s 534 188884 注意 要求 n 的值大于 1 但不大于 100 clear s 0 input n to n for i 1 to n s s T i endfor s s return function T k t 0 for j 1 to k t t sqrt j endfor return t endfunc 10 编写程序 其功能是 计算并输出下列多项式的值 log 2log 1log nS 并输出结果 例如 若 n 20 则 2013 年重庆市程序复习题 S 6 506583 clear s 0 input n to n for i 1 to n s s log i endfor s sqrt s s s return 11 编写程序 计算表达式 2 1 2 n xxf xx n 直到 10 6 n x n 例如 x 2 5 则函数值为 12 182494 set talk off clear input x to x s 0 1 i 1 do while x i T i 10E 6 s s x i T i i i 1 enddo s s set talk on 2013 年重庆市程序复习题 return function T k t 1 for j 1 to k t t j endfor return t endfunc 12 编写程序 计算表达式 1 4 3 2 1 1 1 1 1 2 432 nn xxf xxxxx n n n n 直到 10 6 n x n 若 x 2 5 函数值为 1 917915 clear input x to x s 0 1 i 1 do while x i jc i 10E 6 s s 1 i 1 x i jc i i i 1 enddo S s return function jc k 2013 年重庆市程序复习题 t 1 for j 1 to k t t j endfor return t endfunc 13 编写程序 计算并输出给定 10 个数的方差 10 1 10 1 10 1 10 1 kk k k XS X 既 10 个数的平均值 例如 给定的 10 个 数为 95 89 76 65 88 72 85 81 90 56 输出 S 11 730729 clear dime a 10 b 10 for i 1 to 10 input 请输入第 alltrim str i 个数 to a i endfor s 0 for i 1 to 10 s s a i endfor p s 10 for i 1 to 10 b i abs a i p endfor 2013 年重庆市程序复习题 ss 0 for i 1 to 10 ss ss b i endfor pp ss 10 S sqrt pp return 二 矩阵相关计算 1 编写程序 完成的功能是 实现 B A A 即把矩阵 A 加上 A 的转 置 存放在矩阵 B 中 例如用户输入矩阵 987 654 321 其转置矩阵为 963 852 741 程序输出 181410 14106 1062 clear input n to n dime a n n b n n c n n for i 1 to n for j 1 to n input to a i j endfor endfor for i 1 to n 2013 年重庆市程序复习题 for j 1 to n b j i a i j endfor endfor for i 1 to n for j 1 to n c i j a i j b i j endfor endfor for i 1 to n for j 1 to n c i j endfor endfor return 2 编写程序 完成的功能是 有 N N 矩阵 以主对角线为对称线 对称元素相加并将结果存放在左下三角元素中 右上三角元素置为 0 例如 若 N 3 有下列矩阵 987 654 321 计算结果为 91410 056 001 2013 年重庆市程序复习题 clear input n to n dime a n n b n n c n n 输入矩阵 a 的数据 for i 1 to n for j 1 to n input to a i j endfor endfor 转置矩阵 a 的数据到矩阵 b for i 1 to n for j 1 to n b j i a i j endfor endfor c 0 矩阵 c 的初值都是 0 矩阵 c 与矩阵 a 的对角线的值相等 for i 1 to n c i i a i i endfor 矩阵 a 与矩阵 b 的左下三角元素相加 结果放在矩阵 c 的左下三 角元素 for i 2 to n 2013 年重庆市程序复习题 for j 1 to i 1 c i j b i j a i j endfor endfor 输出矩阵 c 的元素值 for i 1 to n for j 1 to n c i j endfor endfor return 三 字符串运算 1 编写求 1 到 1000 中含有数字 7 的所有数字之和 提示 利用 可以判断一个符号是否包含在另外一个符号中 set talk off Clear S 0 For i 1 to 1000 M STR i IF 7 M S S i Endif 2013 年重庆市程序复习题 Endfor S S cancel set talk on 2 假定输入的字符串中只包含字母和 号 请编写程序 将该字符串 中除尾部的 号之外 其余的 号全部删除 clear accept 请输入字符串 to a m len a 求字符串的字符长度 dime b m 定义数组 for i 1 to m 将字符串的每一个字符放入数组 b i substr a i 1 endfor j 0 字符串尾部 的个数 for i m to 1 step 1 统计字符串尾部 的个数 if b i j j 1 else exit endif endfor a chrtran a a a replicate j 2013 年重庆市程序复习题 a return 3 假定输入的字符串中只包含字母和 号 请编写程序 使字符串尾 部的 号不得多于 n 个 若多于 n 个 则删除多余的 号 若少于或等 于 n 个 则什么也不做 字符串中间和前面的 号不删除 clear accept 请输入字符串 to a input n to n m len a 求字符串的字符长度 dime b m 定义数组 for i 1 to m 将字符串的每一个字符放入数组 b i substr a i 1 endfor j 0 for i m to 1 step 1 统计字符串尾部 的个数 if b i j j 1 else exit endif endfor if j n k n 2013 年重庆市程序复习题 else k j endif c for i 1 to m j k c c b i endfor c Return 4 程序的功能是 将 s 所指字符串中 ASCII 值为偶数的字符删除 串 中剩余字符形成一个新串放在 t 所指的数组中 例如 若 s 所指字符串中的内容为 ABCDEFG12345 其中字符 B 的 ASCII 码值为偶数 字符 2 的 ASCII 码值为偶数 都 应当删除 其它依此类推 最后 t 所指的数组中的内容应是 ACEG135 clear accept 请输入字符串 to a m len a 求字符串的字符长度 dime b m 定义数组 for i 1 to m 将字符串的每一个字符放入数组 b i substr a i 1 endfor 2013 年重庆市程序复习题 c for i 1 to m if asc b i 2 0 c c b i endif endfor c return 5 编写一程序 程序功能为 删除用户输入字符串中所有指定字符 然后将剩余的字符串输出 例如 若字符串为 aboveacoveak 用户 指定删除字符 a 程序输出为 bovecovek set talk off clear accept 请输入字符串 to a accept 请输入要删除的字符 to b a chrtran a b a return set talk on 6 请编写一个程序 统计在 tt 所指字符串中 a 到 z 26 个小写字母各 自出现的次数 并依次放在 pp 所指数组中 例如 当输入字符串 abcdefgabcdeabc 后 程序的输出结果应该是 3 3 3 2 2 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2013 年重庆市程序复习题 set talk off clear accept 请输入字符串 to tt dime pp 26 for i asc a to asc z pp i asc a 1 occurs chr i tt endfor return set talk on 7 输入一个字串 要求分别统计出其中英文字母 a 空格 b 数字 c 和其它字符 d 的个数 set talk off Clear a 0 英文字母的个数 b 0 空格的个数 c 0 数字的个数 d 0 其他字符的个数 accept to zfc n len zfc dime x n for i 1 to n x i substr zfc i 1 2013 年重庆市程序复习题 endfor for i 1 to n do case case x i a and x i A and x i 0 and x i 0 and x 0 and a i 9 b b a i ELSE c c a i endif endfor ss c b S ss return 四 数的整除运算 1 编写一个程序 它的功能是 求出 1 到 m 之间 含 m 能被 7 或 11 整除的所有整数 并放在数组 a 中 通过 n 返回这些数的个数 例如 若传送给 m 的值为 50 则程序输出 11 14 21 22 28 33 35 42 44 49 clear input m to m n 0 for i 1 to m if i 7 0 or i 11 0 n n 1 endif endfor dime a n 2013 年重庆市程序复习题 j 1 for i 1 to m if i 7 0 or i 11 0 a j i j j 1 endif endfor 能被 7 或 11 整除的数有 for j 1 to n a j endfor 共有 alltrim str n 个数能被 7 或 11 整除 能被 7 或 11 整除的个数 n return 2 请编写程序 它的功能是 求出 1 到 1000 之间能被 7 或 11 整除 但不能同时被 7 和 11 整除的所有整数并将它们放在 a 所指的数组中 通过 n 返回这些数的个数 clear n 0 for i 1 to 1000 统计出满足条件的数据个数 n if i 7 0 or i 11 0 and not i 7 0 and i 11 0 n n 1 endif 2013 年重庆市程序复习题 endfor dime a n j 1 数组的下标 for i 1 to 1000 将满足条件的数据个数依次放入数组 if i 7 0 or i 11 0 and not i 7 0 and i 11 0 a j i j j 1 endif endfor for j 1 to n a j endfor n return 3 程序的功能是 将两个两位数的正整数 a b 合并形成一个整数 放在 c 中 合并的方式是 将 a 数的十位和个位数依次放在 c 数的个 位和百位上 b 数的十位和个位数依次放在 c 数的千位和十位上 例如 当 a 45 b 12 时 执行该程序后 c 1524 clear input a to a input b to b 2013 年重庆市程序复习题 x a 10 100 y int a 10 z b 10 10 k int b 10 1000 c x y z k c c return 4 编写程序 程序的功能是 求 s aa aa aaa aa a 此处 aa aa 表示 n 个 a a 和 n 的值在 1 至 9 之间 例如 a 3 n 6 则 以上表达式为 s 333333 33333 3333 333 33 3 其值是 296298 clear input a to a input n to n dime b n for i 1 to n b i val replicate alltrim str a i endfor s b n for i n 1 to 1 step 1 s s b i endfor S s return 2013 年重庆市程序复习题 5 编写程序 分别求出一个二维数组每列中最小元素 并依次放入 一个一维数组中 然后输出该一维数组 clear input n to n dime a n n b n for i 1 to n for j 1 to n input to a i j endfor endfor for j 1 to n b j a 1 j for i 1 to n if a i j c and a c b and b c a 2013 年重庆市程序复习题 if a b or a c or b c if a b and a c 能构成等边三角形 else 能构成等腰三角形 endif else 能构成普通三角形 endif else 不能构成三角形 endif return 9 编写程序 实现计算并输出 3 到 n 之间 含 3 和 n 所有素数的 平方根之和 例如 n 100 则输出 s 148 874270 注意 要求 n 的值大于 2 但不大于 100 clear input n to n s 0 for i 3 to n k int sqrt i for j 2 to k if i j 0 2013 年重庆市程序复习题 exit endif endfor if j k 1 s s sqrt i endif endfor S s return 10 编写程序 求 Fibonacci 数列中大于 t 的最小的一个数 其中 Fibonacci 数列 F n 的定义为 F 0 0 F 1 1 F n F n 1 F n 2 例如 当 t 1000 时 函数值 为 1597 set talk on clear input t to t a 0 b 1 c a b n 3 do while c500 exit endif next s s set talk on 已知一个数列的前 3 个数为 0 0 1 以后每个数为前 3 个数的和 编程序求此数列的第 36 个数 334745777 set talk off clear dime k 36 k 1 0 k 2 0 k 3 1 2013 年重庆市程序复习题 s 0 for m 4 to 36 k m k m 3 k m 2 k m 1 s k m endfor s s set talk on 编程序求出 2 4 8 16 32 这样的数之和 如果累加数大于 500 时 则程序终止并输出结果 510 set talk off clear s 0 for i 1 to 100 s s 2 i if s 500 exit endif endfor s s set talk on 已知 24 有 8 个正整数因子 即 1 2 3 4 6 8 12 24 而 24 正好被其 因子个数 8 整除 求 1 100 之间第 10 个能被其因子数目整除的正整 数 56 2013 年重庆市程序复习题 set talk off clear s 0 k 0 for i 1 to 100 m 0 for j 1 to i if i j 0 m m 1 endif next if i m 0 s s 1 k i if s 9 当它大于 9 时 k 已经是第十个数了 exit endif endif endfor k k set talk on 有一个分数序列 2 1 3 2 5 3 8 5 13 8 21 13 注 该数列从第二项 开始 其分子是前一项的分子与分母的和 而其分母是前一项的分子 2013 年重庆市程序复习题 求出这个序列前 24 项的和 要求 按四舍五入的方式精确到小数点 后第二位 39 13 set talk off clear s 0 k 0 m 2 n 1 for j 1 to 24 k m n s s k y m m m n n y endfor s round s 2 cancel set talk on 设某国今年的国民生产总值为 45600 亿元 若今后每年以 8 的增长 率增长 计算多少年后能实现国民生产总值翻两番 19 2008 clear s 0 dime f 1000 2013 年重庆市程序复习题 f 1 45600 f 2 49248 f 3 53187 84 q 2 从第二年开始计算年份 所以 f 1 不算 for n 4 to 1000 f n f n 1 1 08 s f n q q 1 if s 182400 exit endif endfor q 若某整数 N 的所有因子之和等于 N 的倍数 则 N 称为多因子完备数 如数 28 其因子之和 1 2 4 7 14 28 56 2 28 28 是多因子完备数 求 1 500 之间有多少个多因子完备数 5 set talk off clear s 0 for i 1 to 500 m 0 for j 1 to i if i j 0 2013 年重庆市程序复习题 m m j endif next if m i 0 s s 1 endif endfor s s set talk on 找满足以下条件 X 2 Y 2 Z 2 41 2 且 X Y Z 之值最大的三个正 整数 X Y Z 求 X Y Z 之值 71 set talk off clear s 0 for x 1 to 41 for y 1 to 41 for z 1 to 41 if x 2 y 2 z 2 41 2 k x y z if k s s k endif endif 2013 年重庆市程序复习题 endfor endfor endfor s s set talk on 水仙花数是一个三位正整数 它等于它的各位数字的立方之和 例如 153 1 3 5 3 3 3 所以 153 是水仙花数 试求所有的水仙花数之积 8547940170 set talk off clear s 1 小蔡提醒 特别注意若 s 0 则 s 乘任何数都会为 0 所以此时 s 1 for m 100 to 999 a int m 100 b int m 10 10 也可以是 b int m 100 10 c m 10 if a 3 b 3 c 3 m s s m endif endfor s s set talk on 2013 年重庆市程序复习题 一个 14 14 方阵 A i j 其每个元素的值为该元素下标的立方和 求出该 矩阵所有元素的累加和 注 i j 从 1 到 14 308700 set talk off clear s 0 for i 1 to 14 for j 1 to 14 s s i 3 j 3 endfor next s s set talk on 求 100 200 之间最大的有奇数个不同因子的整数 196 set talk off clear s 0 for i 100 to 200 m 0 for j 1 to i if i j 0 m m 1 endif 2013 年重庆市程序复习题 next if m 2 1 s i endif endfor s s set talk on 一个数如果恰好等于它的所有真因子之和 这个数就称为 完数 例 如 6 的真因子为 1 2 3 而 6 1 2 3 因此 6 是 完数 求 1000 以内的所有完数之和 530 set talk off clear s 0 for i 1 to 1000 m 0 for j 1 to i 2 if i j 0 m m j endif next if m i s s i endif 2013 年重庆市程序复习题 endfor s s set talk on 求数学式 1 1 2 1 3 1 4 1 5 1 6 1 99 1 100 的值 按四舍五入 方式精确到小数点后 4 位 0 6882 clear dime f 50 f 1 1 1 2 f 2 1 3 1 4 f 3 1 5 1 6 s 0 for n 1 to 50 f n 1 2 n 1 1 2 n s s f n endfor round s 4 求满足 A B 718368 使 A B 最小 且 A B A B 为正整数的 A 的值 672 set talk off clear s 100000 for a 1 to 10000 for b 1 to 10000 2013 年重庆市程序复习题 if a b 718368 and a b k a b if k s s k j a endif endif endfor endfor j j set talk on 147 计算 y 1 2 3 3 5 4 7 n 2 n 1 n 50 要求 按四舍五入 的方式精确到小数点后第二位 26 47 clear dime f 50 f 1 1 f 2 2 3 f 3 3 5 s 0 for n 1 to 50 f n n 2 n 1 s s f n endfor 2013 年重庆市程序复习题 round s 2 151 当 m 的值为 50 时 计算下列公式之值 t 1 1 2 2 1 3 3 1 m m 要求 按四舍五入的方式精确到小数点后第四位 0 3749 clear dime f 50 f 2 1 4 f 3 1 9 f 4 1 16 s 1 for n 2 to 50 f n 1 n n s s f n endfor round s 4 154 1 2 1 3 4 2 3 5 6 2 5 7 2k 2 2k 1 2k 1 按四舍五入的方式精确到小数点后第三位 20 488 clear dime f 20 f 1 4 3 f 2 16 15 f 3 36 35 s 0 for n 1 to 20 2013 年重庆市程序复习题 f n 2 n 2 2 n 1 2 n 1 s s f n endfor round s 3 155 求级数 1 1 2 1 2 3 1 N N 1 的和的近似值 直到级数 中有一项的值小于 1E 4 为止 要求 按四舍五入的方式精确到小数 点后第二位 0 99 clear s 0 for n 1 to 100000 k 1 n n 1 一定要记得分母是多项相乘时 分母要加括号 s s k if k 1 10000 exit endif endfor round s 2 157 已知 S1 1 S2 1 2 S3 1 2 4 S4 1 2 4 8 S5 1 2 4 8 16 编制一个程序求 S S1 S2 S3 S4 S5 S20 的值 2097130 clear s 0 2013 年重庆市程序复习题 q 0 for n 0 to 19 w 2 n q q w s s q endfor s 158 求 Y 1 1 2 1 3 1 4 1 2 n 前 30 项之和 要求 按四舍五 入的方式精确到小数点后第二位 0 68 clear dime f 15 f 1 1 2 f 2 1 12 f 3 1 30 s 0 for n 1 to 15 f n 1 2 n 1 1 2 n s s f n endfor round s 2 159 已知 S1 1 S2 1 3 S3 1 3 5 S4 1 3 5 7 S5 1 3 5 7 9 编制一个程序求 S S1 S2 S3 S4 S5 S20 的值 2870 2013 年重庆市程序复习题 clear dime f 20 f 1 1 f 2 4 f 3 9 s 14 for n 4 to 20 f n f n 1 2 n 1 s s f n endfor s 161 当 n 100 时 计算输出下列多项式的值 S 1 1 2 1 3 1 4 1 2 n 1 1 2 n 按四舍五入的方式精确到小数点后第三位 0 691 clear dime f 100 f 1 1 2 f 2 1 12 f 3 1 30 s 0 for n 1 to 100 f n 1 2 n 1 1 2 n s s f n 2013 年重庆市程序复习题 endfor round s 3 162 当 n 的值为 25 时 计算下列公式的值 s 1 1 1 1 2 1 3 1 n 要求 按四舍五入的方式精确到小数 点后第四位 2 7183 clear dime f 25 f 1 1 f 2 1 2 f 3 1 6 s 1 for n 1 to 25 p 1 for j 1 to n p p j f n 1 p endfor s s f n s 的初值在第一个 for 的前面 绝对不要进入第二个 for 循环 endfor round s 4 2013 年重庆市程序复习题 163 当 n 的值为 50 时 求 S 的值 S 1 1 1 2 1 1 2 3 1 1 2 3 N 要求 按四舍五入的方式精确到小数点后第四 位 1 9608 clear dime f 50 f 1 1 f 2 3 f 3 6 s 0 k 0 for n 1 to 50 k k n f n 1 k s s f n endfor round s 4 164 当 m 的值为 50 时 计算下列公式之值 t 1 1 2 2 1 3 2 1 m 2 按四舍五入的方式精确到小数点后第四位 1 6251 clear dime f 50 f 1 1 f 2 4 f 3 9 2013 年重庆市程序复习题 s 0 for n 1 to 50 f n 1 n 2 s s f n endfor round s 4 165 当 m 的值为 50 时 计算下列公式的值 T 1 1 2 1 3 1 4 1 m 要求 按四舍五入的方式精确到小数点后第四位 2 4992 clear dime f 49 f 1 2 f 2 3 f 3 4 s 1 for n 1 to 49 f n n 1 s s 1 f n endfor round s 4 172 一只猴子一天从山上摘来一袋桃子 从这天开始 它每天都要把 袋中的桃子平分为二堆 吃掉其中的一堆 然后再从剩下的桃中拿出 一个解谗 等到第 10 天 它发现袋中只有一只桃可吃啦 问猴子总 共摘了多少桃 1534 2013 年重庆市程序复习题 clear dime f 10 f 1 1 f 2 4 f 3 10 s 0 for n 4 to 10 f n 2 f n 1 2 s f n endfor s 178 利用格里高利公式 4 1 1 3 1 5 1 7 1 9 1 11 1 99 求 的值 要求 按四舍五入的方式精确到小数点后第二位 3 13 clear dime f 50 f 1 1 1 3 f 2 1 5 1 7 f 3 1 7 1 11 a 0 for n 1 to 50 f n 1 4 n 3 1 4 n 1 a a f n endfor 2013 年重庆市程序复习题 round 4 a 2 179 已知正整数 A B 假定 A B 满足 A B 5432 求 S A B 的最 小值 153 clear s 5432 for a 1 to 5432 for b 1 to 5432 if a b 5432 and a b k a b if kb and a b 60 and a b 60 3 0 s s 1 endif endfor endfor s s set talk on 2013 年重庆市程序复习题 CLEAR I 100 DO WHILE I 999 A INT I 100 B INT I A 100 10 C INT I 10 IF A 3 B 3 C 3 I I ENDIF I I 1 ENDDO 完数 clear FOR I 2 TO 100 S 0 FOR J 1 TO I 1 IF I J 0 S S J ENDIF ENDFOR 2013 年重庆市程序复习题 IF S I I ENDIF ENDFOR 素数 clear flag 1 for i 2 to 100 skip 1 for j 2 to i 2 skip 1 if i j 0 flag 0 endif endfor if flag 1 i a a 1 endif if a 10 0 a a 10 endif 2013 年重庆市程序复习题 flag 1 endfor 从键盘输入一个任意整数 判定其是否是素数 提示 源程序清单如下 输入一个任意整数 判定其是否是素数 CLEAR INPUT 请输入一个整数 TO N FOR I 2 TO N 1 IF N I 0 判定 N 是否被 I 整除 也可以用 MOD N I 0 EXIT ENDIF ENDFOR IF I N 如果 I 超过 N 1 说明 N 不能被 2 N 1 间所有数整除 N 是素数 ELSE N 不是素数 ENDIF 2013 年重庆市程序复习题 RETURN 给定两个正整数 编程求它们的最大公约数 分析 求最大公约数可用 辗转除法 例如 24 和 16 先将 24 作为被除数 16 为除数 相除后余数为 8 再将原来的除数 16 作 为下一次的被除数 将上一次得到的余数 8 作为下一次的除数 相除 后余数为 0 此时最后一次的除数 8 就是所求的最大公约数 1 打开程序编辑窗口 2 在程序编辑窗口输入程序代码 求最大公约数 CLEAR INPUT 输入第一个正整数 TO M INPUT 输入第二个正整数 TO N IF M N 较大的正整数作为被除数 否则要交换 T M 两个变量交换值要借用第 3 个变量 M N N T ENDIF R M N 求 M 与 N 的余数 并放入变量 R DO WHILE R0 M N 将原来的除数作为下一次的被除数 N R 上一次得到的余数作为下一次的除数 R M N 再次求两数的余数 2013 年重庆市程序复