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

实验六 结构化程序设计

一、 实验目的

1. 掌握Visual FoxPro程序建立、修改、运行的方法。
2. 掌握结构化程序设计的基本思路和方法。
3. 掌握顺序结构、分支结构和循环结构的设计方法。
4. 掌握子程序调用和参数传递的设计方法。

二、 实验内容及操作步骤

1.从键盘输入一个姓名，在xsqk表中查询，显示该同学的记录信息（程序保存为：实验1.prg）。 （提示：用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. 输入圆的的半径，计算圆的周长和面积（程序保存为：实验2.prg）。
程序代码如下：
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
@ 2,10 say "半径为"+str(r)+"的圆的面积是"+str(s)
&&str()是转换函数
@ 3,10 say "半径为"+str(r)+"的圆的周长是"+str(l)
操作步骤同实验1。

3.从键盘接收一个数，判断该数是奇数还是偶数，如果是奇数就显示“此数是奇数”，如果是偶数就显示“此数是偶数”。（程序保存为：实验3.prg）。
程序代码如下：
clear
input "输入一个数:" to num
if num%2=0
?str(num)+"是偶数"
else
?str(num)+"是奇数"
Endif
或者
clea
input "输入一个数:" to num
if mod(num,2)!=0
@4,10 say "此数是奇数"
else
@4,50 say "此数是偶数"
Endif
操作步骤同实验1。

4.在xsqk表中，查询姓名为“刘静”的记录，如果找到把该记录打上删除标记，没有找到显示“查无此人！” （程序保存为：实验4.prg）。
程序代码如下：
use xsqk.dbf exclu
locate all for 姓名="刘静"
if .not. eof()
delete
else
?"查无此人！"
endif
use
操作步骤同实验1。

5.用Do…While循环结构：统计sxqk表中入学分数超过570分的人数（程序保存为：实验5.prg）。
写出程序代码:

6.用FOR循环结构：统计sxqk表中入学分数超过570分的人数（程序保存为：实验6.prg）
写出程序代码:

7.用Scran指针循环结构：统计sxqk表中入学分数超过570分的人数（程序保存为：实验7.prg）。
写出程序代码:

8.输入一个成绩，判断其所在档次，档次划分为：90分以上优秀，80～90分为良好，70～80分为中等，60～70为合格，60分以下为不合格。
写出程序代码:

9. 输出100以内能被3和7同时整除的自然数。
写出程序代码:

10.编写出程序，令计算机从0开始计数，每计一个数，便判断该数是否为偶数，若是偶数则接着计下一个数；若是奇数则将其累加，若累加和大于250，则计数结束，若累加和不大于250则继续计数。最后给出计数次数和累加和。
写出程序代码:

11.试用固定次数循环的嵌套格式编写一个打印九九乘法口诀表的程序。
写出程序代码: