析算法及程序实现高中教育精.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毫米厚的纸张（假设其足够大，可以一直折叠），请问经过 次对折后它的厚度可以超过珠穆朗玛峰（8848米）？ * 公布分析发财 Private Sub Form_Click() Dim c As Integer Dim d As Double c = 0 d = 0.0001 Do While d = 8848 d = 2 * d c = c + 1 Loop Print 对折; c; 次后,纸张的高度将超过珠穆朗玛峰 End Sub * 公布分析发财 3、设计程序计算计程车日间资费 乘客A：车程为16公里，低速时间为4分钟 乘客B：车程为8.5公里，低速时间为6.5分钟 《上海小型出租车日间资费标准》 小型出租车起租价为12元，起租里程3公里，超起租里程单价每公里2.4元。超10公里（不含10公里），超过部分按超起租里程单价加价50%。 计价器车资金额以元为单位显示，元以下尾数小于等于0.50元舍去，大于等于0.51元进“1元”。 出租车采用计时，计程并用的计价方式。当车速低于时速12公里或停车等候时，每5分钟计收1公里超起租价。（假设在3公里以内没有低速情况） 请同学们根据上海小型出租车计费标准，编写程序，计算两次出租车资费： 乘客A 元 乘客B 元 * 公布分析发财 Private Sub Form_Click() Dim d, t, pay As Integer d = Val(InputBox(输入车程(公里))) t = Val(InputBox(输入低速时间(分钟))) If d = 3 Then pay = 12 Else If d = 10 Then pay = 12 + (d - 3) * 2.4 + t / 5 * 2.4 Else pay = 12 + (10-3 )* 2.4 + (d - 10) * (2.4+2.4*0.5) + t / 5 * 2.4 End If End If pay = Int(pay + 0.5) Print 您本次的出租车资费为：; pay; 元 End Sub * 公布分析发财 某超市打折促销，规定如下：  ①购物未超过500元按原价支付； ②购物超过500元但未超过1000元，超过500元部分按9折优惠计价； ③购物超过1000元但未超过1500元，超过1000元部分按8折优惠计价； ④购物超过1500元但未超过3000元，超过1500元部分按7折优惠计价； ⑤购物超过3000元，超过3000元部分按6折优惠计价。根据以上规定，假定购物货款为x元，则实付金额y为：? * 公布分析发财 开始 输入货款x x=500? y= x 500x=1000? y=500+(x-500)*0.9 1000x=1500? y=500+500*0.9+(x-1000)*0.8 1500x=3000? y=500+500*0.9+500*0.8+(x-1500)*0.7 y=500+500*0.9+500*0.8+1500*0.7+(x-3000)*0.6 输出实付金额y 结束 * 公布分析发财 大吉大利 打击到吗试试 大吉大利 打击到吗试试 大吉大利 打击到吗试试 大吉大利 打击到吗试试 大吉大利 打击到吗试试 大吉大利 打击到吗试试 大吉大利 打击到吗试试 大吉大利 打击到吗试试 大吉大利