实验4 function过程。
一。 目的和要求。
1)掌握function过程的定义和调用。
2)掌握变量的有效范围和静态存储。
3)掌握递归过程的定义和调用。
二。 内容和步骤。
与sub过程不同，function过程可返回一个值到调用过程，也可以放弃返回值。function过程要定义函数的数据类型，它在调用时的参数传递分为按地址和按值传递两种。
实验4-1】 编写求n！的function过程，并且求出1！+2！+…10!
private sub form_click()
dim sum as long
dim i as long
for i=1 to 10
sum=sum+factor(i)
nextend sub
private function factor(n as long) as long
dim i as long
factor=1
for i=1 to n
factor=factor*i
nextend function
实验4-2】 分别编写求两个数的最大公约数和最小公倍数的function过程，并编程实现任意两个整数的最大公约数和最小公倍数。
public function gys(m as integer,n as integer) as integer
dim ys,ys1,mx,mn
mx = mn =
ys = mx mod mn
do until ys = 0
ys1 = mn mod ys
mn = ys
if ys1 = 0 then gys = ys
ys = ys1
loopend function
实验4-3】折半查找法的递归实现。
算法：折半查找法可以在大量的数中查找某一个数，方法是对大量的数(放在数组中)先排序，每次与数组的中间值比较，每次比较使范围减半，从而迅速找到所需的元素。如果开始的数组长度为20，则第一次比较后查找范围为10个元素，第二次为5个元素，经过这样4次比较后就可以找到所需的元素。
折半查找法的定义具有递归性质，可以方便地用递归函数实现。折半查找法满足递归如下条件：每次将查找范围折半；递归的结束条件是找到该元素和找不到元素。
private sub form_load()
dim i as long,n as integer
n=19 for i = 1 to n
print fibonacci(i)
nextend sub
private function fibonacci(n as long)as long
if n = 1 then
fibonacci = 1
elseif n = 2 then
fibonacci = 1
elsefibonacci = fibonacci(n-1)+fibonacci(n-2)
end if
end function
随机过程实验
课程实验报告。课程名称 随机过程实验 实验项目名称 线性系统对随机过程的响应 专业班级 通信工程1301班 姓名王少丹。学号 201308030104 指导教师何松华。实验目的。通过本 实验了解正态白色噪声随机过程通过线性系统后相关函数以及功率谱的变化 培养计算机编程能力。2.实验要求。采用matl...
实验4 2windows高级操作
实验4 2 windows高级操作。实验目的和要求。1 掌握应用程序的安装和卸载。2 掌握磁盘清理和磁盘碎片整理工具的使用方法3 掌握文件 夹 的高级使用方法。实验内容。1.应用程序的安装和卸载。2.磁盘清理和磁盘碎片整理工具的使用方法3 文件的共享 查看方式 排序和搜索。一 基础题。要求 请同学们...
实验14存储过程与函数
实验目的与要求 1 熟练掌握存储过程的编写。2 熟练掌握函数的编写与使用。实验内容与步骤 存储过程 stored procedure 和函数是一组编译好存储在服务器上的完成特定功能t sql 是某数据库的对象。客户端应用程序可以通过指定存储过程或函数的名字并给出参数 如果该存储过程带有参数 来执行存...