算法的实现学案.docVIP

算法的实现学案 一、温故知新 例 1 交换两个杯子的饮料（一杯是咖啡、一杯是果汁）： 分析：借助第三个杯子C、设 A、B分别为咖啡和果汁 步骤一 ：取第三个杯子将A中的咖啡倒入C中 步骤二：将B中的果汁倒入A中 步骤三：将C中咖啡倒入B中 （1）算法流程图 （2）算法细化： （3） （4）保存程序文件： 提示：一个VB应用程序由多个文件组成，扩展名为.frm的为窗体文件，扩展名为 .frx 的为外部数据文件，扩展名为 .vbp 的为工程文件；窗体文件包含了在窗体中描述的所有对象的外观、行为的程序代码以及描述事件过程的程序代码等；外部文件包含了窗体中控件所调用的外部数据；工程文件就是与该工程有关的所有文件和对象的清单。 在保存时，窗体和工程文件需要分别加以保存，为保证应用程序的完整性，建议将一个程序 的所有文件都保存在同一文件中。由于我们的程序特别简单，同学们也可以只保存窗体文件。 保存源文件方法为：文件/保存FORM1 及 文件/保存工程 工程的编译： 文件/生成工程1.EXE，以后此工程可以脱离VB 环境直接在Windows系统下运行,类似扫雷程序。 二、熟能生巧 例2：比较两个数大小并输出较大的值 三、实践体验 例3、搭 TAXI ,起步价8元(距离=4KM),超过4KM,超过部分按2元/KM计,输入行驶距离,输出应付车费 请同学们把自己上节课绘制的流程图翻译成程序(VB中编出该程序) 思考：MSGBOX(P=8 ) 会输出什么结果? 参考流程 四、提高拓展（选做） 例4、输入A、B、C 三个数（各不相同），输出最大数，请同学们调试该程序 两次先后判断，对应的if怎么写?同学们可以对照流程图将语句补充完整 方案1： 思考：两次并列的判断，对应的if怎么写?同学们可以对照流程图将语句补充完整 方案2： 思考：两次嵌套的判断，对应的if怎么写？ 方案3： 思考：三次并列的判断，对应的if怎么写？ 五、挑战，请同学们完成流程图设计，绘制在纸上上交，程序编译成EXE文件上传到 输入三条边，判断能否构成三角形？能的话，是等边、等腰、普通 中的哪一种？ 输入输出样例1： 输入 3、3、3 输出 等边三角形 输入输出样例2： 输入3、3、4 输出 等腰 输入输出样例3： 输入1、1、2 输出 不能构成三角形 。。。。。 请画出流程图并用程序实现. 参考流程：（能自行设计流程图的同学情自行设计，设计有困难的同学请参照下面的流程图，在问号处填入相应内容） 参考程序 计算机语言中表示复杂的条件：(用 not and or 把不等式连结起来) （1）三角形的条件：任意两边之和大于第三边 表达式为：_____________________ （2）等腰的条件：任意两边之和相等 达式为：_____________________ （3）等边的条件：三边相等 达式为：___a=b and a=c__________________ IF 能构成三角形 THEN IF 等边 THEN MSGBOX(“等边”) ELSE 判断等腰还是普通三角形 ENDIF ELSE MSGBOX (“不能构成三角形”) ENDIF 结束 将C中咖啡倒入B中 将B中的果汁倒入A中 取第三个杯子将A中的咖啡倒入C中 开始 开始 结束 （c）检查没有错误后运行！ 输出A B内容 输入A B的内容 请同学们到VB中调试 参考程序： A=Inputbox(“A=”) B=Inputbox(“B=”) rem 输入语句中“ ”中内容起何作用? rem 引号的输入是全角还是半角状态? C=A rem 赋值语句是从右到左单向的 A=B:rem 左边只能是参数变量 B=C:rem 右边可以是变量或表达式等 MSGBOX（“A=”+A) MSGBOX (“B=”+B) rem 思考如何输出提示信息 结束 将C中咖啡倒入B中 将B中的果汁倒入A中 取第三个杯子将A中的咖啡倒入C中 开始 （a）打开VB后，双击灰色的FORM1，进入代码窗口 在VB中调试参考方法：（同学们能找到Microsoft Visual Basic 6.0中文版程序吗？） （b） 在双击后出现的CODE代码窗口中（请注意区分开始和结束标记），将参考代码复制到开始和结束的语句之间之间。 参考程序： A=Inputbox(“A”) B=Inputbox(“B”) IF AB THEN MAX=A ELSE MAX=B