Pascal教程(整理版).doc

第一章　简单程序 2第一节 Pascal 程序结构和基本语句 2第二节 顺序结构程序与基本数据类型 7第二章　分支程序 11第一节 条件语句与复合语句 11第二节 情况语句与算术标准函数 13第三章　循环程序 16第一节　for 循环 16第二节　repeat 循环 22第三节　While 循环 27第四章　函数与过程 32第一节　函数 32第二节　自定义过程 35第五章　Pascal的自定义数据类型 39第一节　数组与子界类型 39第二节　二维数组与枚举类型 47第三节　集合类型 55第四节　记录类型和文件类型 59第五节 指针类型与动态数据结构 66第六章 程序设计与基本算法 72第一节　递推与递归算法 72第二节　回溯算法 79第七章　数据结构及其应用 85第一节　线性表 85第二节　队列 89第三节　栈 92第四节　数组 96第八章 搜索 99第一节　深度优先搜索 99第二节　广度优先搜索 110第九章 其他常用知识和算法 114第一节　图论及其基本算法 114第二节　动态规划 121第一章　简单程序无论做任何事情，都要有一定的方式方法与处理步骤计算机程序设计比日常生活中的事务处理更具有严谨性、规范性、可行性。

为了使计算机有效地解决某些问题，须将处理步骤编排好，用计算机语言组成“序列”，让计算机自动识别并执行这个用计算机语言组成的“序列”，完成预定的任务将处理问题的步骤编排好，用计算机语言组成序列，也就是常说的编写程序在Pascal语言中，执行每条语句都是由计算机完成相应的操作编写Pascal程序，是利用Pascal语句的功能来实现和达到预定的处理要求千里之行，始于足下”，我们从简单程序学起，逐步了解和掌握怎样编写程序第一节 Pascal 程序结构和基本语句在未系统学习Pascal语言之前，暂且绕过那些繁琐的语法规则细节，通过下面的简单例题，可以速成掌握Pascal程序的基本组成和基本语句的用法，让初学者直接模仿学习编简单程序[例1.1]编程在屏幕上显示“Hello World!” Pascal程序：Program ex11;Begin Writeln(‘Hello World!’); ReadLn;End. 这个简单样例程序，希望大家的程序设计学习能有一个良好的开端程序中的Writeln是一个输出语句，它能命令计算机在屏幕上输出相应的内容，而紧跟Writeln语句后是一对圆括号，其中用单引号引起的部分将被原原本本地显示出来。

[例1.2]已知一辆自行车的售价是300元，请编程计算a辆自行车的总价是多少？解：若总售价用m来表示，则这个问题可分为以下几步处理：①从键盘输入自行车的数目a；②用公式 m=300*a 计算总售价；③输出计算结果Pascal程序： Program Ex12; {程序首部} Var a,m : integer; {说明部分} Begin {语句部分} Write(‘a=’); ReadLn(a); {输入自行车数目} M := 300*a; {计算总售价} Writeln(‘M=’,m); {输出总售价} ReadLn; {等待输入回车键} End.此题程序结构完整，从中可看出一个Pascal 程序由三部分组成:(1)程序首部由保留字Program开头，后面跟一个程序名(如:Exl1)；其格式为: Program 程序名；程序名由用户自己取，它的第一个字符必须是英文字母，其后的字符只能是字母或数字和下划线组成，程序名中不能出现运算符、标点符和空格2)说明部分程序中所用的常量、变量，或类型、及过程与自定义函数，需在使用之前预先说明，定义数据的属性（类型）。

[例1.2] 程序中 Var S，R，C: Real； 是变量说明，此处说明S，R，C三个变量均为实数类型变量只有被说明为某一类型的变量，在程序中才能将与该变量同类型的数值赋给该变量变量说明的格式为: Var 变量表：类型；(3)语句部分指由保留字 Begin (开始)至 End. (结尾)之间的语句系列，是解决问题的具体处理步骤，也是程序的执行部分Pascal程序不管是哪部分，每句末尾都必须有分号(；)，但允许最接近 End 的那个语句末尾的分号省略；程序结束的End末尾必须有圆点(. )，是整个程序的结束标志程序中花括号“{ }”之间的部分为注释部分Pascal程序结构可归纳用如下的示意图来表示： Program 程序名； 程序首部 标号说明； (Label) 常量说明； (Const) 说明部分 类型说明； (Type) 变量说明； (Var) 过程或函数说明； Begin 程序体 (主程序) 语句系列； 语句部分 End. 图1.1 Pascal程序的结构把处理问题的步骤编成能从上到下顺序执行的程序，是简单程序的基本特征。

再来分析下面两道例题的Pascal程序结构和继续学习基本语句［例1.3］编程计算半径为R的圆的面积和周长解：这是一个简单问题，按数学方法可分以下几步进行处理： ① 从键盘输入半径的值R； { 要求告诉圆的半径R } ② 用公式 S=πR2 计算圆面积； ③ 用公式 C=2πR 计算圆周长； ④ 输出计算结果Pascal程序: Program Ex13； {程序首部 } Var R，S，C: Real； {说明部分 } Begin {语句部分 } Write ('R=?')； Readln(R)； {输入半径 } S:=Pi*R*R； ｛圆面积公式S=πR2｝ C:=2*Pi*R； ｛圆周长公式C=2πR｝ Writeln('S='，S)； {输出结果 } Writeln('C='，C)； Readln ｛等待输入回车键｝ End.程序中Pi是Pascal提供的标准函数，它返回圆周率的近似值：3.1415926…。

)是赋值符号，赋值语句的格式为: 变量:=表达式；赋值语句的作用是将:=右边表达式的值记录到左边的变量中Writeln是输出语句，输出语句有三种格式: ① Write (输出项1，输出项2) ； ｛执行输出后光标不换行｝ ② Writeln (输出项1，输出项2) ； ｛执行输出后光标换到下一行｝ ③ Writeln ｛仅输出空白且光标换到下一行｝Writeln语句后面的圆括号以内部分均为输出项，可以是多项，各项间用逗号分隔； 对单引号里的内容按照引号内的原样(字符)输出显示如果输出项是表达式，则只输出表达式的值，而不是表达式本身[例1.4] 输出两个自然数相除的商和余数解:设被除数、除数、商和余数，分别为A，B，C，D，均为变量，且都是整数类型题中未给出具体的自然数A、B，可采用键盘输入方式 ① 给出提示，从键盘输入a, b； ② 显示两数相除的数学形式； ③ 求出a除以b的商c； ④ 求出a除以b的余数d； ⑤ 紧接等式后面输出显示商和余数Pascal程序: Program Ex14； Var a,b,c,d : integer； Begin Write('INPUT A，B：')； ｛给出提示信息｝ Readln(a，b)； ｛输入a，b｝ Writeln； ｛输出一空行｝ Write(a，'/'，b，'=')； ｛输出等式之后不换行｝ c:=a div b； ｛整除运算，取商的整数部分｝ d:=a mod b； ｛相除求余运算，取商的余数部分｝ Writeln(C，'…'，d)； {输出后自动换行 } Readln {等待输入回车键 } End.执行本程序中第一个Write语句，输出其引号以内的一串提示信息，是给紧接着的输入语句提供明确的提示(要求)，有“一目了然，人机对话”之效果。

Readln是一个特殊的输入语句，要求输入一个回车(换行)才能往下执行 Readln是输入语句，它的一般格式为: ① Read (变量1，变量2)； ② Readln (变量1，变量2)； ③ Readln前两种格式均要从键盘给变量输入数据，输入时，所键入的数据之间以空格为分隔，以回车为输入结束若多输入了数据(即数据个数超过变量个数)，Read语句读完数据之后，能让后续的读语句接着读取多下来的数据；而Readln 语句对本行多输入的数据不能让后续语句接着读取多下来的数据为了防止多输入的数据影响下一个输入语句读取数据，建议尽量使用Readln语句输入数据第三种格式不需输入数据，只需按入一个回车键[例1.5]自然数的立方可以表示为两个整数的平方之差，比如43=102－62，请输出自然数1996的这种表示形式这里的43用自乘三次的形式4*4*4表示；102也用自乘二次的形式10*10表示)解:此题没有现成的计算公式能直接利用，但可以自行推出处理方法或构建适当的运算公式，按着构想的处理方案编排出各步骤。

设这个自然数为N，两个平方数分别为X，Y， 将问题表示为求 N3=X2—Y2① 先找出X的值，仔细观察题中的示例，用数学方法归纳可得出X=N*(N+1)/2；（构成本题可用的计算公式）② 再仔细观察，发现Y值比X小一个N值，即 Y=X—N；③ 输出等式 N3=X2—Y2 或N*N*N=X*X—Y*YPascal程序: Program Ex15； Const N=1996； {常量说明 } Var X，Y: Longint； {变量说明，此题计算中的数值较大，用长整型 } Begin X:=N*(N+1) div 2； { div 是整除运算 } Y:=X-N； Writeln(N,。