子程序的应用(教案).docVIP

子程序的应用（教案） 湖南省桃江县第一中学 田 岱 教学目的：1、激发学生对编程的学习兴趣，并掌握使用QBASIC进行程序设计的基础方法。 2、让学生进一步理解并掌握子程序有关基础知识，并能解决实际问题，不断提高自己的编程水平。 教学重点：算法分析 教学难点：通过对子程序知识的学习来解决实际问题，并能正确编写程序。 教学媒体：CAI课件 教学工具：计算机 教学过程： 复习提问 建立子程序的命令格式？ （分无参子程序和有参子程序） 无参子程序格式： 有参子程序格式： SUB 子程序名 SUB 子程序名（形式参数） 语句组 语句组 END SUB END SUB 对于有参子程序中的形式参数与主程序中对应的实际参数的值是如何传递的？ 主程序在调用子程序时，实际参数将其初值传递给与之对应的形式参数， 如果形式参数的值发生了变化，那么与之对应的实际参数的值也发生变化。即形式参数的终值返还给与之对应的实际参数。也就是说形式参数与实际参数之间的值是相互传递的。（注：教材没有要求区分按值传递和地址传递） 调用子程序的命令格式是什么？ 无参子程序格式：CALL 子程序名 有参子程序格式：CALL 子程序名（实际参数） 应用举例（程序流程图由学生自己画出） 例1：要求在屏幕上显示如下菜单： 画圆 画三角形 画半圆 结束 并要求编写出具有实现上述功能的程序。 算法分析： 在设计这个程序时，需要编写画圆、三角形、半圆图像的3段程序，如果都写在同一模块中，程序会很长，结构不清晰，读起来也很费力。所以我们把它写成3个子程序，它们的功能分别是画圆、三角形、半圆的图像，这样，一个复杂的任务分解为几个简单的子程序，使得复杂的问题简单化。由于没有数据需要传递，故该程序为无参子程序。具体步骤如下： 显示出菜单 输入一个1至4之间的一个数字送入变量N 进行判断： 如果N=1，则调用画圆的子程序 如果N=2，则调用画三角形的子程序 如果N=3，则调用画半圆的子程序 重复执行步骤1至3，直到N=4程序结束 因为步骤1至3重复执行几次不能确定，是以条件N=4是否成立来决定的，所以这里使用的是：条件循环语句WHILE——WEND 具体程序如下： 主程序： Declare sub huayuan( ) Declare sub huashanjiaoxing( ) Declare sub huabanyuan( ) Cls N=1 While n4 Print tab(3);”1.huayuan” Print Print tab(3);”2.huashanjiaoxing” Print Print tab(3);”3.huabanyuan” Print Print tab(3);”4.end” Do Input “please select(1__4)”;n Loop until n=4 and n=1 If n=1 then call huayuan If n=2 then call huashanjiaoxing If n=3 then call huabanyuan Wend End 三个子程序如下： 子程序一： sub huayuan screen 12 circle (160,200),50,4 end sub 子程序二： sub huashanjiaoxing screen 12 line (20,80)-(120,160) line (120,160)-(320,480) line (320,480)-(20,80) end sub 子程序三： sub huabanyuan screen 12 circle (120,240),60,4,-1.57,4.71 end sub 例2：求3！+5！+8！的和。 算法分析： 这是一道求阶乘的算术题，虽然我们可以将求3！、5！、8！以子程序的形式编写出来，但这并不是我们所认为的最佳方法，而且比较呆板。既然都是求阶乘，它们有一个通项式即N!。我们只需编写一个求N!的子程序即可。这不仅减少我们的编程量，也大大地提高了编程效率。这里又由于不是求某个阶乘，而是求阶乘的和，涉及到数据的传递，因此子程序宜采用有参子程序来编写。本题中N的取值分别为3，5，8，故需要调用该子程序3次，即用FOR循环语句调用3次子程序。具体步骤如下： 编写出一个求N!的子程序 在主程序中实际参数用变量N,SM来对应子程序中的形