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

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

1、实验六结构化程序设计一、实验目的1.掌握VisualFoxPro程序建立、修改、运行的方法。2.掌握结构化程序设计的基本思路和方法。3.掌握顺序结构、分支结构和循环结构的设计方法。4.掌握子程序调用和参数传递的设计方法。二、实验内容及操作步骤1.从键盘输入一个姓名，在xsqk表中查询，显示该同学的记录信息（程序保存为：实验1.prg）。（提示：用locatfor语句定位）程序代码如下：usexsqk.dbfexcluinput"姓名:"toxmbrowallfor姓名=xmuse或者：usexsqk.dbfexcluaccept"姓名:"toxmlocafor姓名=

2、xm?学号,姓名,出生日期,性别,专业,入学分数use操作步骤：①选择“文件/新建/程序”，打开程序编辑窗口。②在程序编辑窗口输入上述程序代码。③选择“文件/保存”命令，保存文件名为“实验1.prg”。④在命令窗口，执行命令:DO实验1。⑤观察程序运行结果。2.输入圆的的半径，计算圆的周长和面积（程序保存为：实验2.prg）。程序代码如下：clearinput"输入圆的的半径:"torL=2*3.14*rS=3.14*r^2?"圆的周长:",L?"圆的面积:",s或者：clearinput"输入圆的的半径:"torL=2*3.14*rS=3.14*r^2?"半径为"

3、+str(r)+"的圆的面积是"+str(s)&&str()是转换函数?"半径为"+str(r)+"的圆的周长是"+str(l)操作步骤同实验1。3.从键盘接收一个数，判断该数是奇数还是偶数，如果是奇数就显示“此数是奇数”，如果是偶数就显示“此数是偶数”。（程序保存为：实验3.prg）。程序代码如下：clearinput"输入一个数:"tonumifnum%2=0?str(num)+"是偶数"else?str(num)+"是奇数"Endif或者cleainput"输入一个数:"tonumifmod(num,2)!=0?"此数是奇数"else?"此数是偶数"Endif

4、操作步骤同实验1。4.在xsqk表中，查询姓名为“刘静”的记录，如果找到把该记录打上删除标记，没有找到显示“查无此人！”（程序保存为：实验4.prg）。程序代码如下：usexsqk.dbfexclulocateallfor姓名="刘静"if.not.eof()deleteelse?"查无此人！"endifuse操作步骤同实验1。5.输入一个年号，判断是否为闰年（判断闰年的条件是：年份能被400整除的，或年份能被4整除但不能被100整除的是闰年）。写出程序代码:clearinput"输入一个年号:"toyeardocasecasemod(year,400)!=0?"此

5、年是闰年"otherwisemod(year,4)!=0andmod(year,100)!<>0?"此年是闰年"endcase6.百货公司为了促销，采用购物打折的优惠方法。若每位顾客一次性购物：--1000元以上者，九五折优惠--2000元以上者，九折优惠--3000元以上者，八五折优惠--5000元以上者，八折优惠编写程序，输入购物款数，计算并输出优惠价。写出程序代码:ClearInput“购物款:”togwkDocaseCasegwk<=1000yhj=gwk*0.95Casegwk<=2000yhj=gwk*0.9Casegwk<=3000yhj=gwk*0.

6、85otherwisegwk<=5000yhj=gwk*0.8endcase?"优惠价:",yhj7.输入一个成绩，判断其所在档次，档次划分为：90分以上优秀，80～90分为良好，70～80分为中等，60～70为合格，60分以下为不合格。写出程序代码:Input“一个成绩:”tonDocaseCasen>90?”优秀”Casen>80andn<=90?“良好”Casen>70andn<=80?”中等”Casen>60andn<=70?”合格”Casen<60?”不合格”Endcase8.用Do…While循环结构：统计sxqk表中入学分数超过570分的人数。写出程序

7、代码:Usexsqkx=0Dowhilenoteof()If入学分数>570X=x+1Endifskipenddo?"入学分数超过570的人数：",x9.用FOR循环结构：统计sxqk表中入学分数超过570分的人数。写出程序代码:usexsqkx=0counttongotopfori=1tonif入学分数>570x=x+1endifskipendfor?"入学分数超过570的人数:",x10.用Scran指针循环结构：统计sxqk表中入学分数超过570分的人数。写出程序代码:UsesxqkX=0GotopScanfor入学分数>570X=x+1Endscan?”