教师(pascal语言)培训讲习.ppt

教师(PASCAL语言)培训讲习;办班的目的：;建议参考书：;序言：信息学奥赛的发展;信息学奥林匹克竞赛内容;Free Pascal 安装、启动与退出;Pascal 程序的输入与调试;第1课 认识PASCAL语言;第1课 认识PASCAL语言;程序说明：;完整的PASCAL程序框架; 1、PROGRAM写在最左边顶格； 2、注释的大括号{、和CONST、VAR、BEGIN、END等语句上下对齐，且它们比PROGRAM向右移两个字符； 3、各个语句和程序语句也是上下对齐，它们比第2点中的各语句又向右移两个字符； 4、语句间多余空格与空行，编译时会忽略。;数制的转换;3、十进制与二进制的相互转换;例2：将（11001.0101）2转换成十进制数。 （11001.1101）2 = 1×24+1×23+0×22+0×21+1×20+1×2-1+1×2-2 +0×2-3+1×2-4 =16+8+1+0.5+0.25+0.0625 =（25.8125）10 十进制数和二进制数的转换可以推广 到十进制与八进制、十进制与十六进制数的转换。如十进制数转换在八进制数的方法是：“除以8倒取余法”；十进制小数转换成八进制小数的方法是：“乘8取整法”。 ;第2课 PASCAL的数据类型、标识符、表达式、语句;整数类型;;标识符;表达式和运算符 ;PASCAL程序中的运算优先规则 ;常量与变量;常用函数与表达式;顺序结构程序设计;2、输入（read、readln)语句;3、输出（write 、writeln)语句;例：X:=2; y:=3; writeln(‘x=’,x,’y=’,y); writeln(x+y=’,x+y,’x*y=’,x*y) 输出结果为： x=2 y=3 x+y=5 x*y=6 ;自定义场宽;例T2_1：交换两个变量的值。;例T2_2:鸡兔同笼问题。已知鸡和兔的总头数是H，总腿数为F，求鸡和兔各多少只？;例T2_3: 随机产生一个三位自然数，求其百位、十位、个位上的数字。;例T2_4 已知三角形的两边及夹角，求第三边及面积。;例T2_5: 输入一个字符，求其序号、前导（即前一字符）、后继（即后一字符）。;例T2_6： 输入x，y。若在圆环内，输出true，若在圆环外；输出false。圆环如图所示。;作业：;第3课 选择结构程序设计 ;例L3_1 火车托运行李，要根据行李的重量按不同标准收费。例如不超过50kg，按每公斤0.35元收费。若超过50kg，则其中50kg按每公斤0.35元收费，其余超过部分按每公斤0.50元收费。现输入托运行李重量，要求计算并输出托运费。;除了上面给出的IF语句形式外，PASCAL中还有另外一种IF语句形式。即 IF （条件） THEN （语句） 在条件为真时，执行THEN后的语句。在条件为假时，不执行THEN后的语句，在两种情况下的后继语句都是IF语句的下一个语句。;例L3_2 读入三个数，找出并打印其中的最大数。 解： PROGRAM L3_2; VAR a,b,c:real; BEGIN write(a=?); read(a); write(b=?); read(b); write(c=?); read(c); IF ab THEN a:=b; IF ac THEN a:=c; writeln(ZuiDaShu:,a) END.;3.2.2 复合语句;3.2.3 IF语句的嵌套;有时IF语句可能会有两种不同的理解。 ;例L3_3: 有一个函数表达式为：编写程序，输入x,输出y的值。;3.3 CASE语句;例L3_5 输入年、月，输出该月有几天。;例L3_6 编制程序，根据输入的x值，计算y与z并输出。;作业：;第4课 循环结构;一、FOR语句格式1：(递增型) FOR x：=初值 TO 终值 DO 循环体格式1: (递减型) FOR x：=初值 downTO 终值 DO 循环体;;例T4_002 ： 输入10个任意整数，求它们的和. ;例T4_004：任何一个 n3一定可以表示成n个连续的奇数和。输入n(n≤100),输出n3对应的表达式。;Program T4_004; var i,n,a:longint {循环变量，连续的奇数个数，当前项，类型 为长整型} begin