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

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