山东省实验中学教科版高中信息技术选修一：第三章 算法与程序实现 知识要点复习

第三章 算法与程序实现 一、解析法：是指通过分析问题中各要素之间的关系，用最简练的语言或形式化得符号来表达他们的关系，得出解决问题所需的表达式，然后设计程序求解问题的方法。 例1： 假设在平面内，有一个三角形，边长为a、b、c，三角形的面积S可由海伦公式求得： S= ，而公式里的p为半周长：p=（a+b+c）/2，输入三角形的三条边，输出三角形的面积。 Dim a, b, c, p, s As Single a = Val(InputBox("请输入第一条边边长")) b = Val(InputBox("请输入第二条边边长")) c = Val(InputBox("请输入第三条边边长")) If ____________________ Then p = (a + b + c) / 2 s = ___________________ Print "三角形面积=" & s Else Print "构不成三角形" End If 1、本题采用的算法是（ 解析法 ）（ 穷举法/解析法/ 递归法/ 排序法） 2、写出程序中空白处表达式（a+b>c and b+c>a and a+c>b Sqr(p * (p - a) * (p - b) * (p - c))） 例2：一玻璃球从高空做自由落体运动，在达到地面时速度为98m/s，请问：该玻璃球从高空开始下落到地面用了多少时间？ Const a =9.8 '自由落体加速度为常量 Dim t as Single '时间 Dim v as Single '到达地面速度 v=98 t=_______ Print “用了” & t & “秒时间” 例3：某省2016年的GDP是6.7万亿元，如果每年按7%的比例增长，问多少年以后此省的GDP可以翻一翻？ Dim p As Single 'p用于记录GDP的值 Dim n As Integer 'n用于统计年数 p = 6.7 n = 0 Do While ____________ p = p * (1 + 0.07) n = n + 1 Loop Print "某省" & n & "年后GDP翻一翻" 例4：国内航班乘坐经济舱时，行李托运规定，免费托运行李一般不得超过20公斤，超重每公斤按全票价的1.5%计算。