实验4 顺序和分支结构程序设计

《实验4 顺序和分支结构程序设计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

实验4顺序和分支结构程序设计（一）实验目的要求1．掌握建立、编辑和调用程序文件的方法。2．掌握常用输入/输出命令（input、accept、wait、@语句、read语句）的使用方法。3．掌握单向分支、双向分支和多路分支程序设计的方法。（二）实验内容1．建立、编辑和调用程序文件。2．练习常用输入/输出命令：input、accept、wait、@语句、read语句。3．单向分支语句if…endif程序设计和双向分支语句if…else…endif程序设计。4．多路分支语句DoCase程序设计。（三）实验指导实验6-1用命令方式显示“员工”表中的全部数据，并逻辑删除第5条记录。具体操作步骤如下：⑴在“命令”窗口中输入并执行以下命令：use员工.dbfExclusiveBrowseLastDeleteRecord5⑵操作结果如图6-1所示。图6-1实验6-2用菜单方式显示“员工”表中的全部数据，并逻辑删除第5条记录。操作步骤如下：⑴在VisualFoxPro主菜单下，选择菜单“文件/打开”，进入“打开”窗口； ⑵在“打开”窗口中，选择“员工”表，按“打开”按钮，返回VisualFoxPro主菜单；⑶在VisualFoxPro主菜单下，选择菜单“显示”→“浏览”，进入表“浏览”窗口；⑷在表“浏览”窗口中，选择菜单“表”→“删除记录”，进入“删除”对话框；⑸在“删除”对话框的“作用范围”下拉框中，选择“Record5”，按“删除”按钮，返回表“浏览”窗口，表中的第5条记录被加上了删除标记。如图6-2所示。图6-2实验6-3用程序方式显示“员工”表中的全部数据，并逻辑删除第5条记录。操作步骤如下：⑴利用程序编辑工具创建一个程序文件“L10-3.prg”，内容如下：Use员工.dbfExclusiveBrowseLastDeleteRecord5BrowseLast⑵利用菜单方式或命令方式运行程序文件“L10-3.prg”。程序一旦执行，系统将会逐条地执行每一个操作命令，完成显示“员工”表中的全部数据，并逻辑删除第5条记录。实验6-4建立和编辑一个以“L10-4.prg”为名的程序文件，程序的功能是先显示“员工”表中的全部数据，再显示物业部员工的数据。程序文件的内容如下：use员工.dbfexclusivebrowselastlistallfor所属部门="物业部"方法一：在“命令”窗口中建立和编辑“L10-4.prg”程序文件的操作方法如下：（1）在命令窗口中，输入命令：ModifyCommandL10-4.prg进入程序文件编辑窗口，如图6-3所示： 图6-3（2）在“程序文件”编辑窗口中逐条输入程序命令行，然后单击关闭按钮，保存程序文件，结束程序文件建立和编辑的操作。如图6-4所示图6-4方法二：在“文件”菜单下建立和编辑程序文件的操作方法如下：（1）选择“文件”→“新建”命令，进入“新建”窗口。（2）在“新建”窗口中选择“程序”单选钮，再单击“新建文件”按钮，进入“程序文件”编辑窗口。如图6-5所示图6-5（3）在“程序文件”编辑窗口，逐条输入程序命令行，然后单击关闭按钮，保存程序文件，结束程序文件建立和编辑的操作。如图6-6所示 图6-6实验6-5设计一个程序，能够查找“员工”表中给定“姓名”的记录。具体操作步骤如下：（1）创建程序文件“L10-6.prg”，如图6-7所示：图6-7（2）运行程序，结果如下图所示：再次运行程序，结果如下图所示：实验6-6设计一个程序，能够分别浏览“房屋”表中不同分布区域的入住情况记录集。具体操作步骤如下：（1）创建程序文件“L10-7.prg”，内容如图6-8所示：图6-8 （2）运行3次程序，结果如下图所示：实验6-7修改“业主”表中的数据，把输入的房号的业主姓名改为“李红卫”。具体操作步骤如下：（1）创建程序文件“L10-11.prg”，内容如图6-9所示：图6-9（2）运行程序，结果如下图所示：图6-10实验6-8在“业主”表中查找姓名为“李卫红”的记录，如果找到，则把该记录加上删除标记，没有找到则提示信息“查无此人”。 具体操作步骤如下：（1）创建程序文件“L10-12.prg”，内容如图6-11所示：图6-11（2）运行程序，结果如下图所示：实验6-9在“员工”表中分别查找“所属部门”为物业部、保安部和财务部的记录集。具体操作步骤如下：（1）创建程序文件“L10-13-1.prg”，内容如图6-12所示：图6-12（2）运行程序，结果如下图所示：图6-13实验6-10分支语句程序设计：根据下列公式计算行李超重罚款G，其中行李重量T从键盘输入。T*1.2T<=5050*1.2+(T-50)*2.4T>50G=编程如下： *PR3_1.PRGSETTALKOFFINPUTTOTIFT<=50G=T*1.2ELSEG=50*1.2+(T-50)*2.4ENDIF?”行李费：”,GSETTALKON具体操作步骤如下：（1）在命令窗口输入命令modicommpr3_1,输入上述程序按ctr+w保存程序（2）在命令窗口输入命令dopr3_1运行程序。