Pascal语言兴趣小组教案.pptVIP

A:=trunc(t/100); Case a of 0,1,2,3,4,5,6,7:r:=0 8,9:r=0.05; 10,11,12,13,14:r:=0.10; 15,16,17,18,19,20,21,22,23,24,25,26,27,28,29:r:=0.15; else r:=0.20 end; Kr:=t*r; X:=t-kr; Writeln(‘kr=‘,kr:8:2,’t=‘,t:8:2) End. 作业：一、输入年月日，输出该天是今年的第几天？ 二、课本第52页第2、7、9题。 本课小结： 学生在学会了IF语句的基础上，结合实际应用灵活掌握IF语句的嵌套使用，进而学习CASE语句的使用。 存在的问题：很新鲜的知识，学生不能立即领会奥妙。 这些都是学生第一次接触的，用多做练习的方式促进学生掌握新知识。 第四章；循环语句程序设计 例一：把1到100以内的偶数相加，输出结果。 分析：这道题就是把1到100以内的偶数重复相加，动作一样，只是数不一样。象这样的题目，我们用循环语句来做。这道题我们用FOR语句做。 Progam sum1(input,output); var I,