程序设计练习(例题).doc

结构化程序的基本结构结构化程序的基本结构 一 顺序结构 按语句排列的先后顺序逐条执行语句 二 选择结构 选择结构只有一个入口和一个出口 但在结构内部根据条件有两条或者多条路径可供选择 1 二分支选择结构 IF ENDIF 语句 格式 IF ELSE ENDIF 功能 若条件为真 则执行语句序列 1 然后执行 ENDIF 的后继语句 若条件为假 则执 行语句序列 2 然后执行 ENDIF 的后继语句 2 多分支选择结构格式 DO CASE ENDCASE 语句 格式 DO CASE CASE CASE CASE OTHERWISE ENDCASE 功能 逐个检查条件 若条件为真则执行相应的语句序列 否则检查下一个条件 若条件 都不满足 则执行 OTHERWISE 的语句序列 然后执行 ENDCASE 的后继语句 3 循环结构 在结构的内部 重复执行某些语句序列 1 当型循环 DO WHILE ENDDO 语句 格式 DO WHILE LOOP EXIT ENDDO 功能 先判断循环条件 若为 T 则执行一遍循环语句 遇到循环终端句 ENDDO 时 转 向循环起始句 DO WHILE 重新判断循环条件 如此往复 直至循环条件为 F 结束循 环 执行 ENDDO 的后继语句 说明 在循环体中 若遇到跳出循环语句 EXIT 则无条件结束循环 执行 ENDDO 的后继 语句 若遇到短路语句 LOOP 则不执行本次循环余下语句 而返回循环起始语句 DO WHILE 重新判断下一次循环的条件 2 计数循环 FOR ENDFOR 语句 格式 FOR TO STEP ENDFOR NEXT 功能 执行时先将初值赋给循环变量 判断其是否超过终值 若是 则退出循环 否则 执行一遍循环体 遇到循环终端语句 ENDFOR 时 循环变量增加一个步长 然后返回循环 起始 FOR 语句 重新判断循环变量是否超过终值 如此反复 直至循环变量超过终值 则 结束循环 执行 ENDFOR 的后继语句 3 扫描循环 SCAN ENDSCAN 语句 格式 SCAN FOR WHILE ENDSCAN 功能 记录指针自动在当前表的指定范围内满足条件的记录中依次移动 对每一条记录执 行循环体中的语句 说明 该语句只对表文件操作 缺省子句 则默认 ALL 4 循环嵌套 当一个循环的循环体本身也是一个循环时就构成了循环嵌套 但不能交叉 外循环每走一 步 内循环要遍历循环变量所有的值 一 顺序结构 实例 设 2001 年我国的国民经济产值为一个单位 若每年增长 8 求 2010 年的产值 程序 clear n 2010 2001 v 1 1 0 08 n 2010 年产值为 v Return 示例 1 试在表文件中查看某学生的有关情况 L3 PRG SET TALK OFF CLEAR USE 学生表 DBF LOCATE FOR 姓名 林天力 DISPLAY USE SET TALK ON 示例 2 编程 根据输入的半径值 计算出相应的圆的周长 SET TALK OFF CLEAR INPUT 请输入圆的半径 TO R L 2 3 1416 R 10 10 SAY 圆的周长是 STR L 6 3 SET TALK ON 二 二分支选择结构 1 单向分支 实例 从键盘输入任意两个数 然后按从大到小顺序输出 程序 clear input X to X input X to y if X Y T X X Y Y T Endif X X Y Y 例 在 学生表 中查看 李尚清 的基本情况 SET TALK OFF CLEAR USE 学生表 LOCATE FOR 姓名 李尚清 IF FOUND DISP ENDIF USE SET TALK ON 2 双向分支 实例 编写一个程序 其功能是 输入职工号 在表文件 Zgjk2 dbf 中查找职工的记录 若 找到了 则将基本工资低于 1000 元的增加 50 元 否则增加 30 元 若没有找到 则显示 查无此人 程序 这是双向分支问题 且需要分支嵌套 clear use zgjk2 list accept 请输入职工号 to zgh locate for 职工号 zgh if found if 基本工资 0 X1 B SQRT D 2 A X2 B SQRT D 2 A 方程的两根是 STR X1 2 SPACE 4 STR X2 2 ELSE 方程无实根 ENDIF SET TALK ON RETURN 例 在表文件 分数 DBF 中查找学号为 99020203 的学生成绩 若其成绩满 60 分则显 示其学号 课程号和成绩 否则显示此人的学号 课程号并通知其补考 L6 PRG SET TALK OFF USE 分数 DBF CLEAR LOCATE FOR 学号 99020203 IF 成绩 60 学号 学号 课程号 课程号 成绩 STR 成绩 6 2 ELSE 学号为 学号 的学生应参加补考的课程号为 课程号 ENDIF USE SET TALK ON 三 多分支选择结构 实例 编写一个程序 其功能是 打开表文件 zgjk dbf 用户输入部门号 然后显示指定部 门的职工的信息 若输入的部门号不存在 则显示 无此部门 这是一个多路分支的问题 clear use zgjk input 输入部门号 家电为 1 服装为 2 文具为 3 to bmh do case case bmh 1 bm 家电 case bmh 2 bm 服装 case bmh 3 bm 文具 otherwise 无此部门 return endcase list for 部门 bm 例 根据键入 X 的值 计算下面分段函数的值 并显示结果 X2 4X 1 X 0 3X2 2X 1 0 X 10 10 X 10 Y 程序如下 SET TALK OFF CLEAR INPUT X TO X IF X 0 IF X 10 Y X X 1 ELSE Y 3 X X 2 X 1 ENDIF ELSE Y X X 4 X 1 ENDIF 分段函数值为 STR Y 10 2 SET TALK ON RETURN 例 用 DO CASE 语句修改上面计算分段函数的例子 SET TALK OFF CLEAR INPUT X TO X DO CASE CASE X0 AND X10 Y X X 1 ENDCASE 分段函数值为 STR Y 10 2 SET TALK ON RETURN 四 循环结构 1 do while enddo 循环 当型循环 死循环示例 X 1 S 0 DO WHILE X 1 S S X X X 1 ENDDO 例 编程求和 S 1 2 3 100 SET TALK OFF CLEAR STORE 0 TO K S DO WHILE k 100 S K S K K 1 ENDDO 累加和 S S SET TALK ON RETURN 在循环过程中各变量变化如下 S K S S K K K 1 0 1 S 0 1 K 1 1 0 1 2 S 0 1 2 K 2 1 0 1 2 3 S 0 1 2 3 K 3 1 0 1 2 3 99 100 S 0 1 2 3 99 100 K 100 1 例 编程求阶乘 20 1 2 3 20 Clear S 1 K 1 Do while K 90 A a 1 Case 成绩 80 B b 1 Case 成绩 70 C c 1 Case 成绩 60 D D 1 Otherwise E e 1 Endcase Skip Enddo 优的人数为 A 良的人数为 B 中的人数为 C 及格的人数为 D 不及格的人数为 E 例 计算连续自然数之和 并且显示和刚大于 1000 的最后一个自然数 STORE 0 TO AA BB DO WHILE AA250 EXIT OTHERWISE Y X Y ENDCASE ENDDO Y Y SET TALK ON RETURN 例 编写程序能根据键盘输入的姓名 从学生表中查找该生的信息 SET TALK OFF CLEAR ACCEPT 请输入姓名 TO XM USE 学生表 DO WHILE NOT EOF IF 姓名 XM DISP EXIT ELSE SKIP ENDIF ENDDO USE SET TALK ON 例 求连续 N 个不是 7 的倍数的自然数之和 当和是 101 的倍数时显示最后的自然数和它 们的和 STORE 0 TO AA BB 定义二个变量 用以保存累加值和累加数 DO WHILE T BB BB 1 IF MOD BB 7 0 判断 BB 是否为 7 的倍数 LOOP 如果 BB 是 7 的倍数则返回去将 BB 再加 1 ENDIF AA AA BB 将 BB 不是 7 的倍数的连续自然数累加求和 IF MOD AA 101 0 判断 AA 是否是 101 的倍数 EXIT 如果 AA 是 101 的倍数 则结束程序的循环 ENDIF ENDDO BB AA 屏幕显示结果为 207 和 18483 例 向学生表 dbf 表追加记录 直到学号的首字符为 Q 时结束追加 Clear Use 学生 Do while T Accept 输入学号 学号的首字符为 Q 则结束追加记录 to xh If upper xh Q Exit Accept 输入姓名 to xm Input 输入成绩 to cj Append blank Replace 学号 with xh 姓名 with xm 成绩 with cj Enddo Wait 记录追加结束 timeout 5 List 计数循环计数循环 例 从键盘输入 10 个数 编程找出其中的最大值和最小值 set talk off clear input 请从键盘输入一个数 to a store a to max min for I 2 to 10 input 请从键盘输入一个数 to a if maxa min a endif endfor 最大值为 max 最小值为 min set talk on return 例 求 1000 以内的 水仙花数 所谓 水仙花数 是指一个 3 位数 其各位数字的立 方和等于该数本身 例如 153 13 53 33 故 153 是水仙花数 方法一 Clear 打印 1000 以内的水仙花数 for x 100 to 999 x1 x 10 取出个位数 x2 int x 10 10 取出十位数 x3 int x 100 取出百位数 if x x1 3 x2 3 x3 3 x endif endfor 方法二 set talk off clea for I 1 to 9 for j 0 to 9 for k 0 to 9 if I 3 j 3 k 3 100 I 10 j k 100 I 10 j k endif endfor endfor endfor return 例 求出 0 300 之间能被 3 整除的数的和 SET TALK OFF I 1 S 0 DO WHILE I 300 IF mod I 3 0 S S I ENDIF I i 1 ENDDO S RETURN 例 求 1 到 100 中偶数的和 AA 0 FOR II 2 TO 100 STEP 2 AA AA II ENDFOR AA 屏幕显示为 2550 例 编程求和 S 1 2 3 100 SET TALK OFF CLEAR S 0 FOR N 1 TO 100 S S N ENDFOR S S SET TALK ON RETURN 扫描循环 例 逐条显示 STUDENT 表中男生的情况 USE STUDENT SCAN FOR 性别 男 DISP WAIT ENDSCAN USE 或者使用下列代码 USE STUDENT SCAN IF 性别 男 LOOP ENDIF DISP WAIT ENDSCAN USE 例 编程统计学生表中男女学生的人数 SET TALK OFF CLEAR m 0 累加变量的初值应设为 0 w 0 累加变量的初值应设为 0 USE 学生表 SCAN If 性别 男 m m 1 累加男学生人数 else w w 1 累加女学生人数 endif ENDSCAN 学生表中男学生的人数是 m 学生表中女学生的人数是 n USE SET TALK ON RETURN 例 编程统计学生表中男学生的人数 SET TALK OFF CLEAR m 0 累加变量的初值应设为 0 USE 学生表 SCAN FOR 性别 男 WHILE 性别 男 m m 1 ENDSCAN 学生表中男学生的人数是 m USE SET TALK ON RETURN 例 统计表文件 学生表 DBF 中各个班级的人数 L1 PRG SET TALK OFF STORE 0 TO A B CLEAR USE 学生表 DBF SCAN DO CASE CASE 班级 注会 A A 1 CASE 班级 金融二 B B 1 ENDCASE ENDSCAN 注会班的人数为 STR A 3 金融二的人数为 STR B 3 USE SET TALK ON 例 编程统计家电部门职工的基本工资总额 clear use zgjk gz 0 scan for 部门 家电 gz gz 基本工资 endscan 家电部门职工的基本工资总额为 gz 多重循环结构多重循环结构 循环嵌套循环嵌套 例 试用固定次数循环的嵌套格式编写一个打印九九乘法口诀表的程序 方法一 用 for endfor 语句打印九九乘法表 SET TALK OFF CLEAR FOR Y 1 TO 9 FOR X 1 TO y Z Y X STR Y 1 STR X 1 STR Z 2 ENDFOR ENDFOR SET TALK ON RETURN 方法二 用 do while enddo 语句打印九九乘法表 clear a 1 do while a 9 b 1 do while bn 若 m 不被所有的 I 整除 必有 I n 则 m 为素数 m endif endfor 例 假设有两个班级 试编程统计各个班级学生成绩的等级 Clear Do while T 外循环的条件为逻辑常量 T Store 0 to a b c d e 设置存放各等级人数的变量的初值为 0 Accept 请输入班级名称 03 企 1 或 03 企 2 to bj Use bj 等效于 use 03 企 1 或 03 企 2 Scan 扫描循环起始句 Do case 多分支选择起始句 Case 成绩 90 a a 1 Case 成绩 80 b b 1 Case 成绩 70 c c 1 Case 成绩 60 d d 1 otherwise e e 1 endcase endscan 优的人数为 A 良的人数为 B 中的人数为 C 及格的人数为 D 不及格的人数为 E wait 还要查询其他班级吗 Y N to YN if upper YN N exit 由于外循环的条件是逻辑常量 T 所以要用 exit 强行退出 endif enddo 例 编写程序打印如下的图形 SET TALK OFF CLEAR A 1 DO WHILE A 7 B 1 DO WHILE B 8 A B A SAY B B 1 ENDDO A A 1 ENDDO SET TALK ON RETURN 例 编程打印如下图形 SET TALK OFF CLEAR A 1 DO WHILE A 8 B 1 DO WHILE B 2 A 1 A 40 B A SAY B B 1 ENDDO A A 1 ENDDO SET TALK ON RETURN 例 编程求 1 2 3 10 Set talk off Clear S 0 For n 1 to 10 M 1 For i 1 to n 内层循环求 N M m i Endfor S s m 将 N 逐次加到 S 中 Endfor s ltrim str s Set talk on 模块化 过程结构 程序设计模块化 过程结构 程序设计 例 用过程编写一个求和与乘积的程序 AA PRG 调用过程 BB 过程 BB SET TALK OFF M 3 S 1 N 5 P 1 S M N DO BB P S N S S RETURN P P SET TALK ON RETURN 例 试编写一程序求解 W X Y Z 其中 X Y Z 的值均为一位正整数 主程序 过程 MAIN 1 PRG procedure sub 1 SET TALK OFF T 1 INPUT X TO X FOR I 1 TO N INPUT Y TO Y T T I INPUT Z TO Z ENDFOR N X RETURN DO SUB 1 A T N Y DO SUB 1 B T N Z DO SUB 1 W T A B W STR W 7 SET TALK ON 例 利用子程序调用技术求 A B C 的值 其中 A B C 为任意 3 个正整数 主程序 Set talk off Clear Store 0 to s t Input 请输入 A to X Do sub S s T Input 请输入 B to X Do sub S s T Input 请输入 C to X Do sub S s T A B C LTRIM str s Set talk on 子程序 sub prg T 1 For I 1 to X T T I Endfor Return 例 利用过程调用技术求 S A B C 的值 其中 A B C 为任意 3 个正整数 Set talk off Clear Store 0 to s t Input 请输入 A to X Do sub S s T Input 请输入 B to X Do sub S s T Input 请输入 C to X Do sub S s T S LTRIM str s Set talk on Procedure sub T 1 For I 1 to X T T I Endfor Return 例 子程序的嵌套调用 主程序 Set talk off Clear Do sub1 Return 子程序 sub1 prg 11111111 Do sub2 11111111 Do sub3 11111111 Return 子程序 sub2 prg 22222222 Return 子程序 sub3 prg 33333333 Return to master 程序运行结果如下 11111111 2222222 11111111 3333333 11111111 例 有一个名为 SCORE 的数据表 具有如下的字段 学号 C 5 姓名 C 8 政治 N 3 数学 N 3 外语 N 3 总分 N 3 平均分 N 6 2 编写一程序 分别求出政治课 数学课和外 语课的总分 主程序 CLASS PRG SET TALK OFF 计算单科总分的过程 JSZF PRG USE SCORE GO TOP KCM 政治 DO WHILE NOT EOF T 0 T T KCM DO JSZF SKIP T1 T ENDDO KCM 数学 RETURN T 0 DO JSZF T2 T KCM 外语 T 0 DO JSZF T3 T 政治课 数学课 外语课的总分分别是 T1 T2 T3 USE SET TALK ON 过程文件过程文件 例 建立一个求三角形 矩形和圆的面积的过程文件 过程文件也是 prg 文件 其建立与修改的方法与程序文件相同 过程 tringle 求三角形面积 proc tringle input 请输入三角形的高度 to sh input 请输入三角形的底长 to sd s sd sh 2 三角形的面积为 S return endproc 过程 rectangle 求矩形面积 proc rectangle input 请输入矩形的长 to a input 请输入矩形的宽 to b s a b 矩形的面积为 S return endproc 过程 circle 求圆的面积 proc circle input 请输入圆的半径 to r s 3 14 r r 圆的面积为 S return endproc 例 编写程序 调用过程文件中的过程 并显示结果 过程文件 PROC PRG PROCEDURE PROC1 I am from proc1 10 11 12 13 14 15 平方 100 121 144 169 196 225 RETURN PROCEDURE PROC2 I am from proc2 10 11 12 13 14 15 立方 1000 1331 1728 2179 2774 3375 DO PROC3 RETURN PROCEDURE PROC3 I am from proc3 RETURN 主程序 MAIN PRG CLEAR SET PROCEDURE TO PROC DO PROC1 DO PROC2 CLOSE PROCEDURE RETURN 例 试求 3 100 之间的所有素数并显示之 算法 每产生一个 M 的值则依次除以 3 到 M 的算术平方根之间的所有奇数 若均不 能被整除 则 M 即为素数 然后将其显示输出 否则 M 就不是素数 主程序 过程文件 MAIN 2 PRG SUB 2 PRG SET TALK OFF PROCEDURE JC SET PROCEDURE TO SUB 2 FOR M 3 TO 100 STEP 2 RETURN I 3 PROCEDURE QS N INT SQRT M FOR I 3 TO N STEP 2 DO QS IF INT M I M I ENDFOR RETURN SET PROCEDURE ENDIF ENDFOR M RETURN 内存变量作用域内存变量作用域 主程序 过程 MAIN 3 PRG SUB 3 PRG SET TALK OFF PUBLIC B C CLEAR B 2 PUBLIC A C 3 A 1 在过程中 A B C A B C DO SUB 3 RETURN 返回主程序 A B C A B C SET TALK ON 在过程中 A B C 1 2 3 返回主程序 A B C 1 2 3 例 在过程调用中局部变量的应用 主程序 MAIN 4 PRG SET TALK OFF A 1 B 2 主程序中 A A B B DO SUB 4 返主程序后 A A B B C C D D SET TALK ON 过程 SUB 4 PRG PRIVATE B PUBLIC C A 10 B 11 C 12 D 13 在过程中 A A B B C C D D RETURN 主程序中 A 1 B 2 在过程中 A 10 B 11 C 12 D 13 返主程序后 A 10 B 2 C 12 过程的带参调用过程的带参调用 例 利用带参调用方法计算梯形面积 主程序 MAIN 5 PRG SET TALK OFF INPUT 输入梯形上底边长 TO A INPUT 输入梯形下底边长 TO B INPUT 输入梯形的高 TO H STORE 0 TO S DO SUB 5 PRG WITH A B H S 所求梯形面积为 S SET TALK ON RETURN 过程 SUB 5 PRG PARAMETERS P Q T T P Q 2 RETURN 简单数据表的程序设计简单数据表的程序设计 1 在编辑窗口输入程序 保存并运行该程序 分析程序的结构 有一职工代码表 ZD BF 人事信息表 RS BF ZD BF RS BF 代码 职称 编号 姓名 性别 职称 基本工资 工龄工资 扣款 实发工资 013 助理工程师 1041 赵娟 女 013 113 00 13 00 25 70 015 技术工人 5101 骆艺 男 002 150 00 21 00 31 51 002 工程师 1030 沈峥 女 015 87 00 5 00 11 00 001 高工 4103 刘芳 女 001 180 00 25 00 45 60 5130 杨山 男 002 150 00 15 00 24 00 1025 刘柳 男 013 113 00 8 00 15 00 编一个程序 文件名 prog11 PRG 完成以下任务 计算发工资 实发工资 基本工资 工龄工资 扣款 并填入 RS DBF 中 统计各类职称的基本工资 工龄工资 扣款 实发工资总数 显示统计结果 其中统计表中 高工 工程师 助理工程师 技术工人 等职称名字必 须通过职工代码表得到 并以代码的索引顺序显示 其格式如下 基本工资 工龄工资 扣款 实发工资 高工 工程师 合计 clea clea all set talk off set safe off sele 1 use rs replace all 实发工资 with 基本工资 工龄工资 扣款 inde on 职称 tag zcdm total on 职称 to hz use hz inde on 职称 tag zcdm sele 2 use zd set rela to 代码 into hz inde on 代码 tag dm 按代码升序排列 基本工资 工龄工资 扣款 实发工资 scan 职称 hz 基本工资 hz 工龄工资 hz 扣款 hz 实发工资 endscan sum hz 基本工资 hz 工龄工资 hz 扣款 hz 实发工资 to jb gl kk sf 合计 jb gl kk sf clos all set talk on set safe on retu 多表程序设计多表程序设计 1 在编辑窗口输入程序 保存并运行该程序 分析程序的结构 某大学暑假举办各种培训班 有关部门对学员进行管理 每个学员要登记两张表 如 表 1 表 2 所示 说明 每个学员可以参加 1 个以上学习班 表 2 为按学员累计姓名住 宿情况 表 1 学费 DBF 表 2 住宿费 DBF 姓名 学习班名称 学费 姓名 每日宿费 天数 李璐 计算机 300 00 李璐 40 00 12 赵勇 英语 250 00 欧阳芳 55 00 10 欧阳芳 文秘 200 00 王静 35 00 20 王静 财会 250 00 刘欣 45 00 20 王静 文秘 200 00 赵勇 40 00 30 刘欣 计算机 300 00 周阳 55 00 10 赵勇 财会 250 00 李璐 英语 250 00 赵勇 计算机 300 00 周阳 英语 250 00 编写程序 文件名 prog17 1 prg 统计并输出每位学员各项明细费用及总费用 按 下列格式显示出来 学员费用情况单 姓名 学费 住宿费 总费用 李璐 550 00 480 00 1030 00 注 住宿费 每日宿费 天数 学费为该学员所上各学习班学费总和总费用 学费 住宿费 编写程序 文件名 prog17 2 prg 利用以上两个表 通过输入的学习班名称 查询 该学习班的每个学员的姓名 每日宿费 天数以及应缴的住宿费 每日宿费 天数 按下 列格式显示出来 例如下面是计算机学习班的情况 学习班学员住宿情况 学习班名称 计算机 姓名 每日宿费 天数 住宿费 李璐 40 00 12 480 00 刘欣 45 00 20 900 00 赵勇 40 00 30 1200 00 合计 参考程序 prog17 1 prg clea clea all set talk off set safe off sele 1 use 学费 inde on 姓名 tag xm total on 姓名 to hz sele 2 use hz inde on 姓名 tag xm sele 3 use 住宿费 set relation to 姓名 into hz 学员费用情况单 姓名 学费 住宿费 总费用 scan 姓名 hz 学费 每日宿费 天数 hz 学费 每日宿费 天数 ends clos all set talk on set safe on retu prog17 2 prg clea clea all set talk off set safe off sele 1 use 住宿费 alia zsf inde on 姓名 tag xm sele 2 use 学费 set rela to 姓名 into zsf acce 请输入学习班名称 to mc 学习班名称 mc 姓名 每日宿费 天数 住宿费 store 0 to x1 x2 x3 scan for 学习班名称 mc 姓名 zsf 每日宿费 zsf 天数 zsf 每日宿费 zsf 天数 ends sum zsf 每日宿费 zsf 天数 zsf 每日宿费 zsf 天数 to x1 x2 x3 for 学习班名称 mc 合计 str x1 6 2 alltrim str x2 str x3 7 2 clos all set talk on set safe on retu 2 在编辑窗口输入程序 保存并运行该程序 分析程序的结构 有两个教材管理的表文件如下 1 教材信息表 JCK DBF 编号 书名 编著者 出版社 单价 00101 计算机原理 扬山 天天出版社 23 80 05991 高等数学 李理 彩云出版社 17 00 00120 普通化学 浦云 科技出版社 10 80 00210 物理学 陈刘 科技出版社 16 50 0