《过程和子过程的定义和调用方法》由会员分享，可在线阅读，更多相关《过程和子过程的定义和调用方法（8页珍藏版）》请在金锄头文库上搜索。
1、实习六过程和子过程的定义和调用方法 地点：计算机实验室。每名学生一台计算机。 实习时间：90 分钟 指导教师：任课教师，实习指导教师 学生分组：每三人为一组。每名教师负责七个组的指导 实习目的：1、掌握自定义函数过程和子过程的定义和调用方法.2、掌握形参和实参的对应关系.3、掌握值传递和地址的传递方式.4、掌握变量、函娄和过程的作用域.5、掌握递归概念和使用方法.熟悉程序设计中的常用算法.实验6.1编一子过程ProcMin,求一维数组a中的最不值，子过程的形参自己确定. 主调程序随机产生10个-300-400之间的整数，调用ProcMin子过程，显示 最小值.实验 6.2 编一函数 Max(a
2、( ),求一维数组 a 中的最大值.主调程序随机产生 10 个 100200 之间的数,调用 Max 函数,显示最大值.实验6.3编一个函数过程MySin(x)，求MySi n(x)=fx 3x5+ - 3!5!x7+ 7!当第n项的精度小于10-5时结束计算,x为弧度主要程序同时调用MySin和内部函数Sin,进行验证.【提示】关键是找部分级数和的通项,通项表示如下:T =-1 x T x x x x/(i +1) x (i + 2)i = 1,3,5,7.i+2i实验6.4编一个函数过程HtoD(H),将十六进制字符串H转换成十进制数主调程序调用HorD函数，再调用内部函数Hex(numb
3、er)进行逆向验证.实验6.5参阅教篇例6.2,编一个子过程DeleStr(s1,s2),将字符串si中出现s2子字 符串删去，结果还是存放在si中.例如:s1=”12345678AAABBDFG12345”s2=”234”结果:s1=”15678AAABBDFG15”【提示】解决此题的方法有以下要点:在si字符串中找s2的子字符串,可利用InStr()函数，要考虑到si中可能存在多个或不存在s2字符串，用Do While Instr(si,s2)0循环结构来实现.若在si中找到s2的子字符串，首先要确定si字符串的长度，因si字符串在进行 多次删除时，长度在变化然后通过Left()、Mid(
4、)或Rigth()函数的调用达到删除 si 中存在的 s2 字符串.实验6.6编一函数过程MaxLength(s),在已知的字符串s中，找出最长的单词假定字符s内只含有字母和空格，空格发隔不同的单词.程序运行界面如图2.6.i所示邙罠事圄5i,i 字符昂Idin m-uti ti i |星氏閑单词|山3輕亍晞毎 【提示】(1) 程序中有到当前单词当前单词长度最长单词最长单词长度等变量.(2) 首先求出输入的字符串长度,然后从字符串中分离出单词,即对每个字符判断:若不为 空格,将每个字符连接到当前单词的字符串变量,当前单词长度计数器加 1;若为空格, 表示一个单词结束,将每个字符连接到当前单词长
5、度与最长单词长度比较 ,若长,当前 单词替代最长单词.当前单词置空,当前单词计数器清除为 0.实验6.7编一函数过程lsH(n),对于已知正整数n判断该数是否是回文数，函数的返 回值类型为布尔型主调程序每输入一个数，调用IsH函数过程，然后在图形 框显示输入的数，对于是回文数显示一个”见图2.6.2。34543*aBTBTeg口出显示箱果回空敢图2.6.2实验6.7回文数程序运行界面【提示】(1) 所谓回文数是指顺读与倒读数字相同，即指最高位与最低们相同，次高位与次低位相同，依次类推当只有一位数时，也认为是回文数(2) 回文数的求法，只要对输入的数(按字符串类型处理)，利用MID函数从两边往中
6、间比较，若不相同，就不是回文数实验6.8编一函数过程IsZ(n),对于已知正整数n，判断该数是否是质数，函数的返 回值类型为布尔型方调程序每输入一个数，调用I sZ函数过程，然后在图形框显示 输入的数，对于是质数显示一个“，界面见上题.实验6.9编一函数过程，用矩形法求定积数Jb f(x)dx 矩形法的第i块小面积的a公式为： s =h*f( x )iih为小面积 的宽度主调程序调用函数过程，求J5Hdx的定积分.2 ln x实验6.10用迭代法编一个函数过程f(a)，求x= 3口求立方根 的迭代公式为：x =(2/3) x + a/3 x2i+1ii精度为s=10-5 主调程序调用该函数过程
7、，a的值分别为3、9和12, 显示计算结果同时，利用幂运算符“八”检验函数过程的正确性迭代法求 高次方程根的算法见教学篇例 6.18.实验6.11用递归方法,编写求Cn的函数.mm-1n=0n=1m2对于Cn有如下递归形式 :Cn = Cn + Cn-1m mm -1C 0 = 1m递归条件: C1 = mmC n = C m -nmm实验6.12类似第10题，将迭代法改为递归法编函数过程f2(x0,a),求x = va，求立 方根的迭代公式为:2ax = x +i+13 i 3x 2i精度为 = 10-5 .主调程序分别调用函数过程,a的值分别为3、9和12,显示计算结果.同时，利用运算 符“a ”检验数时程的正确性.【提示】递归法求根时，形参要有两个,xO为每次递归调用时的初值，假定x0的初值为a.
