算法与编程.pptVIP

算法与编程 神父和食人兽过河问题 三个神父和三只食人兽要过河，但只有一条小船，并且如果出现食人兽多于神父的数量，食人兽就会将神父吃掉。问聪明的你如何安排才能将神父安全带过河。 算法与编程 算法（algorithm）：解题问题的方法、步骤的精确描述。 常用算法描述方法：流程图 泡茶问题 要想泡茶喝，但当时的情况是：开水没有，烧水壶要洗，茶壶和茶杯要洗；火已经生好了，茶叶也有了。设计一种最佳算法来完成泡茶工作。 闰年问题 我们通常所说的一年为365天，其实是个约数，准确的数字应该是365.2422日。那么一年365天，就与实际一年相差了0.2422日，这样四年之后就比实际的一年少了1天。为了弥补这个差值，历法规定，4年设一闰。那么如何判断一年是否为闰年呢？ 提示： 1、能被4整除但不能被100整除 2、能被400整除 只要满足上述条件之一的，就是闰年 闰年问题（算法） 输入年份n 如果n能被4整除但不能被100整除，或者n能被400整除， 那么输出n是闰年 否则输出n不是闰年 闰年问题（程序实现） Sub command1_click() n=inputbox(“请输入要判断的年份”) If (n mod 4 =0 and n mod 1000) or (n mod 400=0 ) Then Msgbox(n “年是闰年”) Else Msgbox(n “年不是闰年”) End if End sub Vb编程语法 赋值语句： 变量=值 分支语句： If 条件 then 语句 Else 语句 End if vb编程语法 输入函数： 变量=inputbox(“字符提示”) 如：n=inputbox(“请输入年份”) 输出函数： Msgbox(变量 “字符”) 如：msgbox(n “年是闰年！”) * * 烧开水 泡茶喝 灌凉水 洗水壶 拿茶叶 洗茶杯 洗茶壶 闰年问题 开始 输入变量n的值 (n mod 4=0 and n mod 1000) Or (n mod 400=0) 结束 输出n是闰年！ Y 输出n不是闰年！ N 程序流程图 如： a=10 b=5 If ab then Msgbox(a) Else Msgbox(b) End if