浙教版高一《算法与程序设计》第二章解析算法(6)

【教师】：如果Y年是小数？

【学生】：Y=Fix( Y )+1

3、自然语言转换成流程图

4、流程图转化成程序代码

Private Sub Command1_Click()

Dim M, K, Y As Double

M=Val(Text1.Text)

K=Val(Text2.Text)

Y=(K - M) / (0.045 * M)

If Y>Fix(Y) Then Y = Fix(Y) +1

Text3.Text = Str(Y) + "年"

End Sub

【设计意图】层层分析，步步为营。通过分析附if语句的作用，在什么情况下Y = Fix(Y) +1，突出解析算法的关键是表达式的准确性。

实践活动二：梁咏琪的储蓄顾问，后附。

【教师】：展示完成后的程序效果，如图。

教师先调试一遍。

【学生】：操作实践活动，教师巡视。

水平好的学生，可以去试着完成“拓展实践”－改进“梁咏琪的储蓄顾问”，后附。

【教师】：展示实践活动中的源程序，和学生一起完成代码填空。

【设计意图】虽然从本质上说就是教材中的“储蓄顾问”例子，但是通过加入情境，让学生富有情感体验，