实验六 结构化程序设计.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整除的是闰年）。 写出程序代码: 6.百货公司为了促销，采用购物打折的优惠方法。若每位顾客一次性购物： --1000元以上者，九五折优惠 --2000元以上者，九折优惠 --3000元以上者，八五折优惠 --5000元以上者，八折优惠 编写程序，输入购物款数，计算并输出优惠价。 写出程序代码: 7.输入一个成绩，判断其所在档次，档次划分为：90分以上优秀，80～90分为良好，70～80分为中等，60～70为合格，60分以下为不合格。 写出程序代码: 8.用Do…While循环结构：统计sxqk表中入学分数超过570分的人数。 写出程序代码: 9.用FOR循环结构：统计sxqk表中入学分数超过570分的人数。 写出程序代码: 10.用Scran指针循环结构：统计sxqk表中入学分数超过570分的人数。 写出程序代码: 11. 输出100以内能被3和7同时整除的自然数。 写出程序代码: 12.编写出程序，令计算机从0开始计数，每计一个数，便判断该数是否为偶数，若是偶数则接着计下一个数；若是奇数则将其累加，若累加和大于250，则计数结束，若累加和不大于250则继续计数。最后给出计数次数和累加和。 写出程序代码: 13.试用固定次数循环的嵌套格式编写一个打印九九乘法口诀表的程序。 写出程序代码: 14.用子程序调用的方法求解圆的周长和面积，主程序满足能多次调用子程序求解。