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,sum1:integer; begin sum1:=0; for I:=1 to 100 do if not odd(x) then sum1:=sum1+I; Writeln(‘sum1=‘,sum1) End. FOR语句格式： For 循环变量:=初值 to 终值 do 循环体 For 循环变量:=初值 downto 终值 do 循环体 练习：求和S=1+1/2+1/3+…+1/100 例二：读入10个数，计算它们的和与积以及平均值 讨论：设每次读入的的值放置于x，和与积以及平均值分别用sum,mul,ave标识，它们都为实型。我们用FOR循环来做。每循环一次，读一个x值，并把它分别加以sum上和乘积mul上。注意：在循环前应将 sum置0，mul置1。 Program sma(input,output); var x,sum,mul,ave:real; I:integer; begin sum:=0; mul:=1; for I:=1 to 10 do begin write(‘x=:’); read(x); if I mod 5=0 then writeln; Sum:=sum+x; Mul:=mul*x End; Aver:=sum/10; Writeln(‘sum=‘,sum:6:2,’mul=‘,mul:6:2,’ave=‘,ave:6:2) End. 例三：求两个整数a与b的最大公约数 分析：此题有两种解法，一种是用取余法或取差法；别一种是用循环法来做。第一种方法是用大的不停的除以（或减去）小的，得到的余数（或差）再做为除数或减数，原来的除数（或减数）作为被除数（或被减数）。第二种循环二者中小的数到1，找到能被这两个数除尽的数，即为最大公约数。 法一：program yueshu(input,output); var a,b,c:integer; begin write(‘Input a,b:’); readln(a,b); if ab then Begin c:=a; a:=b; b:=c End; c:= a mod b; while c0 do begin a:=b; b:=c; c:=a mod b end; writeln(‘b=‘,b:4) End. 法二：program yueshu(input,output); var a,b,t,I:integer; begin