1、信息奥赛入门培训笔记第一章：计算机与程序设计简介一、计算机的三大功能1 计算功能；2 记忆功能；3 判断功能。二、计算机的发展世界上第一台计算机，1946年，美国，ENIAC三、计算机的组成结构由硬件和软件两部分组成。硬件结构的五个部分：1 输入设备：键盘、鼠标。2 输出设备：显示器、打印机。3 CPU中央处理器运算器4 控制器5 存储器：内存、外存四、计算机的语言1 低级语言机器语言：（0、1、代码）2 汇编语言：（符号指令）3 高级语言：（英文指令）（Pascal语言）五、Pascal程序的基本结构：例：小明每月存5元。问：四年他共存了多少元？首 部PROGRAM EX；说明部分VAR A
2、,B：INTEGER;执 BEGIN行 A:=5；部 B:=A*12*4；分 WRITELN(B)； END.六、键盘指法：七、上机操作：、开机：显示器、主机、进入：TP环境（蓝白）在Windows界面上，双击MSDOS图标打TP、输入程序、执行程序：按CTRLF9、看结果（切换到输出屏幕（黑白）按ALTF5、新开一页（窗口）1 按ALTF2 选NEW命令、切换当前工作页面（窗口）按ALT页号、关闭当前窗口按ALTF3、退出TP环境1 按ALTE2 打X（选EXIT命令）、回Windows界面打EXIT、关机1 点击开始关闭系统关机Y2 关显示器上机程序：求自己两科的平均成绩PROGRAM E
3、X2;VAR X,Y,S,P:INTEGER; BEGIN X:= ;Y:= ; S:=X+Y; P:=S DIV 2; WRITELN(P=,P);END.第二章 顺序结构设计编程的“三步曲”：输入处理输出一、赋值语句（一）它能给变量一个数据如：A:=5;其中“:=”是赋值号、变量是可存放各种不同数据的“小盒子”（存储单元），在程序执行中，可改变它的值。、变量命名规则必须以字母开头，是字母、数字的组合如：Box DA A125A A+B Pascal系统的“关键字”不能用如：Begin End练习：命名：长宽平均最大最小例句：A:=3;B:=-1;A:=5;重新赋值，则原值被冲掉B:=A;把
4、A给B，A不变，B与A同值Pascal规定：变量在用之前，必须说明它的类型。、四种简单标准类型：1 整数类型：INTEGER3276832767（MAXINT）（有序）用于：人数，物品个数实数类型：REAL即：带有小数的娄（无序）用于：金额、高度、重量实数有两种表示法：1 十进制如：123.452 科学记数法：如：1234567890000 1.2345678900E+120.000012345 1.2345000000E-5字符类型：CHAR（有序）如：A、B、6、2序号范围：0255用于：文本信息处理布尔类型：（有序）BOOLEAN只有个值：TRUE（真）FALSE（假）序号：FALSET
5、RUE如：为TRUE为FALSE用于：判断、变量说明的格式：VAR变量表：类型；如：VARR:INTEGER；P:REAL;B:BOOLEAN;W:CHAR;BEGINR:=22;P:=86.5;B:=(P80);W:=N;B:=FALSE;END.练习：改正下列语句中的错误VARA,B:INTEGERS:REAL;BEGINA:=10:B:=A*12*3;S:=1.40;END.（二）赋值语句有计算功能如：B:=A*12*4;表达式用计算机的运算符、圆括号连接数和变量的算式。(A+B)2 (A+B)/2 (A-3)/(5*B)(A+1)B1B (A+1)*B+1)*B1/A+1/BPasca
6、l运算符：+、-、*、/整除：DIV求余：MOD练习：定义四种变量，写个赋值语句（三）赋值语句的格式变量:=表达式；功能：将表达式的值赋给“:=”左边的变量。（四）应用举例例一：给A、B、C赋值万。直接赋值A:=10000; B:=10000; C:=10000;辗转赋值A:=10000; B:=A; C:=B;例二：累加与计数累加计数A:=0; A:=0; A:=A+5; A:=A+1; A:=A+10; A:=A+1; A:=A+30; A:=A+1; 例三：求A、B、C三科的平均成绩。已知：A98,B100,C97 PROGRAM EX1; VAR A,B,C:INTEGER; P:RE
7、AL; BEGIN A:=98; B:=100; C:=97; P:=(A+B+C)/3; WRITELN(P:0:2); END. 例四：把55给A，把16给B，然后交换A与B的值：用“冒泡法”PROGRAM EX2; VAR A,B,C:INTEGER; BEGIN A:=55; B:=16; C:=A; A:=B; B:=C; WRITELN(A,B:10); END.二、读语句：（一）它有三种类型1 READ(A,B);2 READLN(A,B);3 READLN;(二)功能：当执行到READ语句时，计算机会暂停下来，等待我们由键盘上输入数据。如：READLN(A,B); 输入： 结果
8、：A B 作废 READ(A,B)； 输入： 结果：A B（三）READ与READLN的区别：、READLN后面可以无输入项，表示只需要一个“”。、READLN()读完所需的数据之后，会寻找“”符，而READ()读完所需的数据之后，不会寻找“”符。如：READLN(A);READLN(B,C)；输入：结果：A、作废B和C待输入如：READ(A);READLN(B,C);输入：结果；ABC （四）应用举例： 例一：某水果店，水果每斤1.5元。编程 输入：斤数 输出：应付款（元） PROGRAM FRUIT; VAR J,Y:REAL; BEGIN READLN(J); Y:=J*1.5; WRI
9、TELN(Y:0:2); END. 执行：输入： 输出：再执行：输入： 输出：例二：为某个同学计算三门学科的平均成绩。 PROGRAM AVERAGE; VAR A,B,C:INTEGER; P:REAL; BEGIN READLN(A,B,C); P:=(A+B+C)/3; WRITELN(P:0:1); END. 执行：输入： 输出：再执行：输入： 输出：三、写语句（又称：输出语句）（一）它有三种句型：1 WRITE(A,B,C);2 WRITELN(A,B,C);3 WRITELN;（二）功能：它能计算并输出表达式的值 对字符串可以按原样照印字符串用一对单引号括起来的一串字符如：ABC1
10、2例： A:=4; 输出： WRITELN(123);123 WRITELN(A); 4 WRITELN(A*12); 48 WRITELN(HELLO!) HELLO!（三）WRITE与WRITELN的区别1、 WRITELN后面可以无输出项，只是换行或空一行。2、 WRITELN（）输出完之后，会自动换行。而WRITE（）输出完之后，不换行 如：WRITE(12); 输出：1298 WRITELN(98); A WRITELN(A); （四）输出格式用场宽控制 、单场宽格式： WRITELN(X:n); X占n格宽，并靠右边对齐显示如：WRITELN(A:5,B:5);WRITELN(12
11、3:5);、双场宽格式（只用于实数）WRITELN(X:n1:n2);其中：n1总场宽n2小数位如：WRITELN(98.766);输出：9.8766000000E+01WRITELN(98.766:10:4); 98.7660 WRITELN(98.766:10:2); 98.77 WRITELN(98.766:0:2); 98.77注意：如n2小于X的实际小数位数，则多出的位数按四舍五入处理。练习：编程：输入两个整数，求它们的和、差、积、商（五）应用举例：例：输入两个正整数A、B，求A+B，并打印出计算的横式和竖式。如：输入：A,B1234 56输出：1234+56=1290 1234 +
12、 56 - 1290程序： PROGRAM EX1; VAR A,B:INTEGER; BEGIN WRITE(A,B=); READLN(A,B); WRITELN(A,+,B,=,A+B); WRITELN(A:20); WRITELN(+:15,B:5); WRITELN(-:21); WRITELN(A+B:20); END.例：在屏中央打印图形*程序：PROGRAM EX2; BEGIN WRITELN(*:40); WRITELN(*:41); WRITELN(*:42); END.例：输入“秒”数，换算出它是多少分钟，多少小时。程序：PROGRAM EX3; VAR M:INTE
13、GER; F,S:REAL; BEGIN WRITE(M=);READLN(M); F:=M/60;S:=F/60; WRITELN(F=,F:0:1); WRITELN(S=,S:0:2); END.练习：编程：1、 输入两个正整数，A,B求A-B。并打印计算的横竖式。2、 输入“小时”数，换算出它是多少天，多少星期。3、 在屏中央打印如下图形：EDCBACBAA第三章选择结构的程序设计一、 条件语句：、两种句型：1 IF条件THEN语句；2 IF条件THEN语句ELSE语句；如果则否则功能：如果条件成立，则做语句，否则做语句。、“条件”的描述如：A = = 大于小于等于大于等于小于等于不等
14、于如：N不超过100表达式为：N、=、=、如：A值之间(A0) AND (A0) OR (Y0)A不大于BNOT（AB）、条件语句例句：（设A、B为整数型）如果A和B都是正数，则打印它们的值。IF (A0) AND (B0) THEN WRITELN(A,B:10); 如果A，B之和不低于，就在计数N当中加。IF A+B=180 THEN N:=N+1 如果A小于B，则把A的值给B，否则把B的值给AIF A(B/2) THEN WRITELN(DUO!); 如果A和B当中至少有一个是奇数，则打印A+B的值，否则打印A-B的值。IF (A MOD 2=1) OR (B MOD 2=1) THEN
15、 WRITELN(A+B) ELSE WRITELN(A-B);、应用：例一：输入一个整数，若它是的倍数，则打印“YES!”，否则打印“NO!” PROGRAM EX1; VAR A:INTEGER; BEGIN WRITE(A=);READLN(A); IF A MOD 7=0 THEN WRITELN(YES!) ELSE WRITE(NO!) END. 例二：输入三个整数，将其中最小的选出来PROGRAM EX2; VAR A,B,C,X:INTEGER; BEGIN WRITE(A,B,C=); READLN(A,B,C); X:=A; IF XB THEN X:=B; IF XC T
16、HEN X:=C; WRITELN(X); END.例三：买西瓜。若买斤以内，则每斤西瓜八角，否则超出斤的那部分，每斤角。输入：斤数输出：应付款（元）PROGRAM EX3; VAR J,Y:REAL; BEGIN WRITE(J=);READLN(J); IF J100 THEN Y:=100*0.8+(J-100)*0.5 ELSE Y:=J*0.8; WRITELN(Y:0:2); END.练习：1、 输入一个整数，若它是奇数，则打“YES!”，否则打“NO!”。2、 输入三个整数，将其中最大的选出来。二、复合语句：格式：BEGIN 语句；语句；语句N；END；例：输入A、B（整数），若
17、A大于B，则交换A与B。PROGRAM EX1; VAR A,B,C:INTEGER; BEGIN WRITE(A,B=);READLN(A,B); IF AB THEN BEGIN C:=A; A:=B; B:=C; END; WRITELN(A,B:10); END.三、情况语句：、格式：CASE 表达式OF 值情况表：语句； 值情况表N：语句N； ELSE语句； END;、功能：如果“表达式”的值出现在某个“值情况表”中，则做它后面的语句，否则做ELSE后的语句。、例一：输入XX年X月，输出该月有多少天。PROGRAM EX2; VAR N,Y,T:INTEGER; BEGINWRITE
18、(N,Y=);READLN(N,Y);CASE Y OF 1,3,5,7,8,10,12:T:=31; 4,6,9,11:T:=30; 2:IF (N MOD 400=0) OR (N MOD 1000) AND (N MOD 4=0) THEN T:=29 ELSE T:=28ELSE BEGIN WRITE(NO!); HALT; END;END;WRITELN(T);END.练习：输入一个整数A，根据A值分如下情况处理。若是，则打印“学数学”；若是，则打印“学电脑”；若是，则打印“学英语”；若是则打印“休息”否则打印“NO!”第四章循环结构的程序设计循环重复做一些事Pascal中有三种循
19、环1 计数型循环（FOR）2 当型循环（WHILE）3 直到型循环（REPEAT）一、FOR循环有两种句型：、递增型FORI:=初值（小）TO终值（大）DO语句；如：FORA:=1 TO 10 DO WRITE(A:4);结果： 1 2 3 4 5 6 7 8 9 10如：FOR I:=A TO F DO WRITE(I:2);结果： A B C D E F、递减型FORI:=初值（大）DOWNTO终值（小）DO语句；如：FOR A:=Z DOWNTO A DO IF AW THEN WRITE(A:2);结果： Z Y X如：FOR A:=10 DOWNTO 5 DO WRITE(A:4);
20、结果： 10 9 8 7 6 5二、注意：1、 控制变量必须是有序的数型。2、 控制变量取值按其序号以递增或以递减。3、 循环体只能是一个语句。若有多个语句，就用复合语句。4、 若一开始“初值”就超过“终值”，则循环一次也不会做。三、应用：例：写结果：VAR I:INTEGER; BEGINFOR I:=1 TO 10 DO WRITE (I*(I-1):4)；WRITELN;END. 0 2 6 12 20 30 42 56 72 90VAR K:INTEGER; BEGIN FOR K:=10 DOWNTO 5 DO WRITE(K+5:4); WRITELN; END. 15 14 13
21、 12 11 10VAR C:CHAR; BEGIN FOR C:=A TO Z DO IF (CW) OR (CD) THEN WRITE(C:2); WRITELN; END. A B C X Y Z例二：计算1+2+3+100PROGRAM EX2; VAR A,H:INTEGER; BEGIN H:=0; FOR A:=1 TO 100 DO H:=H+A; WRITELN(H); END.练习：、求5+6+7+65VAR A,H:INTEGER;BEGIN H:=0; FOR A:=5 TO 65 DO H:=H+A; WRITELN(H);END.、求(13)+(24)+(35)+
22、(1012)VAR A,H:INTEGER;BEGIN H:=0; FOR A:=1 TO 10 DO H:=H+A*(A+2); WRITELN(H);END.例三：找出100中的奇数。VAR A:INTEGER;BEGIN FOR A:=1 TO 99 DO IF A MOD 2=1 THEN WRITE(A:4); WRITELN;END. 练习：1、 输入A,B(INTEGER)，求A-B之间整数之和。2、 求（12）+(23)+(1011)3、 找出11000之间的的倍数。例：鸡兔同笼，已知有16个头，40只脚，鸡兔各有多少只？设：JI鸡TU兔循环：TU=110JI16-TU条件：T
23、U*4+JI*2=40程序：PROGRAM EX4; VAR JI,TU:INTEGER; BEGIN FOR TU:=1 TO 10 DO BEGIN JI:=16-TU; IF TU*4+JI*2=40 THEN WRITELN(JI,TU:10); END; END.练习：有一份试卷上共26题，对一题得分，错一题扣分，有同学全做了，但得分。做对、错各多少题？四、当型循环（while）语句使用for语句编写程序时需要事先知道循环次数，如果遇到不能确定循环次数的问题就无法使用了。当型循环语句提供了解决此类问题的方法。格式：while 布尔表达式 do 语句；例1 求 s=2+6+10+98的
24、值。程序：program ex1;var s,x:integer;begin x:=2;s:=0; while x=98 dobegin s:=s+x; x:=x+4;end; writeln(s=,s);end.注意：为使while循环正常终止，布尔表达式中所含变量的值在循环体中一定要有所更改（如在例1中，布尔表达式中的变量x:=x+4;），这样才能使布尔表达式的值发生变化，否则就会造成循环不能进行或者不能停止（也就是死循环）。例2 求两个自然数M、N的最小公倍数。Program ex2;Var n,m,i,s:longint;begin write(m,n=); readln(m,n); i:=1; s:=m*i; while s mod n0 dobegin i:=i+1; s:=m*i;end; writeln(s);end.练习：计算1+2+4+8+128+256。五、直到型循环（repeat）语句格式：repeat 语句1； 语句2； 语句n;until 布尔表达式；当程序执行到repeat语句时，先执行repeat与until之间的语句序列，即语句到语句n。然后对布尔表达式进行判断，当布尔表达式值是假（条件不成立）时，重复执行语句到语句n的语句序列，直到布尔表达式的值是真（条件成立）时，退出
