实验六结构化程序设计.docxVIP

实验六结构(懐序设计 ［目的要求］ 1、 掌握程序文件的建立、修改与运行 2、 掌握程序文件中常用命令的运用 3、 掌握分支结构的程序设计 4、 掌握循坏结构的程序设计 ［基本内容］ 1、 程序文件的建立、修改与运行 2、 程序文件中常用命令 3、 分支结构的程序设计 4、 循坏结构的程序设计 ［实验步骤］ 在VFP命令窗口中输入如下命令，按冋车后，屏幕窗口出现命令执行结果。 ? ” 6+3= ,6+3 屏幕上显示 6+3= 9 ?? 4+5=〃，4+5 紧接上个命令执行结果的后面显示4+5= 9 @ 8,8 SAY，7+2? 在第8行8列的位置显示字符串7 + 2 = @ 12 SAY 7+2 在第8行12列的位置显示表达式结果9 ACCEPT，请输入学牛姓名「TOxm 在屏幕上出现的提示后血输入不加定界符的学牛 姓名 ?xm 显示所输入的学生姓名 USE Xsda 打开 Xsda.dbf 表 INPUT，请输入学牛姓名：’TO姓名 输入带定界符的学牛姓名，这里姓名为表的字 段变量 ?M-＞姓名 作为内存变量显示所输入的学生姓名 ?姓名 显示Xsda.dbf表中当前记录姓名字段的值 WAIT，请输入学牛姓名：’TO姓名 只能输入单字符，不能输入完整的学牛姓名 ?M-＞姓名 进入程序编辑窗口的两种方式： 命令方式。在命令窗口输入：MODIFY COMMAND progl 菜单方式。在菜单栏中选择“文件”菜单中的“新建”选项，选定文件类型为“程序”，单击 “新建文件”按钮，进入文件编辑窗口，如图6?1所示。 在程序编辑窗口输入如图6-1所示的程序，点击工具栏中“运行”按钮，显示如图6-2的执行结 果。 progl4） progl4）rg ? progl prg USE student IKIEX OM 姓名 TAG sxb ACCEPT谙输入学生姓名：TO姓名 SEEK加炭名 DISP ? sqrt（A学成续） RHURH JJ 昨搓名:豹 i Men 熾融否 IT 20M1T 女 04/10/83 1 云雨 583 0 2415 图6J程序编辑窗口 图6?2程序执行结果 3.在命令窗口输入命令：MODIFY COMMAND prog2,衣程序编辑窗口输入如图 6-3的程序代码，单击工具栏中“运行”按钮，得到如图6-4的程序运行结果。SET TEXTMERGE ON表示对文木合并分隔符屮的内容进行计算并输出计算结果。 QJU proo^.prg CLEAR STORE Today isTO tDate SET TEXTMERGE ON TEXT ?tDate? ?DATE)? The time is: ?TIME)? ENDTEXT jlLJ Today is： 09/26/04 The timm is： 11:05:29 图6-4 prog2.prg运行结果 图6-3 prog2.prg程序代码 4. Prog3.prg程序代码如图6?5所示，运行该程序，输入学号200408 Jn,得到如图6?6 所示的程序运行界面，可以对学生的有关字段内容进行修改。 二1QJ 凶 CLEAR SET TALK OFF USE student ACCEPT 请输入待查学生的学号：TO xh DDCA FOR 学号二xh IF EOFO RETURN ENDIF @4,5 SAY 学生学号：+xh 8 6,5 SAY 学生姓名：’GET姓名 8 8,5 SAY 学生性别:GET性别 @ 10,5 SAY 学生岀生日期：GET岀生日期 @ 12,5 SAY 是否少数民族否：GET少数民族否 @ 14,5 SAY，学生籍贯:GET籍贯 @ 16,5 SAY 入学成绩:GET入学成绩 READ USE SET TALK OH RETURB] 图6-5 prog3.prg程序代码 書输入得查学生的学号:200408 学生学号：200408 学生姓名：胡棋频 学生性别：男 学生出生日期：11/27/19( 是否少数民族否：T 学生籍贯： 入学成绩：569.0 图6-6 prog3.prg程序运行界而 5.输入圆的半径，计算面积、计算周长等。面向对象设计利用选项按钮选择运算实现 该功能。 INPUT “请输入圆半径:” TO R L=2*PI()*R S=PI()*R*R ?“圆周长二”,L ?”圆面积?,S 6.求一元二次方程ax2+bx+c=0的根。(对任意系数a,b,c) 求 axA2+bx+c=0 的根 INPUT °请输入二次项系数a:” TO a INPUT 请输入一次项系数b:“ TO b INPUT “请输入常数项c:” TO c IF a0 delta=bA2-4*a*c re=-b/2*a IF delta0 sb=SQRT(