1、2006/9/1集里中学：徐 晨 辉信息学奥赛培训教程（第一课）信息学奥赛培训教程（第一课）关于关于“信息学奥赛培训信息学奥赛培训”问答问答怎样使用怎样使用Turbo Pascal来编写程序来编写程序什么是编程？什么是编程？一个简单的一个简单的PASCAL程序例子程序例子学习编程的好处学习编程的好处青少年学习编程的好处青少年学习编程的好处l著名计算机科学家、图灵奖获得者、斯坦福大学教授G.伏赛思说：计算机科学是继自然语言、数学之后，成为第三位对人的一生都有重大用途的“通用智力工具”。l学习编程具有强烈的创造意识；同时又需要具有十分严谨的逻辑推理。因此程序设计是获得程序设计是获得创造性修养与获得
2、正确思维方法的极好的科目。创造性修养与获得正确思维方法的极好的科目。是进行智力开发，培养良好学习方法的学科是进行智力开发，培养良好学习方法的学科 l由于计算机程序设计与数学是紧密相互联系而相辅相成的。它对数学的学习有着极大的促进作用。许多数学问题必须要用计算机才能最终解决问题，反之计算机的编程常常要借助数学的思想与方法才能出色完成任务 可以参加各种有关计算机的竞赛可以参加各种有关计算机的竞赛l可参加全国青少年信息学奥林匹克，由中国计算机学会发奖，根据教育部相关文件，中小学生获奖后可被重点学校特招或优录，高中生比赛获奖可获得大学自主招生资格。l中小学生创新实践活动大赛。l可参加全国计算机等级考试
3、（由国家教育部发证）1、什么是信息学奥赛？、什么是信息学奥赛？答：初赛为笔试，每年答：初赛为笔试，每年10月举办一次，分高中组和初中组，竞赛所选的语言月举办一次，分高中组和初中组，竞赛所选的语言可以是可以是PASCAL、C、C+，我们选用，我们选用PASCAL语言。复赛为上机，一般为语言。复赛为上机，一般为在三个小时内编写四个程序，全省统一地点进行，复赛时间定在在三个小时内编写四个程序，全省统一地点进行，复赛时间定在11月底月底.关于关于“信息学奥赛培训信息学奥赛培训”问答问答答：答：“信息学奥赛信息学奥赛”的全称是：全国青少年信息学（计算机）奥林匹克竞赛，的全称是：全国青少年信息学（计算机）
4、奥林匹克竞赛，是五大奥林匹克学科竞赛之一（其它四科为数学、物理、化学、生物）。是五大奥林匹克学科竞赛之一（其它四科为数学、物理、化学、生物）。2、信息学奥赛是什么性质的比赛？、信息学奥赛是什么性质的比赛？答：信息学奥赛是经中国科协、国家教委批准，由中国计算机学会主办的一答：信息学奥赛是经中国科协、国家教委批准，由中国计算机学会主办的一项全国性青少年学科竞赛活动。旨在给那些有才华的学生提供相互交流和学项全国性青少年学科竞赛活动。旨在给那些有才华的学生提供相互交流和学习的机会，提高他们创造性地习的机会，提高他们创造性地运用程序设计知识解决实际问题的能力运用程序设计知识解决实际问题的能力。通过。通过
5、竞赛和相关的活动培养和选拔优秀的学生。竞赛和相关的活动培养和选拔优秀的学生。3、比赛方式是怎样的？、比赛方式是怎样的？4、培训课程教什么？、培训课程教什么？答：第一个学期打基础，教授答：第一个学期打基础，教授pascal语言语言；第二学期为提高部分，教授；第二学期为提高部分，教授数据结构数据结构和和算法算法；暑假竞赛前；暑假竞赛前冲刺辅导冲刺辅导。引入引入l1、电脑有什么作用？l2、为什么电脑有这些作用？l3、电脑强大在哪里？l3、比起人脑，电脑更聪明吗？交流交流人和计算机间通讯所用的语言人和计算机间通讯所用的语言程序设计语言程序设计语言交交 简单的说，编程就是为了借助于计算机来达到某一目的简
6、单的说，编程就是为了借助于计算机来达到某一目的或解决某个问题，而使用某种或解决某个问题，而使用某种程序设计语言程序设计语言编写程序代码，编写程序代码，并最终得到结果的过程。并最终得到结果的过程。1、什么是编程？、什么是编程？迷宫问题：迷宫问题：设有一个设有一个n*n方格的迷宫，入口和出口分别在左上角和右下角，如方格的迷宫，入口和出口分别在左上角和右下角，如图所示，其走路规则是：在格子中，最多可以向图所示，其走路规则是：在格子中，最多可以向8个方向前进，格子中个方向前进，格子中0表表示可以走，示可以走，1表示不通，当迷宫给定后，找出一条从入口到出口的通路。表示不通，当迷宫给定后，找出一条从入口到
7、出口的通路。0001101010110110010010010011010101000110011111010011101111000000迷宫图迷宫图出口出口入口入口我们的目标我们的目标借助程序设计的知识载体，传授基本问题的求解过程和基本思路。借助程序设计的知识载体，传授基本问题的求解过程和基本思路。建立算法意识，培养良好的思维习惯。建立算法意识，培养良好的思维习惯。从学科方法论上打基础，培养计算思维能力和分析问题解决问题的能力。从学科方法论上打基础，培养计算思维能力和分析问题解决问题的能力。3、用计算机解决问题实例、用计算机解决问题实例八皇后问题，l十九世纪著名的数学家十九世纪著名的数学家
8、高斯高斯1850年提出：在年提出：在8X8格的格的国际象棋国际象棋上摆放八个皇后，使其不能上摆放八个皇后，使其不能互相攻击，即任意两个皇后都不能处于同一行、互相攻击，即任意两个皇后都不能处于同一行、同一列或同一斜线上，问有多少种摆法。同一列或同一斜线上，问有多少种摆法。l高斯认为有高斯认为有76种方案。种方案。1854年在年在柏林柏林的象棋的象棋杂志上不同的作者发表了杂志上不同的作者发表了40种不同的解，后种不同的解，后来有人用计算机图论的方法解出来有人用计算机图论的方法解出92种结果。种结果。exam1;Vara,b,c:integer;BeginA:=10;b:=11;c:=a+b;Wri
9、teln(c=,c);End.4、一个简单的、一个简单的PASCAL程序例子程序例子程序首部；保留字（规则）程序首部；保留字（规则）保留字（规则），开始定义变量保留字（规则），开始定义变量定义定义a,b,c为整型变量为整型变量执行部分开始执行部分开始把把10赋予给变量赋予给变量a把把11赋予给变量赋予给变量b把把a+b的值赋予给变量的值赋予给变量c输出输出C=21主程序体结束主程序体结束program ex;uses graph;var gm,gd,r:integer;begin gd:=0;readln(r);initgraph(gm,gd,);setcolor(green);circle(
10、320,240,r);readln;closegraph;end.Program exam2;Var r:integer;c,s:real;Begin readln(r);c:=3.14*2*r;s:=3.14*r*r;writeln(c,s);end.输入半径输入半径R的值的值Program exam2;Var r:integer;c,s:real;Begin readln(r);c:=3.14*2*r;s:=3.14*r*r;writeln(c,s);end.程序首部程序首部说明部分说明部分执行部分执行部分程序体程序体program 程序名；程序名；uses 已知单元说明；已知单元说明；l
11、abel 标号说明；标号说明；const 常量说明；常量说明；type 类型说明；类型说明；var 变量说明；变量说明；Function 函数说明；函数说明；procedure 过程说明；过程说明；begin 语句；语句；语句;end.6、怎样使用、怎样使用Free Pascal来编写程序？来编写程序？1）新建文件）新建文件 Filenew2）保存文件）保存文件 F2 *.pas3）打开文件）打开文件 F34）编译程序：按）编译程序：按F95）运行程序：按）运行程序：按CTRL+F96）查看结果：按）查看结果：按ALT+F5检查语法错误，生成可执行文件检查语法错误，生成可执行文件运行生成的可执
12、行文件运行生成的可执行文件打开输出窗口打开输出窗口查看程序运行结果查看程序运行结果9）安全退出）安全退出Free Pascal:ALT+Xl光标移动键的使用lBackspace键:删除光标前一个字符lCtrl+N:在光标前插入一行lCtrl+Y:删除光标所在行lHome:光标移到行首lEnd:光标移到行尾lPageUp/PageDown:上下翻页lInsert:插入与改写状态切换 7、Free Pascal编辑环境其他常用编辑命令编辑环境其他常用编辑命令8、练习：、练习：1.熟悉熟悉Free Pascal编辑环境编辑环境.2.记住常用快捷键的使用记住常用快捷键的使用.3、新建文件，输入下面的程
13、序，练习、新建文件，输入下面的程序，练习编译编译、运行运行、查看查看结果：程序在运行时，会输出结果：程序在运行时，会输出8行行“*”。按回车后。按回车后程序结束回到程序窗口。程序结束回到程序窗口。program ex1;var i:integer;begin for i:=1 to 8 do writeln(:i,*);readln;end.*模仿例题编程模仿例题编程 l某梯形的上底、下底和高分别为8，12，9，求该梯形的面积 l计算某次考试语文(85)、数学(87)、英语(65)和计算机(89)等四科的总成绩与平均成绩 l 加法计算器：编程由键盘输入两个整数a和b，计算出它们的和并输出到屏幕上 lprogram AreaOfTiXing(input,output);var a,b,h:integer;l begin la:=8;l b:=12;lh:=9;lwrite(a+b)*h/2:6);lend.program x(input,output);var a,b,c,d,e:longint;f:real;begin readln(a,b,c,d);e:=a+b+c+d;f:=e/4;writeln(e,f:3);end.var a,b:integer;begin readln(a,b);writeln(a+b);end;
