广东省普通高中教师职务培训2015年第2期(总第11期)
  1. 作业标题:提交校本活动成果截止时间:2015-11-30
  2. 作业要求:
             校本资源是对源于学校和用于学校的一切资源的统称。结合本校的学科的建设与自身教学实践,提交一份本人或科组原创的校本教研资源。体裁和形式不限。

    要求:字数不少于500字。应为原创,发现抄袭,零分处理。

       提示:校本资源必须是经本人创作或本校教师群体集体创作,具体包括教学设计、说课稿、文字或视频形式的课堂实录、学案或课件、教具学具、制度文化、试题或考试分析、校本教材、学科组特色活动纪要、专题教学总结、课例研究或行动研究案例、课题研究报告,等等。

        下载电子版:广东省2015年校本资源作业评分建议与范例.doc

  3. 发布者:通识闫德明

提交校本活动成果

提交者:梁维忠     提交时间:2015-11-29    浏览数:0     

《循环与条件判断 》

教学目的:(1)进一步熟识For语句 (2)学习条件判断语句

教学方法与过程:学生根据学习资料,上机实践,教师实时答疑

实际效果:学生基本能独立完成实验,在实验过程中能不断调整试验方法,动手能力有质的提高,与教师直接讲授方法相比,学生学习能力提高更快。

学习内容:

 

一、 先写出下面程序的运行结果,再执行下面程序,看看是否写对。

1

var

     i,j,k:integer;

   begin

     k:=1;

     for i:=1 to 10 do k:=k+1;

     writeln(k);

   end.    

 

   2 、

     var

       i,j,k:integer;

     begin

       k:=0;

       for i:=1 to 5 do

         begin

           k:=k+i;

           write(k); 

         end;

       writeln;

end.

 

   3

      var

        i,j,k:integer;

      begin

        k:=1;j:=2;

        for j:=1 to 5 do

          begin

          for i:=1 to 3 do k:=k+i; 

          writeln(k);       

          end;

      end.

 

二、 研究条件表达式 

程序利用循环语句可以完成大量重复的工作,如果要计算机有逻辑判断能力,就要用到条件判断语句(if-then-else)。条件表达式是逻辑判断的核心。

每一条件表达式只有两种结果之一:TRUE(真) 、FALSE (假)

如下面条件表达式为TRUE

7<9       8>3    8=8    12>=4   12>=12

如下面条件表达式为FALSE

7>9      8=9     12>=15  

条件表达式的比较运算符有:等于=  大于>  小于<  大于等于>=  小于等于<=  不等于<>   求反not 

另外,andor用于连接多个条件表达式;and连接多个条件式时,如果多个条件式都成立,则整个条件式为TRUE,否则整个条件式FALSE; or连接多个条件式时,如果其中有一个或多个条件式成立,则整个条件式为TRUE,否则如果没有条件式成立,则整个条件式为FALSE

 如下面条件表达式为TRUE

(7<9)and(8>3)      (8=9)or(12>4)

如下面条件表达式为FALSE

(17<9)and(8>3)      (8=9)or(12>40)

用下面程序可以验证条件式45>90成立与否:

  begin

     writeln(45>90);

  end.   

  结果输出 FALSE

请你用程序验证上面出现的逻辑表达式。

三、 条件判断语句

  1

   var

      a,b:integer; 

begin

 a:=4;  

     if  a mod 2=1 then write(‘a is jishu’) else write(‘a is ou shu’); 

end.

动脑实验并回答下面问题:

1) 程序输出结果是什么?

2) 条件式  a mod 2=0TRUE还是FALSE

说明:执行条件判断语句时,如果条件成立,then后面的语句就会执行,如果条件不成立,else后面的语句就会执行。

 

2

   var

     a,b,c:integer;

   begin

     a:=90;b:=80; c:=70;

     if (a>b)and(a>c) then write(a);

if (b>a)and(b>c) then write(b);

if (c>a)and(c>b) then write(c);

   end.  

   想一想,输出结果是什么?三条条件判断语句有哪些条件成立?

3

   var

     a,b,c:integer;

   begin

     a:=90;b:=80; c:=700;

     if (a<b) then a:=b;

if (a<c) then a:=c;

writeln(a);

   end.  

想一想,输出结果是什么?二条条件判断语句有哪些条件成立?

四、 输入并执行一个程序

     var

      a,b,i,j:integer;

     begin

        a:=36;b:=54;j:=1;

        for i:=1 to a do

          if (a mod i=0)and(b mod i=0) then j:=i;

       writeln(j);

end.

 

想一想,输出结果是3654的最大公约数,为什么?

五、 输入并执行一个程序

     var

      i,j,n:integer;

     begin

       n:=10;

       for i:=1 to n do

         begin

           for j:=1 to i do write(‘*’);

           writeln;

         end;  

end.

 

改变N的大小试一试,为什么?

 

2015年