VF数据库实验报告 结构化程序设计.docVIP

. .. 实验二 结构化程序设计 一、实验目的 1、掌握分支结构的程序设计方法。 2、掌握循环结构的程序设计方法，包括Do While、For、Scan 命令的使用。 3、掌握子程序结构的程序设计方法，包括子程序、过程、自定义函数的使用。 4、理解变量作用域的概念并能够应用。掌握程序文件的建立、编辑、运行的方法。 二、实验内容 1、分支结构程序设计与调试 = 1 \* GB2 ⑴、编写程序Prog1.Prg，其功能是根据输入的姓名和考试成绩显示相应的成绩等级。 2、循环结构程序设计与调试 = 1 \* GB2 ⑴、编写程序Prog2.Prg，从键盘输入十个数，然后找出其中的最大值和最小值。 = 2 \* GB2 ⑵、编写程序Prog3.Prg，找出100~999之间的所有“水仙花数”。所谓“水仙花 数”是指一个三位数，其各位数字的立方和等于该数本身（如153=13+53+33）。 = 3 \* GB2 ⑶、编写程序Prog4.Prg，输出3-100之间的素数。 CLEAR FOR m=3 TO 100 STEP 2 n = INT(SQRT(m)) FOR i = 3 TO n IF MOD(m,i) = 0 EXIT ENDIF ENDFOR IF i n ??m ENDIF ENDFOR = 4 \* GB2 ⑷、有一数列，前两个数是1、1，第三个数是前两个数之和，以后的每个数都是其前两个数之和，编写程序Prog5.Prg，，要求输出此数列的第30个数。 clear dime a(30) a(1)=1 a(2)=1 for i=3 to 30 a(i)=a(i-1)+a(i-2) endfor ?? a(30) = 5 \* GB2 ⑸、编写程序Prog6.Prg，计算T=1！+2！+…+10! = 6 \* GB2 ⑹、编写程序Prog7.Prg，求出任意一个二维数组中某个元素，此元素在所在行上最大，在所在列上最小。 unction andian() clear declare for i=1 to 10 for j=1 to 10 arr(i,j)=int(rand()*100) next next for i=1 to 10 for j=1 to 10 ??aar(i,j) next ? next ? for i=1 to 10 max_=arr(i,1) min_=1 for j=1 to 10 if max_arr(i,j) max_=arr(i,j) min_=j endif next if k10 ??arr(i,min_) endif next endfun 7、编写程序Prog8.Prg，统计Student表中的女生人数（提示：建立课本第104页中图3.12中的student表，包括学号、姓名、年龄、性别字段）。 3、模块定义和调用、参数传递 = 1 \* GB2 ⑴、执行以下操作： = 1 \* GB3 ①在命令窗口中输入Modify Command Prog9 = 2 \* GB3 ②在Prog9的编辑窗口中输入如下代码： SET UDFPARMS TO VALUE n=1 DO proc1 WITH n ? n+2 PROCEDURE proc1 PARAMETERS m FOR k=2 to 4 m=m+k ENDFOR RETURN = 3 \* GB3 ③在命令窗口输入do prog9命令后，程序输出的结果是多少。 = 2 \* GB2 ⑵、运行下面程序prog10.prg，比较按值传递和引用的区别。 CLEAR STORE 100 TO X1,X2 SET UDFPARMS TO VALUE DO P2 WITH X1,(X2) ? ‘第一次’,x1,x2 STORE 100 TO X1,X2 P2(x1,(x2)) ?’第二次’,x1,x2 SET UDFPARMS TO REFE DO P2 WITH X1,(X2) ?’第三次’,x1,x2 STORE 100 TO X1,X2 P2(x1,(x2)) ?’第四次’,x1,x2 * 过程p2 Proc p2 Para x1,x2 Store x1+1 to x1 S