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

实验六结构化程序设计 实验目的 掌握VisualFoxPro程序建立、修改、运行的方法。 掌握结构化程序设计的基本思路和方法。 掌握顺序结构、分支结构和循环结构的设计方法。 掌握子程序调用和参数传递的设计方法。 实验内容及操作步骤 1.从键盘输入一个姓名，在xsqk表中查询，显示该同学的记录信息（程序保存为：实验1.prg）。（提示：用locatfor语句定位） 程序代码如下： usexsqk.dbfexclu input姓名:toxm browallfor姓名=xm use 或者： usexsqk.dbfexclu accept姓名:toxm locafor姓名=xm ?学号,姓名,出生日期,性别,专业,入学分数 use 操作步骤： 选择“文件/新建/程序”，打开程序编辑窗口。 在程序编辑窗口输入上述程序代码。 选择“文件/保存”命令，保存文件名为“实验1.prg”。 在命令窗口，执行命令:DO实验1。 观察程序运行结果。 2.输入圆的的半径，计算圆的周长和面积（程序保存为：实验2.prg）。 程序代码如下： clear input输入圆的的半径:tor L=2*3.14*r S=3.14*r^2 ?圆的周长:,L ?圆的面积:,s 或者： clear input输入圆的的半径:tor L=2*3.14*r S=3.14*r^2 ?半径为+str(r)+的圆的面积是+str(s) str()是转换函数 ?半径为+str(r)+的圆的周长是+str(l) 操作步骤同实验1。 3.从键盘接收一个数，判断该数是奇数还是偶数，如果是奇数就显示“此数是奇数”，如果是偶数就显示“此数是偶数”。（程序保存为：实验3.prg）。 程序代码如下： clear input输入一个数:tonum ifnum%2=0 ?str(num)+是偶数 else ?str(num)+是奇数 Endif 或者 clea input输入一个数:tonum ifmod(num,2)!=0 ?此数是奇数 else ?此数是偶数 Endif操作步骤同实验1。 4.在xsqk表中，查询姓名为“刘静”的记录，如果找到把该记录打上删除标记，没有找到显示“查无此人！”（程序保存为：实验4.prg）。 程序代码如下： usexsqk.dbfexclu locateallfor姓名=刘静 if.not.eof() delete else ?查无此人！ endif use 操作步骤同实验1。 5.输入一个年号，判断是否为闰年（判断闰年的条件是：年份能被400整除的，或年份能被4整除但不能被100整除的是闰年）。 写出程序代码: clear input输入一个年号:toyear docase casemod(year,400)!=0 ?此年是闰年 otherwise mod(year,4)!=0andmod(year,100)!0 ?此年是闰年 endcase 6.百货公司为了促销，采用购物打折的优惠方法。若每位顾客一次性购物： --1000元以上者，九五折优惠 --2000元以上者，九折优惠 --3000元以上者，八五折优惠 --5000元以上者，八折优惠 编写程序，输入购物款数，计算并输出优惠价。 写出程序代码: Clear Input“购物款:”togwk Docase Casegwk=1000 yhj=gwk*0.95 Casegwk=2000 yhj=gwk*0.9 Casegwk=3000 yhj=gwk*0.85 otherwisegwk=5000 yhj=gwk*0.8 endcase ?优惠价:,yhj 7.输入一个成绩，判断其所在档次，档次划分为：90分以上优秀，80～90分为良好，70～80分为中等，60～70为合格，60分以下为不合格。 写出程序代码: Input“一个成绩:”ton Docase Casen90 ?”优秀” Casen80andn=90 ?“良好” Casen70andn=80 ?”中等” Casen60andn=70 ?”合格” Casen60 ?”不合格” Endcase 8.用Do…While循环结构：统计sxqk表中入学分数超过570分的人数。 写出程序代码: Usexsqk x=0 Dowhilenoteof() If入学分数570 X=x+1 Endif skip enddo ?入学分数超过570的人数：,x 9.用FOR循环结构：统计sxqk表中入学分数超过570分的人数。 写出程序代码: usexsqk x=0 countton gotop fori=1ton if入学分数570 x=x+1 endif skip endfor ?入学分数超过570的人数:,x 10.用Scran指针循环结构：统计sxq