高中信息学奥赛培训教案

3.2　输入语句 通过计算机的外设把数据送到计算机内存的过程称为输入。Pascal语言的输入语句有如下两种形式： read(<变量名表>)； readln(<变量名表>)； <输入项表>是一个或几个由逗号隔开的变量标识符，他们必须在程序说明部分预先说明，他们可以是整型、实型或字符型，布尔型不可以直接读入。 例如a，b，c为整型变量，read(a,b,c)之后 键盘输入：20 30 40 (表示回车) 结果：　a=20，b=30，c=40 readln语句和read语句不同之处在于输入数据到各变量之后，readln自动换行，从下一行开始再输入数据。一个read语句执行完后，数据行中多余的未读数据可以被下一个输入语句读入；而一个readln于执行完后，数据行中多余未读数据就没有用了。readln语句中可以不包含变量名表。即有以下等价情况： readln(a,b);readln等价于readln(a,b) 输入语句输入的数据类型必须和变量一一对应。如果输入的是一串整数或实数，数据间用空格或回车分隔；若输入的是一串字符，则不用分隔。 例：输入语句示例 program shuru; var x:real; c:char; begin write('please input the number: ($XXX.XX)'); readln(c,x); writeln('The price is ',c,x) end. 3.3　输出语句 输出是将内存中的数据送到外设的过程。Turbo Pascal的输出语句有两种形式： write(<输出项表>) writeln(<输出项表>) 其中<输出项表>是一串用逗号分隔的常量、变量、函数名、表达式或字符串。如果是变量、函数名、表达式，则将其计算结果输出；如果是常量或字符串，则直接输出其值。 writeln和writeln的区别在于：write语句是输出项输出后，不换行，光标停留在最后一项后，writeln语句按项输出后，自动换行，光标则停留在下一行的开始位置。 writeln语句允许不含有输出项，即仅writeln;表示换行。 Turbo Pascal语言把输出项的数据显示占用的宽度称为域宽，你可以根据输出格式的要求在输出语句中自动定义每个输出项的宽度。定义宽度时分为单域宽和双域宽。 （1）单域宽输出格式： writeln(I：n) 在n个字符宽的输出域上按右对齐方式输出I的值，若n大于I的实际位数，则在I值前面补(n-I的实际位数）个空格。若I的实际位数大于n，则自动突破限制。n必须是整数。 （2）双域宽输出格式： writeln(a：m：n) 双域宽主要用于实型数据的输出。n的用法同上。在n个字符宽的输出域上按右队齐方式用小数点形式输出a的数值，m是小数点后的位数。原来的数据按该该格式指定的小数位数四舍五入。若m=0 ，则不输出小数部分和小数点，原数据四舍五入取整。n，m必须是整数。 例：输出语句的例子 program shuchu; const s='pascal'; var i:integer; r:real; c:char; b:boolean; begin i:=12345; r:=123.45 c:='a'; b:=true; writeln('i='); writeln(i:6); writeln('r=',r,r:6:1); writeln('c=',c,c:10); writeln('b=',b,b:10) end. 3.4　复合语句 复合语句是由若干语句组成的序列，语句之间用分号“；”隔开，并且以begin和end括起来，作为一条语句。复合语句的一般形式： begin 语句1； 语句2； …… 语句n； end 例：变量值的交换 program jiaohuan; var a,b,t:integer; begin a:=10;b:=20; begin t:=a; a:=b; b:=t; end; writeln('a=',a,'b=',b) end. 第四章  选择结构程序设计 一、if语句 IF语句是由一个布尔表达式和两个供选择的操作序列组成。运行时根据布尔表达式求值结果，选取其中之一的操作序列执行。有两种形式的IF语句： if　<布尔表达式>　then <语句>； if　<布尔表达式>　then <语句1> else <语句2>； 当布尔表达式的值为真，则执行then后面的语句，值为假时有两种情况：要么什么也不做，要么执行else后面的语句。注意else前面没有分号，因为分号是两个语句之间的分隔符，而else并非语句。如果在该处添了分号，则在编译的时候就会认为if 语句到此结束，而把else当作另一句的开头，输出出错信息。 例：求y=f(x),当x>0时，y=1，当x=0时，y=0，当x<0时，y=-1 program lianxi; var x,y:real; begin if x>0 then y:=1; if x=0 then y:=0; if x<0 then y:=-1; writeln('y=',y); end. 在Turbo Pascal语言if语句中被构造的语句只能是一条语句，当条件选择某个分支的计算要用多个语句描述时，就必须把该分支用begin和 end括来，写成复合语句。在用if语句连续嵌套时，如果你插入适量的复合语句，有利于程序的阅读和理解。 例：当x>0时候，计算x*x，并且输出x和x*x， program lianxie3; var x,x1:real; begin readln('x=',x); if x>= then begin x1:=x*x; writeln('x*x=',x1); writeln('x=',x); end; end. 当if 语句嵌套时，Turbo Pascal约定else总是和最近的一个if配对。 二、case语句 case语句是由一个表达式和众多可选择的操作序列组成。运行时，根据表达式的求值结果，在众多的分支中选取一个分支执行。其形式为： case　表达式　of 常量1：语句1； 常量2：语句2； …… 常量n：语句n； else　语句 n+1 ｛可选项｝ end; 表达式只能是顺序类型（除了实型以外的简单类型），其值必须是唯一确定并且和表达式类型相同。case语句执行和表达式值相匹配的case常数所指向的那条语句，如果没有相匹配的值，则执行else部分（如果有的话）或者什么也不做。在else前面的语句末尾有分号，这是和if语句不同的。 例：根据学生的成绩给予相应的等低，对应关系如下： ９０——１００　Ａ ８０——８９  Ｂ ６０——７９  Ｃ ６０以下    Ｄ program chengji; var s:real;ch:char; begin write('input the score: '); readln(s); if(s>=0)and(s<=100)then case s div 10 of 10,9:ch:='B'; 8:ch:='B'; 7,6:='C'; else ch:='D'; end; writeln(s,'--',ch); end. 第五章  循环结构程序设计 5.1　while语句 while语句用于“当满足某一条件时进行循环”的情况。while语句的语法格式： while 布尔表达式　do　语句； 循环结束条件在进入循环体之前测试，若最初的测试值为false，则根本不进入循环体，也就是说while循环是是属于当型循环。为了能使while重复能终止，循环体中一定要有影响布尔表达式的操作，否则该循就是一个死循环。 例：计算从０到某个数之间所有奇数的和。 program jishu; var odds,limit,sum:integer; begin readln(limit); sum:=0; odds:=1; while odds<=limit do begin sum:=sum+odds; odds:=odds+2 end; writeln(sum:1) end. 5.2　repeat语句 repeat 语句用于“重复执行循环体，一直到指定的条件为真时为止”。语法格式为： repeat 语句1; …… 语句n; until　布尔表达式； repeat重复基本上有和while重复一样的描述循环计算的能力，但有一些不同：在repeat语句的结构中，布尔表达式求值在计算操作之后，而while语句中，布尔表达式求值在计算操作之前，也就是说repeat至少执行一次循环体。while语句的成分语句只能是一个语句。因此，当重复动作包含多个语句时，要用begin和end ，使它变成一个复合语句。而repeat语句的保留字repeat和until已经起语句括号作用，可以包含多个语句而无须begin和end。repeat语句中，当布尔表达式为true时结束循环，而while语句中，是当表达式为false时才结束循环。当描述由计算操作后的情况确定重复是否继续进行的计算时，通常用repeat语句描述。 5.3　for 语句 for 语句用来描述已知重复次数的循环结构。for 语句有两种形式： (1) for 控制变量：＝初值　to　终值　do　语句； (2) for 控制变量：＝初值　downto　终值　do　语句； 第一种形式的for 语句是递增循环。首先将初值赋给控制变量，接着判断控制变量的值是否小于或等于终值，若是，则执行循环体，在执行了循环体之后，自动将控制变量的值该为它的后继值，并重新判断是否小于或等于终值。当控制变量的值大于终值时，退出for循环，执行for语句之后的语句。第一种形式的for 语句是递减循环。首先将初值赋给控制变量，接着判断控制变量的值是否大于或等于终值，若是，则执行循环体，在执行了循环体之后，自动将控制变量的值该为它的前趋值，并重新判断是否大于或等于终值。当控制变量的值小于终值时，退出for循环，执行for语句之后的语句。for 语句中的初值、终值、控制变量的数据都必须是顺序类型。当初值和终值确定后，重复的次数就确定不变了，并且控制变量在重复语句内不能施加任何赋值操作。 例：计算1+2+3+……+99+100 program jia; var n,sum:integer; begin sum:=0; for i:=1 to 100 do sum:=sum+i; writeln(sum); end. 5.4　goto语句 goto语句是一种无条件转向语句，它可以控制直接从程序的一条语句转向另一条语句。goto语句的语法形式为： goto　标号； 其中标号必须是不超过４位整数的正整数或标识符组成，但标号必须在说明语句中先予以说明。 goto语句会使程序出现一种称为“乱面条”的结构，因此你最好还是不要去用。 第六章        递归算法 将复杂的处理归纳为较简单的处理，直到 最简单的处理。基础为归纳，即通过观察，得到3个内容： 1、 递归的形式； 2、 最基本式是否有解决的 方案 气瓶 现场处置方案 .pdf气瓶 现场处置方案 .doc见习基地管理方案.doc关于群访事件的化解方案建筑工地扬尘治理专项方案下载 ； 3、 递归终止的条件 1、 某人写了n封信和n个信封，如果所有的信都装错了信封。求所有的信都装错信封共有多少种不同情况。 归纳法例子 1.有n个硬币（n为偶数）正面朝上排成一排，每次将n-1个硬币翻成朝上为止。编程让计算机把翻硬币的最简过程及翻币次数打印出来（用*代表正面，用0代表反面）。 基本形式：D[1]=0;d[2]=1 递归式：d[n]= (n-1)*( d[n-1] + d[n-2]) program lettter; var n:integer; function d(n:integer):longint; begin case n of 1:d:=0; 2:d:=1; else d:=(n-1)*(d(n-1)+d(n-2)); end; end; begin repeat write('n='); readln(n); if n<=0 then writeln('Once more!') until n>0; writeln('d=',d(n)); readln; end. 2、 有一对雌雄兔子，假定两个月便可以繁殖雌雄各一对兔子。问n各月后共有多少对兔子？ 递归的三要素： 递归的形式：T[n]= T[n-1]+ T[n-2] 基本：T[1]=1，T[2]=1 结束条件：n个月 program rabbit; var n:integer; function fa(n:integer):integer; begin if n<3 then fa:=1 else fa:=fa(n-1)+fa(n-2); end; begin write('n=');readln(n); writeln('The number of the rabbits:',fa(n)); end. 3 梯有N阶，上楼可以一步上一价，也可以一次上二阶。编一个程序，计算共有多少种不同的走法。 递归的形式：s[n]=s[n-1]+s[n-2] 基本式子：s[1]=1;s[2]=2 program upstairs; var n:integer; function s(n:integer):longint; begin if (n=1)or(n=2) then s:=n else s:=s(n-1)+s(n-2); end; begin repeat write('N=');readln(n); until n>0; writeln('s=',s(n)); readln; end. 4 、设有2^n个运动员要进行网球比赛。现要设计一个满足以下要求的比赛日程表： （1）、每个选手必须与其他n-1个选手各赛一次； （2）、每个选手每天只能参赛一次； （3）、循环赛在n-1天内结束。program match; const k=3;n=8; var s:array[1..n,1..n] of integer; i,j,p:integer; ju:boolean; procedure copy1(be,en:integer;jug:boolean;q:integer); var m,t,ban:integer; begin if jug then begin if be=1 then begin if s[en,en]=0 then begin copy1(be,en div 2,true,q div 2); copy1((en div 2)+1,en,false,q div 2); end; for m:=1 to en do for t:=1 to en do s[m+q,t+q]:=s[m,t] end else begin if s[be+q-1,q]=0 then begin copy1(be,be+(q div 2)-1,true,q div 2); copy1(be+(q div 2),en,false,q div 2) end; for m:=be to en do for t:=1 to q do s[m+q,t+q]:=s[m,t] end end else begin if s[be,q]=0 then begin copy1(be,be+(q div 2)-1,true,q div 2); copy1(be+(q div 2),en,false,q div 2) end; for m:=be to en do for t:=1 to q do s[m-q,t+q]:=s[m,t] end end; begin p:=8; for i:=1 to n do for j:=1 to n do s[i,j]:=0; for i:=1 to n do begin s[i,1]:=i; if odd(i) then s[i+1,2]:=s[i,1] else s[i-1,2]:=s[i,1]; end; copy1(1,n div 2,true,p div 2); copy1((n div 2)+1,n,false,p div 2); for i:=1 to n do begin for j:=1 to n do write(s[i,j],' '); writeln; end; end. 思考题 1、 数学宝塔，从最顶上走到最底层，每次只能走到下一层的左边或右边的数字，求出使所走到的所有数字之和为60的途径。 7 4  6 6  9  3 6  3  7  1 2  5  3  2  8 5  9  4  7  3  2 6  4  1  8  5  6  3 3  9  7  6  8  4  1  5 2  5  7  3  5  7  8  4  2 2、 汉诺塔问题： 设有三个塔座，依次命名为x,y,z。有z个直径不同的圆盘，由小到大依次编号为1、2、……，n。开始时，它们全部按递减的次序插在塔座上。现要求按下列规则把n个圆盘按次序插放在z塔座上。 （1）、每次只能移动一个圆盘； （2）、圆盘可以从任一个塔座上移到另一个塔座上； （3）、任何时刻都不能把一个较大的圆盘压在较小的圆盘上。 第七章 回溯算法 搜索：全面访问所有可能的情况，分为两种：不考虑给定问题的特有性质，按事先顶好的顺序，依次运用规则，即盲目搜索的方法；另一种则考虑问题给定的特有性质，选用合适的规则，提高搜索的效率，即启发式的搜索。 回溯即是较简单、较常用的搜索策略。 基本思路：若已有满足约束条件的部分解，不妨设为（x1,x2,x3,……xi），I=1)and(i<=5)and(j>=1)and(j<=5) then h[i,j]:=0 else h[i,j]:=1; a[1]:=2;b[1]:=1; a[2]:=1;b[2]:=2; a[3]:=-1;b[3]:=2; a[4]:=-2;b[4]:=1; a[5]:=-2;b[5]:=-1; a[6]:=-1;b[6]:=-2; a[7]:=1;b[7]:=-2; a[8]:=2;b[8]:=-1; num:=0; h[1,1]:=1; try(1,1,2); writeln('num=',num); end. 思考题 1、试编程找出下列字母方阵中所隐含的 单词 英语单词 下载七年级上册英语单词表下载英语单词表下载深圳小学英语单词表 下载高中英语单词 下载 "fujian",单词中字母的走向可以是图的编号为1----8的8个方向，要求打印的格式为： （x,y）,a1,a2,a3,a4,a5 (其中（x,y）为首字母"f"所在的行、列坐标，a1,a2,a3,a4,a5为后续每个字母相对前一个字母的代号。 f u j u a n j i f i u n n u i j u f u a n j n a i a j f i u j n n i n f 第八章  枚举型和子界型 8.1　类型定义 类型定义的语法格式： type <标识符1>=<类型1>； <标识符1>=<类型1>； …… <标识符n>=<类型n>； 8.2　枚举类型 通过预定义列出所有值的标识符来定义一个有序集合，这些值的次序和枚举类型说明中的标识符的次序识一致的。枚举类型的形式：(标识符1，……，标识符n) 例如：type daystype=(sunday,monday,tuesday,wednesday,thursday,friday,saturday) 枚举元素只能是标识符，而不能是数值常量或字符常量。例如以下的定义是错误的： type daystype=('sun','mon','tue','wed','thu','fri','sat') 枚举元素是标识符，不要把作为枚举元素的标识符视作变量名，它不能被赋值。同一个枚举元素不能出现在两个或两个以上的枚举类型定义中。例如以下的定义是错误的： type daytype1=(monday,tuesday); daytype2=(monday,wednesday); 可以将枚举类型的定义和变量的定义结合在一起。例如：var a:(monday,tuesday,sunday) 枚举类型属于顺序类型。根据定义类型时各枚举元素的排列顺序确定它们的序列，序列号从0开始。 例如：已经定义daystype ord(sunday)=0,succ(sunday)=monday,pred(friday)=thursday 但是枚举类型中的第一个元素没有前趋，最后一个元素没有后继。Turbo Pascal不允许直接读写枚举值，所以枚举值的输出常用case语句间接的输出。枚举值的输入，则要一一判断读入字符是否是枚举类型的标识符。若是才能赋给枚举变量，否则就会出错。 例如：枚举值的输出 case day of sunday:write('sunday'); monday:write('monday'); tuesday:write('tuesday'); wednesday:write('wednesday'); thursday:write('thursday'); friday:write('friday'); saturday:write('saturday'); end; 8.3　子界类型 子界类型是由整型、字符型、枚举型、布尔型的两个常量指定该类型的值域区间。子界类型的形式： 常量．．常量 两个常量必须是同一种顺序类型。例如：a．．b，要求a<=b 例如： type a=1..3; b='a'..'d'; 一个子界类型继承它的常量类型的运算符和标准函数，常量类型相容的不同子界类型可以混合运算，可以赋值。可以将子界类型的定义和变量的定义结合在一起。例如：var a:1．．9 例　按月、日、年顺序读入一日期，输出该日期是这一年中的第几天。 program date; var year:0..2010; month,i:1..12; day:1..31; dayth:integer; begin read(month,day,year); dyath:=0; for i:=1 to month-1 do case i of 1,3,5,7,8,10,12:dayth:=dayth+31; 2:if ((year mod 4=0)and(year mod 100<>0)or(year mod 400 =0) then dayth:=dayth+29 else dayth=:=dayth+28; 4,6,9,11:dayth:=dayth+30; end; dayth:=dayth+day; writeln(dayth) end. 8.4　类型相容和赋值相容 1.类型相容性 类型相容是对参加同一运算的两个对象的类型要求。设有两个变量，如果满足下列条件之一，就说这两个变量的类型相容。 (1)两个变量的类型相同 a.两个变量被同一类型说明。 例如：var a,b:1..30; b.两个变量的类型是同一类型标识符。 例如：var a:1..30; b:1..30; c.两个变量的类型是不同的类型标识符，但在类型定义中已经说明两个标识符相同。 例如：type date=1..100; range=date; var m:data; n:range; (2)一个变量的类型是另一个变量的子界。 (3)两个变量的类型都是同一基类型的子界。 (4)两个变量的类型是基类型相容的集合类型。 (5)两个变量的类型是成分相同的串类型。 2.赋值相容性 赋值相容是对赋值操作的两个对象的类型要求。设赋值语句“：＝”左边的变量类型为T，右边表达式的类型为E,若类型T和类型E满足下列条件之一，则称他们是赋值相容的。 (1)T和E是相同的类型，而且类型不是文件类型，也不是具有文件类成分的构造类型。 (2)T是实型，而E是整型或整型的子界。 (3)T和E是类型相容的顺序类型，并且E的值不超出T所定义的值的范围 (4)T和E是类型相容的集合类型，并且E的值不超出T所定义的值的范围 (5)T和E是类型相容的串类型。 当T和E是顺序类型或都是集合类型时，不仅要求这两个类型是相容的，而且要求E的值不超出T所定义的值的范围；否则将产生类型溢出，而这种错误只能在你运行程序时进行检查，因此你必须要避免不发生这种错误。 第九章  数组及其应用 1.数组的定义 数组是程序中最常用的结构数据类型，用来描述由固定数目的同一类型的元素组成的数据结构。数组的每个元素和下标相关联，根据下标指示数组的元素。数组的存储方式为按行存储，在编译阶段，计算机根据数组的类型说明，确定其存储空间的大小。数组可以是任何顺序类型。 数组的定义形式： array [<下标类型1>，……<下标类型n>] of <元素类型> 其中n称为数组的维数，每维的下标类型必须是一个顺序类型，通常为子界类型或枚举类型，其作用是指定数组下标的编制方式和下标取值范围。 例如： type color=(red,yellow,blue); sample1=array [1..10]of integer；｛有10个元素的一维数组} sample2=arrayp[1..5,1..5]of real；{有25个元素的二维数组，依次按[1，1]……，[1，5]，[2，1]……，[2，5]，……[5，1]，……[5，5]} 2.数组的操作 当数组的元素类型为简单类型时，其下标变量和简单类型变量一样使用。例如： a[50]:=50；    a[20]:=a[5]; 一个数组，下标的起始值和终止值是在类型定义中给定的，不能在程序执行中再通过其他途径来改变，所以数组元素的个数在程序运行期间是固定不变的。数组变量作为整体仅允许同类型数组之间的赋值运算。 例如：var x,y:array[1..10]of integer; x::=y 例：读入５个学生的学号和成绩，计算他们的平均分，若比平均分高１０分的等第为A，若比平均分高小于１０分的等地为B，若低于平均分，则等第为C，输出他们的成绩和等第。 program sample7d1(input,output); const n=5; type no=array[1..n] of integer; s=array[1..n]of real; var i:integer; k:real; num:no; score:s; begin k:=0; for i:=1 to n do begin readln(num[i],score[i]); k:=k+score[i]; end; k:=k/n; for i:=1 to n do begin write(num[i],score[i]); if (score[i]-k)>=10 then writeln('A') else if((score[i]-k)<10)and((score[i]-k)>0) then writeln('B') else writeln('C'); end; end. 3、字符串 为了使程序能够处理文字信息，Turbo Pascal特别引入了字符串类型，其值表示一个具有可变长度的字符序列。字符串类型定义形式为： strign[n]或者string 其中正整数n(1<=n<=255)表示构成字符串的字符最多个数，即通常所说的字符串最大长度。而字符串的实际长度决定程序运行时的实际字符个数，可以由函数length返回。若字符串说明中没有指定长度，缺省值为255。 字符串类型定义字符串连接操作‘＋’，是将两个字符串连接成新字符串。连接操作允许字符串类型和字符串类型混合运用。 字符串常量可以通过常量说明语句 const 字符串常量名：string[n]='字符串'； 规定其常量的串长n,并赋初值。例如：const head:string[7]='zhoufei'; Turbo Pascal还提供了不少预定义函数和过程： (1)字符串函数 函数名 自变量及类型 意义 结果类型 concat s1[,s2……,sN]：string 连接字符串序列 string copy s：string，index,count：integer 返回串s的一个子串 string length s：string 返回串s的动态长度 integer pos substr,s：string 返回子串substr在串s中的起始位置 byte (1)字符串过程 过程名 自变量及类型 意义 delete var s,source：string；index,count：integer 从串S中删除一个子串 insert var s：string；index：integer； 在串S中插入一个指定子串 str var x[：width[：Decimals]]；s：string 把一数值转换成相应的字符串表示 val var s：string；code：integer 把一字符串转换成相应的数值 例：字符串函数调用示例 program samplefun; const tur='turbo'; pas='pascal'; var st:string[60]; p:byte; begin st:=concat(tur,pas,'is better than','stand',pas,'.'); writeln(st); writeln(length(st)); st:=copy(st,29,15); writeln(st); p:=pos(pas,st); writeln(p); p:=pos(tur,st); writeln(p); end. 例：字符串过程调用示例 program guocheng; const typedstring:string='turbo pascal is better than standard pascal.'; total:real=388.4; var totalstring:string[60]; integervalue:integer; realvalue:real; status:integer; begin delete(typedstring,13,40); writeln(typedstring); insert('using',typedstring,1); writeln(typedstring); str(total:8:2,totalstring); writeln(totalstring); str(total,totalstring); writeln(totalstring); val('-33',integervalue,status); writeln(integervalue,'':2,status); val('-33.99',realvalue,status); writeln(realvalue:6:2,'':2,status); end. 第十章  函数和过程 一、函数 如果一个子程序执行后能够返回其结果制，那么它就可以用于表达式中，称这种子程序为函数，这种语句序列的定义称为函数说明。函数说明形式如下： function　函数名(形式参数表):函数类型； 说明部分； begin 语句1; 语句2; …… 语句n end 函数返回一个函数值，过程则能完成一系列各种操作。函数的调用方式出现在表达式中，而过程调用是一句独立的语句。 例：计算|X|的函数 function zhoufei(x:real):real; var z:integer; begin if x>=0 then z:=x else z:=-x zhoufei:=z; end; 函数说明第一行为函数首部。它指明函数名、函数形参信息和函数值的数据类型。如上面求x绝对值的函数说明，函数名是zhoufei；它有一个值参数X为实型；函数值的数据类型为实型。Turbo Pascal规定一个函数只能求出一个简单值，所以函数值类型只能是任何非结构类型。 除函数首部和过程首部的句法略有差别外，函数体和过程体完全相同。函数体中至少要有一条语句对函数名赋值。如函数zhoufei 中有语句“power：=z”。函数的每次求值至少要执行这样的一条语句，为次计算求得一个值。返回时就把这个值带调用的地方。 二、过程 给某个语句序列组成的子程序赋于一个适当的名字。程序中凡是需要出现这个语句序列的地方，可以简单的写上子程序的名字。这种完成一个操作的子程序称为过程；子程序的定义称为过程说明。 过程说明由过程首部和过程体组成，其形式如下： procedure 过程名(形式参数表);-------过程首部 说明部分; begin 执行语句; …… end; 例　输出两个数中最大值的过程 procedure largest(a,b:integer); begin if a>b then writeln(a) else writeln(b); end. 上面largest过程由两个类型为整型的形式参数:a,b，你向过程传入的两个需要比较大小的数。 三、形参和实参 子程序调用(过程调用或函数调用)的执行顺序分为以下几步： 实参和形参结合——〉执行子程序——〉返回调用处继续执行 子程序说明的形式参数表对子程序体直接引用的变量进行说明，详细指明这些参数的类别、数据类型要求和参数的个数。子程序被调用时必须为它的每个形参提供一个实参，按参数的位置顺序一一对应，每个实参必须满足对应形参的要求 Turbo Pascal子程序形参有四类： 1.值参数 形式参数表中前面没有var，后有类型的参数。它类似过程和函数的局部变量，仅为过程和函数的执行提供初值而不影响调用时实际参数的值。在调用过程或应用函数时，值参数所对应的实际参数必须是表达式，而且它的值不能使文件类型或包括文件类型的值。实参必须和形参赋值相容。 2.变量参数 形式参数表中前面有var后由类型的参数。如果需要子程序向调用程序返回值时，应采用变量参数。变量参数要求它的实参是和它同一类型的变量。因为在子程序执行时，遇到对相应形参的引用式定值，就是对相应实参的引用式定值，即对形参的任何操作就是对实参本身的操作。 3.无类型变量参数 形式参数表中前面有var而后面没有类型的参数。形参是无类型变量，对应的实参允许为任意类型的变量，但要在子程序中设置的强制类型转换（类型名（无类型变量参数名）），将无类型变量参数改变为相应类型。 4.子程序参数 用过程首部或函数首部作为形式参数。 四、标识符的作用域 1.全局变量和它的作用域 全局变量是指在程序开头的说明部分定义和说明的量。它的作用域分为两种情况： (1)在全局变量和局部变量不同名时，其作用域是整个程序。 (2)在全局变量和局部变量同名时，全局变量的作用域不包含同名局部变量的作用域。 2.局部变量和它的作用域 凡是在子程序内部使用的变量，必须在子程序中加入说明。这种在子程序内部说明的变量称为局部变量。局部变量的作用域是其所在的子程序。形式参数也只能在子程序中有效。因此也属于局部变量。局部变量的作用域分为两种情况： (1)当外层过程序的局部变量名和嵌套过程中的局部变量不同名时，外层过程的局部变量作用域包含嵌套过琛。 (2)当外层过程的局部变量名和嵌套过程内的局部变量名同名时，外层局部变量名的作用域不包含此过程。 第十一章  集合与记录 一、集合 以已知序数类型值的集合为值，所构成的类型是集合类型，称已知序数类型为基类型。集合类型的定义形式为： 集合类型名＝set of　基类型 限定基类型为枚举类型、字符型、布尔型以及它们的子界和整型子界。由于基类型中不能超过256个可能值，且它们的序数值应在0．．255之间，因此基类型不能是短整型、整型、长整型。 表示一个集合值的最通用的方法是逐个枚举集合的元素。下面是集合值标记的例子： ［3，9，15，20] {由3，9，15，20组成的集合} ［　］ {空集} ［'l'..'p','z'　］{由字符l,m,n,o,p,z组成的集合} 两个相连的集合对象之间，可以通过下列运算符进行运算 集合运算符： + 产生一个包含两个集合元素的集合 * 产生一个只包含两个集合元素公共元素的集合 － 产生一个包含所有属于第一个集合、但不属于第二个机和的元素的集合 例如：[A,B,C]+[D]等于[A,B,C,D] [A,B,C]*[A]等于[A] [A,B,C]－[A]等于[B,C] 关系运算符 = 检查两个集合所包含的元素相同 <> 检查两个集合不相等 <= 检查第一个集合中的元素都在第二个集合中出现 >= 检查第一个集合中的元素包含第二个集合中的所有元素 in 检查集合基类型的一个元素属于集合 例如：[A,B,C]=[A,B,C]　等于true [A,B,C]<>[C,B,A]　等于FALSE 9.2　记录 记录是描述同一对象的一组类型可能不同的数据的集合。使用记录类型实现了数据逻辑关系和存放形式上的一致。定义记录类型的一般形式 记录类型名＝record 域名1：类型1； 域名2：类型2； …… 域名m：类型m； end； 例如：表示学生信息的记录定义 type stype=record name:string[20]; number:integer; sex:(male,female); class:1..20 address:string end; 域为记录类型的元素。记录的每个域都有名称，不同域的数据类型可以各不相同，这一点是数组所不能做到的。引用记录变量的元素采用以下标记法： (1)直接引用，其形式为 记录变量名．域名 例如：var str1,str2:stype; 则str1.name表示学生str1的姓名，str2.sex表示学生str2的性别。 (2)使用with开域语句，其形式为 with 记录变量名 do 语句 在with语句中，引用记录变量名不再冠以记录变量名，以简化对记录中域的引用写法。例如描述100个学生的数据信息，引入元素类型为stype的数组students。 var students:array[1..100]of stype; number_of_boy,number_of _girl,k:integer: 例如下面是一段统计一个班级中男生人数和女生人数的程序。 begin number_of_boy:=0;number_of_girl:=0; for k:=1 to 100 do with student[k] do if sex=male then number_of_boy:=number_of_boy+1 else number_of_girl:=number_of_girl+1 end; with语句的嵌套结构的一般形式： with <记录变量名1>　do with <记录变量名2>　do …… with <记录变量名n>　do <语句>； 使用with嵌套结构时，with的嵌套顺序必须和所打开的记录的嵌套顺序一致，以就是说外层with打开外层记录，内层with打开内层记录。上面的嵌套格式也可以简写为： with <记录变量名1，记录变量名2，……，记录变量名n>　do <语句>； 若记录是由一部分固定不变和另一部分变化部分是随固定部分中的某个数据项的具体取值而定的数据项所组成的称为记录变体。带记录变体的记录类型定义有以下形式： type <类型标识符>=record <域名1>:<类型1>; <域名2>:<类型2>; …… <域名n-1>:<类型n-1>; case <标志域>:<类型n> of <常量表1>:<域表1>; <常量表2>:<域表2>; …… <常量表m>:<域表m>; end; 例：重新定义描述学生信息的记录类型stype，对于大专生，不需要增加其他信息，对于本科生，增加专业信息。 type stype=record name:string[20]; number:integer; sex:(male,female); class:1..20 address:string case studtype:(s,u) of s:( ); u:(major:string); end; 第十二章  指针 一、指针的动态变量 1.定义指针类型 在Turbo Pascal中，指针变量中存放的某个存储单元的地址，即指针变量指向某个存储单元。一个指针变量仅能指向某一种类型的存储单元，这种数据类型是在指针类型的定义中确定的，称为指针类型的基类型。指针类型定义如下： 类型名＝^基类型名； 例如：type q=^integer; var a,b,c:q; 说明q是一指向整型存储单元的指针类型，其中"^"为指针符。a,b,c均定义为指针变量，分别可以指向一个整型存储单元。 上例也可定义为： var a,b,c:^integer; 指针也可以指向有结构的存储单元。 例如：type person=record name:string[10]; sex:(male,female); age:20..70 end; var pt:^person; pt为指向记录类型person的指针变量。 2.动态变量 应用一个指针指向的动态存储单元即动态变量的形式如下： 指针变量名^ 例如：p^、q^、r^ 指针变量p和它所指向的动态变量^p之间有如下关系： P－>P' 以下语句把整数5存放到p所指向的动态变量p^ 中去： p^:=5; 以下语句把p所指向的p^中的值赋给整型变量i： i:=p^; 如果指针变量p并未指向任何存储单元，则可用下列赋值语句： p:=nil; 其中nil是Turbo Pascal保留字，表示“空”，相当于C里面的null 二、对动态变量的操作 在Turob Pascal程序中，动态变量不能由var直接定义而是通过调用标准过程new建立的。过程形式为： new(指针变量名); 如果有下列变量定义语句： var p:^integer; 仅仅说明了p是一个指向整型变量单元的指针变量，但这个整型单元并不存在，在指针变量p中还没有具体的地址值。在程序中必须通过过程调用语句：new(p);才在内存中分配了一个整型变量单元，并把这个单元的地址放在变量p中，一个指针变量只能存放一个地址。在同一时间内一个指针只能指向一个变量单元。当程序再次执行new(p)时，又在内存中新建立了一个整型变量单元，并把新单元的地址存放在p中，从而丢失了旧的变量单元的地址。 为了节省内存空间，对于一些已经不使用的现有动态变量，应该使用标准过程dispose予以释放。过程形式为：dispose(指针变量名)；为new(指针变量名)的逆过程，其作用是释放由指针变量所指向的动态变量的存储单元。例如在用了new(p)后在调用dispose(p)，则指针p所指向的动态变量被撤销，内存空间还给系统，这时 p的值为 nil。 例：输入两个数，要求先打印大数后打印小数的方式输出，用动态变量做。 program dongtai; type intepter=^integer; var p1,p2:intepter; procedure swap(var,q1,q2:intepter); var p:integer; begin p:=q1;q1:=q2;q2:=p; end; begin new(p1);new(p2); writeln('input 2 data: ');readln(p1^,p2^); if p1^ writeln('output 2 data: ',p1^:4,p2^:$); end. 第十三章  类型文件 按数据的二进制代码形式存放时的文件称为类型文件。如果再按照组成类型文件的元素数据结构分，又可以分为有类型文件和无类型文件。其定义为： type 类型名=file of 基类型；{有类型文件} 类型名=file；    {无类型文件} 例如：var f:file of integer; 说明f为名的变量对应文件将用于存放整数。 var g:file; 说明g为名的变量对应文件的数据无任何规定。 Turbo Pascal有关类型文件的函数和过程 （1）assign过程 形式：assign(f,str); 功能：将文件名字符串str赋给文件变量f，程序对文件变量f的操作代替对文件str的操作。 （2）rewrite过程 形式：rewrite(f); 功能：建立并打开一个新的允许写磁盘文件，其文件名必须先由assign过程赋给变量f。这时，指向文件元素的指针指向第一个元素，rewrite过程所建立的文件为空文件。 （3）reset过程 形式：reset(f); 功能：打开一个已经存在的磁盘文件，其文件名必须先由assign过程赋给变量f,该文件只能读，指向文件元素的指针指向第一个元素。 （4）read过程 形式：read(f,var表); 功能：从磁盘文件f中，将数据依次读到var表表示的各个变量中。 （5）write过程 形式：write(f,var表); 功能：将var表所表示的各个变量的值依次写到磁盘文件f上。 （6）close过程 形式：close(f); 功能：关闭和f关联的磁盘文件，在写操作时自动产生一个文件结束标志。 （7）seek过程 形式：seek(f,n); 功能：把文件指针移到f指明文件的第n个元素。 （8）eof函数 形式：eof(f); 功能：若文件指向文件尾，则返回true,否则返回false。 对有类型文件的写操作步骤为： assign(f,str); rewrite(f); write(f,var表); close(f); 对有类型文件的读操作步骤为： assign(f,str); reset(f); read(f,var表); close(f); 例：在磁盘上建立一个1～50的平方数的数据文件zhoufei.dat。要求以一个数，这个数的平方数的格式写入。 program zhoufei; var f:file of integer; i:integer; begin assign(f,'zhoufei.dat'); rewrite(f); for i:=1 to 50 do write(f,i,sqr(i)); close(f) end. 文本文件 文本文件的内容有ASCII字符集中的字符组成，因此文本文件也称ASCII码文件，它可以用DOS中的type命令列出内容。文本文件具体是由一系列行组成，每一行可以包括0个或多个字符型成分，并以也行结束符结尾，文本文件类型TXT和类型文件file of char区别在于后者不包含行结束符。 文本文件和类型文件在读写上的差别在于前者只能按次序顺序读写，而后者可以不按照次序读写。适用文本文件的函数和过程除了用于类型文件操作的过程和函数外主要还有： （1)readln过程 形式：readln(f,var表);或readln(f）； 功能：从磁盘文件f中，将数据依次读到var表表示的各变量中（其中readln(f)只读数据），并将文件指针移到行结束符后，就是下一行开头。 （2）writeln过程 形式：writeln(f,var表)或writeln(f); 功能：将var表所表示的各个变量的值依次写到磁盘文件f上去（writeln(f)不写值），然后再写一个行结束符。 （3）append过程 形式：append(f); 功能：打开一个已经存在的磁盘文件，其文件名必须和assign过程中的变量名f相对应，该文件只能写，此时文件指针指向文件尾。 （4）eoln函数 形式：eoln(f); 功能：若文件指针指向行结束符或文件结束符，则返回true，否则返回false。 对文本文件的写操作步骤： assign(f,str); rewrite(f);  或append(f); write(f,var表);或writeln(f); close(f); 对文本文件的读操作步骤： assign(f,str); reset(f);  readln(f,var表);或readln(f); close(f); 例：随机产生30个随机整数存放于文本文件zhoufei.txt 中 program zhoufei; const n=30; var ra:text; i:integer; begin randomize; assign(ra,'zhoufei,txt'); rewrite(ra); for i:=1 to n do writeln(ra,random(100)); close(ra) end. 第十四章  实数类型 一个实型数据用来存放实数。Turbo Pascal支持五种预定义实型，它们是基本实型（Real）、单精度实型（Single）、双精度实型（Double）、扩展实型（Extended）和装配实型（Comp）。每一种类型规定了相应实数取值范围，其所占内存字节数，以及它们所能达到的精度即有效数字位数：类型 取值范围 占字节数 有效位数 数字协处理器 说明 Real 2.9E-39~1.7E+38 6 7~8 不需要 速度慢 Single 1.5E-45~3.4E+38 4 11~12 需要 Double 5.0E-324~1.7E+308 8 15~16 需要 Extended 1.9E-4951~1.1E+4932 10 19~20 需要 Comp -2^63~2^63-1 8 19~20 需要 自动取整 所有的程序都可使用基本实型Real，而对其它四种类型Single、Double、Extended和Comp，则要求系统提供数字协处理器----8087、80287或80387芯片，或者由软件模拟的仿真程序。前者的优点是提高对实型数据的处理速度，并减少舍入误差。Turbo Pascal为后者提供了仿真程序。可以根据具体的计算机配置，使用IDE中菜单项选择或在程序中使用编译指示，来确定采用哪种方式。 ·使用实数类型需要的编译注释 除了基本实型Real，其它四种类型Single、Double、Extended和Comp都要求系统提供数字协处理器。无论使用数字协处理还是用仿真程序代替，都应用编译注释声明：{$N+}。 第十五章 设置正文文件缓冲区 Pascal的System单元提供了一个过程SetTextBuf，它可以对一个正文文件设置一个输入输出缓冲区，以提高文件输入输出操作的速度。它的定义如下： procedure SetTextBuf(var F:Text;var Buf[;Size:Word]); 注意，不要对已打开的正文文件使用此过程，否则可能会遗失数据。 ·例子 下面是设置正文文件缓冲区的例子： var Buf:array[0..4095] of Byte;{此处可以是任何类型，空间越大，文件读取速度越快} F:Text; begin Assign(F,'Text.txt'); SetTextBuf(F,Buf,SizeOf(Buf)); Reset(F); ...{这里可以对正文文件F进行读写操作。} Close(F); end. 第十六章  编译模式 在Pascal的IDE下，打开菜单Compile，选择项目Target，会弹出一个窗口，有三种选择：Real mode Application、Protected mode Application和Windows Application。这其实就是选择程序（或单元）的编译模式，分别对应的编译模式为：DOS实模式、保护模式和Windows模式。 选择不同的编译模式编译程序或单元，会生成不同类型的程序，运行在不同的环境中，使用相应模式的单元。不同编译模式的程序可以使用的标准单元有所不同；即使是同一个单元，在不同的编译模式下，代码也可能略有不同。 用不同的编译模式编译程序是BP7比BP6新增的一项重要功能。 ·不同的编译模式 ·DOS实模式（Real mode） 这是默认的编译模式，TP7和其以前的版本都是使用这种编译模式的。程序运行在DOS实模式环境中，只能使用最大640KB的常规内存，速度较快，生成代码较短。DOS实模式的单元文件扩展名为.tpu； ·保护模式（Protected mode） DOS是一个实模式的操作系统，只能管理640KB的常规内存，对于拥有数十至数百MB的扩充内存则无法访问。为了弥补DOS的这个缺陷，各大计算机公司联合制定了一个叫做“DOS保护模式界面”（DPMI）的协定，以规范保护模式下程序的运行。DPMI是对DOS的扩展。在DPMI协议之下，DOS应用程序可以访问计算机的所有内存。而Pascal的保护模式，就是使用这个规范的的一种编译模式。 程序运行在DOS保护模式环境中，能使用扩充内存，速度略有下降，不能调试。生成的EXE文件有时需要把Pascal的附带文件rtm.exe复制到同一目录下才能运行。保护模式的单元文件扩展名为.tpp； 在保护模式下，System单元有两个Word类型变量：HeapBlock和HeapLimit。它们影响程序使用扩充内存的性能。如果使用默认值，即不对其进行修改，不能充分利用扩充内存，经常只能使用到总内存的一半。我经过多次试验，发现把它们都赋值为64000时，较能充分利用扩充内存。 ·Windows模式（Windows） 这是用以编写Windows 3.x应用程序的编译模式，我觉得没什么用，现在Pascal程序员编写Windows程序都用Delphi了。Windows模式的单元文件扩展名为.tpw。 ·编写适应不同编译模式的程序 在不同的编译模式下，标准单元的代码有所不同。要编写适应不同编译模式的程序，就要使程序在不同的编译模式下生成不同的代码。这需要用到条件编译注释。 例如，如果在程序的一部分中，当使用实模式编译时用代码A，使用保护模式编译时用代码B，就可以这样编写： {$IFDEF MSDOS} A {$ENDIF} {$IFDEF DPMI} B {$ENDIF} 第十七章  编译指示 Pascal借助于一系列编译指示来控制整个编译过程。这是Pascal编译器的一大特点。系统已规定好每一种编译指示的缺省值，藉以缩短代码长度，加快执行速度。同时，系统也允许用户根据需要和习惯来设置某个或某些编译指示的缺省值，或者在程序中按要求设置特定的编译指示。 在Pascal的IDE下，打开菜单Options，选择项目Compiler，它将显示所有的编译指示以及它们的缺省值。可以对这些缺省值进行修改。一旦认可之后，便可作为系统新的编译指示缺省值，将影响以后对源程序的编译。 ·在程序中设置编译指示 编译指示写成具有特殊语法的注释形式。它以左花括号开头，紧跟一个美元符号“$”，后跟有关信息，而以右花括号结尾。程序中凡是可以使用注释的地方，均可以出现编译指示。 Pascal共有三种类型的编译指示： 1.开关编译指示——通过在指示字母后面指定+或-来打开或关闭某种编译性能； 2.参数编译指示——指定影响编译的参数如文件名、单元名或内存设置等； 3.条件编译指示——根据用户定义的条件符对部分源程序进行条件编译。 例如： {$R+}表示进行下标范围检查； {$D-,I-,S-}表示不产生调试信息，不检查I/O错误，不检查栈空间域是否溢出； {$I Types.inc}表示在该编译指示所在位置把文件Types.inc的源代码嵌入正在编译的正文中； {$M 65520,8192,655360}表示指定栈大小为6552 0字 个人自传范文3000字为中华之崛起而读书的故事100字新时代好少年事迹1500字绑架的故事5000字个人自传范文2000字 节，堆最小值和最大值分别为8192和655360字节。 {$IFDEF MSDOS}……{ENDIF}表示在DOS实模式下编译时编译省略号部分，否则忽略。 ·编译指示表 开关编译指示表；常用参数编译指示表；条件编译指示表。 第十八章  从一题多解看解题方法 信息学竞赛，要求学生有很强的思维能力和逻辑推理能力。下面通过一题多解,层层深入，希望能够起到抛砖引玉的作用。题目：求1×2×3×……×n所得的数末尾有多少个0？（1000〈n〈10000）即：若把n！分解成b×10 x形式，其中b为不能被10整除的正整数，求x为多少？ 看到这个题目，一般读者想到计算机的运算速度那么快，可以先求出1×2×3×...×n这个数，再数出后面的0的个数，可是计算机的长整型也只能表示出10位有效数字，而n的阶乘（1000〈n〈10000）有上万位数，计算机能表示出来吗？所以这种方法行不通，我们必须想出其它的方法来解决这个问题，在这里我们用PASCAL语言提供三种方法。 方法一：采用从1乘到n，每乘一个数判断一次，若后面有0则去掉后面的0，并记下去掉的0的个数。我们是求后面的0的个数，与前面一些数无关，为了不超出数的表示范围，去掉前面与0无关的数，只保留三位有效数，当乘完n次后就得到0的个数。 program ex1; var i,ii,n:integer; sum:longint; begin ii:=0; sum:=1; write('please input n:'); readln(n); for i:=1 to n do begin sum:=sum＊i; while sum mod 10=0 do begin sum:=sum div 10; ii:=ii＋1; end; sum:=sum mod 1000; end; writeln(ii:6); end. 方法二：第一种方法能得到正确的结果，可是运行的次数太多了，在1×2×3×...×n这些数中有些与生成0无关的数（如3、7、9、13等）可以不考虑进去，其实影响生成0的数只有2的倍数和5的倍数，如在1到9这些数中只有2×5，4×5，6×5，8×5，这些数能生成0，从这些数中我们还可以看出，真正影响生成0的是5的倍数，这些数的分解数含2的数显然多于含5的数，因此我们可以得出这样一个结论：n！的分解数中有多少个5，末尾就有多少个0。这样就可以使外面的大循环的次数减少五分之四。 program ex2; var i,ii,j,n:integer; begin j:=5;ii:=0; write('please input n:'); readln(n); while j<=n do begin i:=j; while i mod 5 =0 do begin i:=i div 5; ii:=ii＋1; end; j:=j＋5; end; writeln(ii:6); end. 方法三：第二种方法是把含5的数转变成含0的数，再求0的个数，我们已经知道n！的分解数中有多少个5就有多少个0，我们可不可以直接求5的个数呢？答案是肯定的。这种方法就是根据含5的个数求0的个数，用层层剥皮法。先以5为步长，执行一次循环，进行第一次剥皮，求出含5的个数（个数为n/5取整），通过第一次剥皮5，10，15，20，25，30...变成1，2，3，4，5，6...再以5 2为步长，执行第二次循环，进行第二次剥皮，求出含5 2的个数（个数为n/25取整），在第一次剥皮后25，50，75，100，125，150……这些数变成5，10，15，20，25，30……再经过第二次剥皮就变成1，2，3，4，5，6……再以5 3为步长……直到步长大于或等于n退出循环，具体实现如下： program ex3; var i,ii,n:integer; begin write('please input n:'); readln(n); i:=n; ii:=0; while i>=5 do begin i:=i div 5 ; ii:=ii＋i; end; writeln(ii:6); end. 这三种方法，从常规思维到方法一，从方法一到方法三，思维过程步步加深，循环次数成倍减少，方法一与方法二外循环次数分别为n次和n/5次，里面还有内循环，方法三只需√n次循环，笔者实习期间曾以此题为竞赛题目考查学生的思维能力，推理能力，激发学生学习计算机的兴趣，起到了很好的效果。