_课外兴趣小组活动记录表

课外兴趣小组活动记录表活动时间第1周活动地点微机室指导教师姜祖卫活动主题求三个整数的和及平均数活动过程：Pascal程序由三部分组成。

(1)程序首部(2)说明部分(3)语句部分把处理问题的步骤编成能从上到下顺序执行的程序，是简单程序的基本特征。

(:=)是赋值符号，赋值语句的格式为:变量:=表达式；赋值语句的作用是将:=右边表达式的值记录到左边的变量中。

Writeln是输出语句，输出语句有三种格式:1Write(输出项1，输出项2)；｛执行输出后光标不换行｝②Writeln(输出项1，输出项2)；｛执行输出后光标换到下一行｝③Writeln｛仅输出空白且光标换到下一行｝Program ex1;Var a,b,c,s:integer;BeginReadln(a,b,c);S:=a+b+c;Writeln(s);End.思考：怎样求他们的平均数呢？活动效果基本掌握了pascal程序的简单结构以及输入输出语句。

课外兴趣小组活动记录表活动时间第2周活动地点微机室指导教师姜祖卫活动主题求三个数的平均数活动过程：写程序Program ex1;Var a,b,c,s，v:real;BeginReadln(a,b,c);S:=a+b+c;V：=s/3；Writeln(s，v);End.[思考；例1.6]求一元二次方程x2+3x+2=0的两个实数根。

解:方程的系数是常量，分别用a，b，c表示，可运用数学上现成的求根公式求方程的根，采取如下方法:①先求出d=b2-4ac；（求根公式中需用开方运算的那部分）②再用求根公式算出x1，x2的值。

(x1，x2=?)③输出x1，x2.参考：Program ex2;Var a,b,c,d,x1,x2,:real;BeginA:=1;b:=3;c:=2;D:=sqr(b)-4*a*c;X1:=(-b+sqrt(d))/(2*a);X2:=(-b-sqrt(d))/(2*a);Writeln(x1，x2);End.输出x1=-1x2=-2活动效果大多数学生都能够有自己的清晰思路，并能写出例子的程序段。

课外兴趣小组活动记录表活动时间第3周活动地点微机室指导教师姜祖卫活动主题循环语句to do downto do 试求1到10的整数的和活动过程：顺序结构程序Program ex3;Var i,s:intrger;BeginS:=0；For i:=1to10do（递增）S:=s+i;Writeln(s);End.或者Program ex3;Var i,s:intrger;BeginS:=0；For i:=10downto1do（递减）S:=s+i;Writeln(s);End.思考：欲求1到100所用整数的和该怎么办：活动效果学生基本掌握了程序中的数据类型。

但还需要强化记忆。

课外兴趣小组活动记录表活动时间第4周活动地点微机室指导教师姜祖卫活动主题选择语句活动过程：if语句常称为条件语句，它的一般格式为:(1)if条件then语句；(2)if条件then语句1else语句2；IF语句的功能是按条件在两种可能中选择其中一种。

习惯上把if后面的表达式称为条件，then后面的语句称为真项，else后面的语句称为假项。

若条件成立(为真)就执行真项，然后执行if语句的后继语句；若条件不成立(为假)就跳过真项而执行假项，然后执行后继语句。

而第一种格式只有真项，没有假项，当条件不成立(为假)就什么也不需做，直接往下去执行后继语句。

if语句规定它的真项或假项位置上只能是一个基本语句，如果需要写一组语句，就应当使用复合语句。

本程序中有三处用到复合语句。

每个复合语句的范围是从Begin开始到与它相对应的End为止。

复合语句的地位和一个基本语句相同；其一般格式为：Begin语句系列End；活动效果学生能掌握选择语句中的If语句及其复合语句。

课外兴趣小组活动记录表活动时间第5周活动地点微机室指导教师姜祖卫活动主题活动过程：情况语句Case─end语句为情况语句，是多路分支控制，一般格式为:Case表达式of情况常量表1:语句1；情况常量表2:语句2；::情况常量表n:语句nend；执行情况语句时，先计算Case后面表达式的值，然后根据该值在情况常量表中的“对应安排”，选择其对应的语句执行，执行完所选择语句后就结束Case语句；如果常量表中没有一个与表达式值对应的语句，则什么也不做就结束本Case语句。

Case语句的另一种应用格式为：Case表达式of情况常量表1:语句1；情况常量表2:语句2；::情况常量表n:语句n；else语句n+1end；活动效果学生基本掌握了情况语句的两种格式，需强化练习。

活动时间第6周活动地点微机室指导教师姜祖卫信息学奥林匹克辅导活动主题活动过程Pascal常用的算术标准函数有19个:(1)abs(x)求x的绝对值(|x|)；(2)exp(x)求ex的值；（e为无理数2.71828…）(3)frac(x)求x的小数部分；(4)int(x)求x的整数部分(不舍入，函数值为实型)；(5)ln(x)求以e为底的x的对数（log ex)；(6)odd(x)判断x的奇偶数(当x为奇数时odd(x)值为true，否则为false)；(7)ord(x)求x的序号，结果为整型(x为有序类型量)；(8)piπ值(3.1415926535897932…)；(9)pred(x)求x(有序类型)的前趋值；(10)succ(x)求x(有序类型)的后继值；(11)random随机函数，产生0～1的随机值；(12)random(n)产生0～n的随机数(n为word类型，先执行randomize，才能得到随机整数)；(13)round(x)求x的四舍五入整数；(14)trunc(x)求x的整数部分(截掉小数部分，结果为整型)；(15)sqr(x)求x的平方值(x2)；(16)sqrt(x)求x的开平方根值()；(17)sin(x)求x的正弦函数(x为弧度)；(18)cox(x)求x的余弦函数(x为弧度)；(19)arctan(x)正切的反三角函数(x为数值)；活动效果以后还学多做练习，以便牢固掌握算术标准函数的定义，做到灵活运用。

活动时间第7周活动地点微机室指导教师姜祖卫活动主题循环语句活动过程：循环语句for循环语句有两种格式:(1)for循环变量:=初值To终值do语句；(2)for循环变量:=初值downto终值do语句；第(1)种格式的初值小于等于终值，循环变量值按自动加1递增变化；第(2)种格式的初值大于或等于终值，循环变量值按自动减1递减变化。

for循环是(以递增1或以递减1)计数型循环。

Pascal共有四种逻辑运算符：①and(与)两条件都为True时，其结果值为True；否则为False；②or(或)两条件中只要有一个为True；其结果值为True；否则为False；③xor(异或)两条件的逻辑值不相同时，其结果值为True；否则为False；④not(非)条件为True时，其结果值为False；否则为True；(取反)活动效果掌握了for语句的基本结构及用法。

了解了pascal的四种逻辑运算符。

课外兴趣小组活动记录表活动时间第8周活动地点微机室指导教师姜祖卫活动主题Repeat循环是直到型循环活动过程程序中的Repeat循环格式为:repeat循环体语句；until条件表达式；｛直到条件为真｝Repeat循环首先执行由Repeat和Until括起来的循环体语句，然后检查Until后面的条件表达式：如果表达式结果为假，则继续执行循环体，接着继续检查Until后面的条件表达式，如此反复执行直到这个表达式结果为真时结束循环。

Repeat循环体语句必须有能改变Until后面条件表达式值的语句，并最终使这个条件表达式的值为真，使循环自动结束。

活动效果学生掌握了Repeat循环语句的格式，了解的它的具体含义并能运用解决实际问题。

课外兴趣小组活动记录表活动时间第9周地点微机室教师姜祖卫活动主题While循环是当型循环活动过程While循环是当型循环While循环语句的格式为:While条件式do语句;其中do后面的“语句”是被重复执行的,称为循环体;若循环体是多个语句,必须用begin--end包起来成为复合语句。

While循环首先判断条件式，当条件式的值为真就执行do后面的语句（循环体）。

While的循环体内也必须包含能改变控制变量取值语句,影响条件式的值,最终使条件式为false(假),才能结束循环。

Pascal语言的三种基本循环方式,for循环对循环范围有明确规定,且循环变量只能是递增加1或递减1自动计数控制;而repeat--until循环和while--do循环比较灵活,只要对条件表达式的值能控制满足一定要求就能组成循环,但在循环体中必须有改变循环变量值的语句,使条件判断（逻辑值）最终为True或flase,让循环能够终止。

活动效果学生掌握并能运用当型循环解决实际问题，通过总结三种循环方式，加深了对循环语句的理解。

活动时间第10周地点微机室教师姜祖卫活动主题活动过程活动效果课外兴趣小组活动记录表活动时间第10周活动地点微机室指导教师姜祖卫活动主题信息学奥林匹克辅导NoipPascal活动过程：[例4.1]编程找出由键盘任意输入五个整数中的最大整数。

解:设输入的五个整数为n1、n2、n3、n4、n5，为了便于处理，引入一个中间变量t1，按如下步骤处理：①令t1=n1;②将t1与n2比较，将两者中较大的数放入t1；③将t1与n3比较，将两者中较大的数放入t1；④将t1与n4比较，将两者中较大的数放入t1；⑤将t1与n5比较，将两者中较大的数放入t1；⑥经过以上5步处理后，t1即为5个数中最大者。

从上面规划的步骤看来，从步骤②到步骤⑤需处理的目标是相同的，因此我们可以设计一段子程序Max(x1,x2)，以找出x1和x2中最大的值并返回。

[例4.2]求任意输入的五个自然数的最大公约数。

解:⑴自定义一个专门求两自然数的最大公约数的函数GCD;⑵调用自定义函数,第一次求前两个数的最大公约数;从第二次开始,用每次求得的最大公约数与下一个数再求两个数最大公约数,直到最后。

本题共四次“求两个数的最大公约数”，设输入的五个自然数分别是a1,a2,a3,a4,a5。

①求a1,a2两个数的最大公约数→存入a1；②求a1,a3两个数的最大公约数→存入a1；③求a1,a4两个数的最大公约数→存入a1；④求a1,a5两个数的最大公约数→存入a1；⑤输出a1，此时的a1已是五个数的最大公约数。

活动效果通过例题练习进一步加深了学生对函数的理解和运用。

课外兴趣小组活动记录表活动时间第11周活动微机室指导姜祖卫地点教师活动主题信息学奥林匹克辅导活动过程：自定义函数通常被设计成求一个函数值，一个函数只能得到一个运算结果。