《实验指导第5单元.docVIP

第5单元 结构化程序设计基础 5．1 分支程序设计 1． 实验目的 学习设计和调试分支结构程序，掌握各种分支语句的结构、用途、程序设计方法和执行过程，了解结构化程序设计的基本思想。 2． 实验要求 利用分支语句编写程序EXP5_1.PRG。程序运行时，输入数据表文件主名，若文件不存在，则弹出“默认目录下没有文件，请重新运行程序！”对话框；若默认目录下存在表文件，则根据选择的功能（1.显示记录 2.修改记录 3.删除记录）进行对应的操作。 3． 注意事项 （1）各种结构的语句结构Modify Command EXP5_1 建立程序，并进入程序编辑器 （2）在程序编辑器中输入如下程序： Clear Set Default To E:\ 设置文件默认目录 Accept 输入数据表文件主名： To X If Not File(X+.DBF) 判断表文件是否存在 Messagebox(默认目录中没有X..DBF文件！) 弹出提示框 Cancel 表文件不存在，退出程序 Else Use X 表文件存在，打开表 Wait 请选择：1.显示记录 2.修改记录 3.删除记录 To Y If Y$123 Do Case Case Y=1 Display All 有暂停地输出表中全部记录 Case Y=2 Browse 进入数据浏览窗口，可以修改记录 Case Y=3 Input 输入要逻辑删除的记录号： To Z If Type(Z)=N 判断Z是否为数值型 If ZRecCount() Or Z=0 判断要删除的记录号是否超出范围 Messagebox(记录号越界，退出程序！) Cancel Else Delete Record Z 逻辑删除记录 Pack 物理删除记录 EndIf Else Messagebox(应该输入数值型数据！) EndIf EndCase Else Messagebox(没有所选的功能！) EndIf Use EndIf （3）保存程序：单击“文件”菜单→“保存”。 （4）运行程序：单击“程序”菜单→“运行”,选择文件EXP5_1.PRG, 单击“运行”按钮。循环程序各种循环结构的首尾语句必须成对使用。Modify Command EXP5_2 （2）在程序编辑器中输入如下程序： Set Talk Off Clear Dimension B(32) B数组中每个元素存放1位二进制数，最多32位 Input 输入十进制数： To S If Type(S)=N AND S0 And S=2^32 - 1 判断S是否为数值型或超出范围 S=Int(S) N=0 N存放二进制数的位数 Do While S0 S的值（整数商）大于0时进行转换 N=N+1 B(N)=S%2 余数（第N位二进制数）保存在B(N)中 S=Int(S/2) 整数商存于S Enddo ? 二进制数是： For M=N To 1 Step -1 B(1)最低位，B(N)为最高位 ?? Str(B(M),1) 输出二进制数的各位 Endfor Else Messagebox(非数值型或数据超范围，不能转换成二进制数据！) EndIf （3）保存程序：单击“文件”菜单→“保存”。 （4）在命令窗口中执行程序：Do EXP5_2。 5． 思 考 题 （1）DO While和For循环结构各适合什么场合 ？两种结构如何进行转换 ？ （2）如何修改程序使之能对负数进行转换 ？如何修改程序使之能将十进制数转换成任意R进制数 ？ 5．3 嵌套程序结构Modify Command EXP5_3 （2）在程序编辑器中输入如下程序： Set Talk Off Clear Input 请输入数据个数： To N 输入要排序数的个数 If N0 Or N65000 一个数组中可以含1～65000个元素 M