析算法及程序实现高中教育精演示课件.pptVIP

大吉大利 打击到吗试试 大吉大利 打击到吗试试 大吉大利 打击到吗试试 大吉大利 打击到吗试试 大吉大利 打击到吗试试 大吉大利 打击到吗试试 大吉大利 打击到吗试试 大吉大利 打击到吗试试 大吉大利 打击到吗试试 大吉大利 打击到吗试试 大吉大利 打击到吗试试 大吉大利 打击到吗试试 大吉大利 打击到吗试试 解析算法 及程序实现 * 公布分析发财 解析算法概念引入 找出表示问题的前提条件与结果之间关系的数学表达式，并通过表达式的计算来实现问题求解。 * 公布分析发财 1、某书店出租图书的费用标准如下：借书一天，收费2元，借书超过一天的，超过部分按每天0.8元收取，最后按四舍五入折算成整数。写出其程序代码。（注：借书不到一天的，弹出“输入错误”对话框。） * 公布分析发财 Private Sub Command1_Click() Dim n As Integer Dim s As Integer n = Val(Text1.Text) If n 1 Then MsgBox 输入错误 ElseIf n = 1 Then s = 2 Else s = 2 + (n - 1) * 0.8) End If Text2.Text = Str(s) End Sub * 公布分析发财 2、一张 0.1毫米厚的纸张（假设其足够大，可以一直折叠），请问经过 次对折后它的厚度可以超过珠穆朗