FREE PASCAL 教程
Free Pascal教程
目录
第一章简单程序 (2)
第一节Pascal程序结构和基本语句 (2)
第二节顺序结构程序与基本数据类型 (6)
第二章分支程序 (9)
第一节条件语句与复合语句 (9)
第二节情况语句与算术标准函数 (10)
第三章循环程序 (14)
第一节for循环 (14)
第二节repeat循环 (20)
第三节While循环 (24)
第四章函数与过程 (29)
第一节函数 (29)
第二节自定义过程 (31)
第五章Pascal的自定义数据类型 (36)
第一节数组与子界类型 (36)
第二节二维数组与枚举类型 (43)
第三节集合类型 (51)
第四节记录类型和文件类型 (55)
第五节指针类型与动态数据结构 (61)
第六章程序设计与基本算法 (66)
第一节递推与递归算法 (66)
第二节回溯算法 (72)
第七章数据结构及其应用 (78)
第一节线性表 (78)
第二节队列 (81)
第三节栈 (84)
第四节数组 (88)
第八章搜索 (91)
第一节深度优先搜索 (91)
第二节广度优先搜索 (101)
第九章其他常用知识和算法 (105)
第一节图论及其基本算法 (105)
第二节动态规划 (112)
第一章简单程序
无论做任何事情，都要有一定的方式方法与处理步骤。计算机程序设计比日常生活中的事务处理更具有严谨性、规范性、可行性。为了使计算机有效地解决某些问题，须将处理步骤编排好，用计算机语言组成“序列”，让计算机自动识别并执行这个用计算机语言组成的“序列”，完成预定的任务。将处理问题的步骤编排好，用计算机语言组成序列，也就是常说的编写程序。在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.1Pascal程序的结构
把处理问题的步骤编成能从上到下顺序执行的程序，是简单程序的基本特征。再来分析下面两道例题的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*Y
Pascal程序:
Program Ex15；
Const N=1996；{常量说明}
Var X，Y:Longint；{变量说明，此题计算中的数值较大，用长整型}
Begin
X:=N*(N+1)div2；{div是整除运算}
Y:=X-N；
Writeln(N,'*',N,'*',N,'=',X,'*',X,'—',Y,'*',Y)；{输出结果}
Readln
End.
本程序中N是常量，X，Y是变量，为长整数类型(Longint)；程序中的div是整除运算，其结果只取商的整数部分；
[例1.6]求一元二次方程x2+3x+2=0的两个实数根。
解:方程的系数是常量，分别用a，b，c表示，可运用数学上现成的求根公式求方程的根，采取如下方法:
①先求出d=b2-4ac；（求根公式中需用开方运算的那部分）
②再用求根公式算出x1，x2的值。(x1，x2=?)
③输出x1，x2.
Pascal程序:
program Ex16；
Const a=1；{常量说明}
b=3；
c=2；｛a，b，c表示方程系数｝
Var d:integer；｛d为整型变量｝
X1，X2:Real；｛X1，X2为实型变量｝
Begin
d:=b*b-4*a*c；
x1:=(-b+sqrt(d))/(2*a)；｛求方程的根｝
x2:=(-b-sqrt(d))/(2*a)；
）Writeln('X1='，X1，'':6，'X2='，X2)；{输出结果}Readln ｛等待输入一个回车键｝End.
本程序中的a ，b ，c 均为常量；变量d 是整数类型，而变量x1，x2则是实数类型，因为运算式中的Sqrt(d)开平方运算和(/)除法运算使结果为实数。Sqrt()是开平方函数，是Pascal 系统的一个标准函数。习题1.1模仿例题编程
1.加法计算器：编程由键盘输入两个整数a 和b ，计算出它们的和并输出到屏幕上。
2.某梯形的上底、下底和高分别为8，12，9，求该梯形的面积。
(梯形面积公式为S=
3.求右图所示边长为5.6
的正立方体表面积。
4.已知图园柱体的高为12，底面园的半径为7，求园柱体表面积。
5.计算某次考试语文、数学、英语和计算机等四科的总成绩与平均成绩。(请用输入语句从键盘输入各科成绩分)
第二节顺序结构程序与基本数据类型
前面的简单程序已体现出处理问题步骤、思路的顺序关系，这就是顺序结构程序。
［例1.7］交换两个变量的值：由键盘输入两个正整数A 和B ，编程交换这两个变量的值。
解：交换两个变量的值，可以想象成交换两盒录音带（称为A 和B ）的内容，可以按以下步骤处理：步骤①：拿一盒空白录音带C 为过渡，先将A 翻录至C ；步骤②：再将B 翻录至A ；步骤③：最后将C 翻录至B 。这样操作，可达到题目要求。Pascal 程序：Program Exam17;Var a,b,c :integer;Begin
Write(‘A,B=’);Readln(a,b);C:=A;｛等价于步骤1｝A :=B;｛等价于步骤2｝B :=C;｛等价于步骤3｝Writeln(A,B);End.
[例1.8]分钱游戏。甲、乙、丙三人共有24元钱，先由甲分钱给乙、丙两人，所分给的数与各人已有数相同；接着由乙分给甲、丙，分法同前；再由丙分钱给甲、乙，分法亦同前。经上述三次分钱之后，每个人的钱数恰好一样多。求原先各人的钱数分别是多少?
解:设甲、乙、丙三人的钱数分别为A ，B ，C 。用倒推(逆序)算法，从最后结果入手，按反相顺序，分步骤推算出每次各人当时的钱数:（在每个步骤中，各人钱数分别存在A 、B 、C 中）
步骤①:A=8B=8C=8{这是最后结果的钱数，三人都一样多}
步骤②:A=A/2(=4)B=B/2(=4)C=A+B+C(=16){A ，B 未得到丙分给的钱时，只有结果数的一
半；C应包含给A，B及本身数三者之和}
步骤③:A=A/2(=2)C=C/2(=8)B=A+B+C(=14){A，C未得到乙分给的钱时，只有巳有数的一半；B应包含给A，C及本身数三者之和}
步骤④:B=B/2(=7)C=C/2(=4)A=A+B+C(=13)
C未得到甲分给的钱时，只有巳有数的一半；A应包含给B，C及本身数三者之和}
步骤⑤:输出A（=13）B（=7）C（=4）{此时的A，B，C就是三人原先的钱数}
Pascal程序:
Program Exam18；
Var a，b，c:integer；
Begin
a:=8；b:=8；c:=8；{对应于步骤①}
a:=a div2；b:=b div2；c:=a+b+c；{对应于步骤②}
a:=a div2；c:=c div2；b:=a+b+c；{对应于步骤③}
b:=b div2；c:=c div2；a:=a+b+c；{对应于步骤④}
Writeln('a='，a，'':4，'b='，b，'':4，'c='，c)；{输出}
Readln
End.
细心观察，会发现本程序语句的顺序很关键。此例用反推顺序(逆序)，按步骤正确推算出各变量的值。当然，有的问题可按正序步骤编程，这类程序都称为顺序程序。
本程序Writeln语句的输出项含有('':4)，这里的冒号用来指定该项显示所占宽度，此处是输出4个空格即(空格项占4格)。
[例1.9]有鸡兔同笼，头30，脚90，究竟笼中的鸡和兔各有多少只?
解:设鸡为J只，兔为T只，头为H，脚为F，则:
J+T=30①
2*J+4*T=90②
解此题暂不必采用数学上直接解方程的办法，可采用“假设条件与逻辑推理”的办法：
假设笼中30个头全都是兔，那么都按每头４只脚计算，总脚数为(4*H)，与实际脚数(F)之差为(4*H —F)，如果这个差=0，则笼中全是兔（即鸡为0只）；如果这个差值>0，说明多计算了脚数，凡是鸡都多给算了两只脚，用它除以2就能得到鸡的只数，处理步骤为:
①J=(4*H—F)/2{先用脚数差值除以2算出鸡的只数}
②T=H—J{再用总头数减鸡数算出免的只数}
按此方法，这两步运算必须注意先后顺序才会符合运算逻辑。
Pascal程序:
Program Exam16；
Const H=30；{常量说明}
F=90；
Var J，T:byte；{为字节类型的整数}
Begin
J:=(4*H-F)div2；{整除运算}
T:=H-J
Writeln('J='，J，'':6，'T='，T)；
Readln
End.
本程序中H，F为常量，变量J，T为byte类型，属于整数类型。
Pascal定义了五个标准整数类型，如下表所示:
类型取值范围占字节数格式
Shortint（短整型）-128..1271带符号8位
Integer（整型）-32768..327672带符号16位
Longint（长整型）-2147483648..21474836474带符号32位
Byte（字节型）0..2551无符号8位
Word（字型）0..655352无符号16位在前面程序中常用的数据类型除整数类型,还有实数类型。Pascal还定义了五个标准实数类型，列表所示如下:
类型取值范围占字节数有效数字
Real 2.9×10-39~1.7×103867~8位
Single 1.5×10-45~3.4×1038411~12位
Double 5.0×10-324~1.7×10308815~16位
Extended 1.9×10-4951~1.1×1049321019~20位
Comp-263+1~238-1819~20位
在Turbo Pascal中实数的表示用科学记数法，可认为由三部分组成:
#.##E+##或#.##E-##
①#．##表示有效数字；②E表示以10为底的幂；③+##或-##是指数部分，+号可省略。
例如: 1.7E+38可写成1.7E38(等同于1.7×1038)。
在实数类型定义下，即使是整数，在程序执行时系统也将自动转换成科学记数形式，试请运行下面程序并注意观察运行结果:
Program Exam17；
Var x:real；{x为实数类型}
Begin
X:=180；{把整数180赋给实数类型变量X}
Writeln('x='，x)；{输出的x自动表示成实数形式}
Readln
End.
习题1.2
1.已知△ABC中的三边长分别为25.76，74.03，59.31，求△ABC的面积。
(计算公式:S=。其中P=)
2.某车棚存有自行车和三轮车共65辆，它们的轮子数合计为150个。求该棚内存有的自行车和三轮车各是多少辆？
3.甲、乙、丙三人分别有磁带36，48，64盒。先由甲把自己的磁带平均分为三份，分给乙、丙各一份，自己留下一份；接着是乙，最后是丙，都按甲的方法处理。编程输出甲、乙、丙在上述过程中各人的磁带数分别是多少?(输出所有的中间结果)
4.五位好朋友相聚。第一位朋友带来了很多糖块赠送给各位朋友，使每人的糖块在各自原有的基础上翻了一倍；接着第二位好友也同样向每人赠送糖块，他同样使每人的糖块在各人已有的数量上翻了一倍；第三、第四、第五位好友都照此办理。经过这样的赠送之后，每人的糖块恰好都为32块。问各位好友原先的糖块数分别是多少?
第二章分支程序
在程序设计中，许多问题是在一定条件下才选择某种处理方式的，这就需要用条件判断语句或情况选择语句进行处理。程序执行中将出现选择(分支)，根据条件只选择执行部分语句,不一定都是按原顺序从头到尾地执行所有语句，这样的程序称为分支程序。
第一节条件语句与复合语句
[例2.1]某服装公司为了推销产品，采取这样的批发销售方案:凡订购超过100套的，每套定价为50元，否则每套价格为80元。编程由键盘输入订购套数，输出应付款的金额数。
解:设X为订购套数，Y为付款金额，则:
①输入X;
②判断X值；
③根据判断结果选择符合条件的那种方法计算Y值；
④输出计算结果。
Pascal程序:
Program Exam21；
Var x，y:integer；
Begin
Write('X=')；Readln(x)；{输入X}
if x>100then y:=50*X else y:＝80*X；{条件判断与选择}
Writeln('y='，y)；
Readln
End.
程序中的if语句常称为条件语句，它的一般格式为:
(1)if条件then语句；
(2)if条件then语句1else语句2；
IF语句的功能是按条件在两种可能中选择其中一种。习惯上把if后面的表达式称为条件，then后面的语句称为真项，else后面的语句称为假项。若条件成立(为真)就执行真项，然后执行if语句的后继语句；若条件不成立(为假)就跳过真项而执行假项，然后执行后继语句。而第一种格式只有真项，没有假项，当条件不成立(为假)就什么也不需做，直接往下去执行后继语句。
[例2.2]读入三个不同的数，编程按由小到大的顺序排列打印出来。
解:设读入的三个数为a，b，c，为了把较小的数排在前面，可作如下处理:
①如果a＞b就交换a、b的值，将较大的值换至后面；
②如果a＞c就交换a、c的值，将较大的值换至后面；
③如果b＞c就交换b、c的值，将较大的值换至后面；
④输出处理后的a,b,c。
Pascal程序:
Progranm Exam22；
Var a，b，c，t:Real；
Begin
Write('Input a，b，c=')；
Readln(a，b，c)；
if a＞b then
begin｛复合语句｝
t:=a；a:=b；b:=t{交换a，b}
end；
if a＞c then
begin｛复合语句｝
t:=a；a:=c；c:=t{交换a，c}
end；
if b＞c then
begin｛复合语句｝
t:=b；b:=c；c:=t{交换b，c}
end；
Writeln('a，b，c:'，a:6，b:6，c:6)；
Readln
End.
if语句规定它的真项或假项位置上只能是一个基本语句，如果需要写一组语句，就应当使用复合语句。本程序中有三处用到复合语句。每个复合语句的范围是从Begin开始到与它相对应的End为止。复合语句的地位和一个基本语句相同；其一般格式为：
Begin
语句系列
End；
习题2.1
1.假设邮局规定寄邮件时若每件重量在1公斤以内(含1公斤)，按每公斤1.5元计算邮费，如果超过1公斤时，其超出部分每公斤加收0.8元。请编程序计算邮件收费。
2.输入三个正整数，若能用这三个数作为边长组成三角形，就计算并输出该三角形的面积，否则输出Can't。(组成三角形的条件为：任意两边之和大于第三边)
3.输入一个三位数的整数，将数字位置重新排列，组成一个尽可大的三位数。例如：输入213，重新排列可得到尽可能大的三位数是321。
第二节情况语句与算术标准函数
如果有多种（两种或两种以上）选择，常用情况语句编程。
将前面[例2.1]改成用如下方法来处理。根据题意，付款计算可分为两种情况：
①Y=50*X(X＞100)
②Y=80*X(X＜=100)
显然，情况①与②的选择取决于X值。假设用N表示“情况值”，暂且先让N＝2；
如果X＞100则N=1；（此题中N的值只是1或2，且取决于X值）
Pascal程序:
Program Exam21_1；
Var X，Y，N:integer；
Begin
Write('X=')；readln(x)；n:=2；{先让n=2}
if X＞100then n:=1；{如果X＞100则n=1}
Case n of{关于情况处理}
1:Y:=50*X；
2:Y:=80*X；
end；
Writeln('Y='，Y)；
Readln
End.
程序中的Case─end语句为情况语句，是多路分支控制，一般格式为:
Case表达式of
情况常量表1:语句1；
情况常量表2:语句2；
::
情况常量表n:语句n
end；
执行情况语句时，先计算Case后面表达式的值，然后根据该值在情况常量表中的“对应安排”，选择其对应的语句执行，执行完所选择语句后就结束Case语句；如果常量表中没有一个与表达式值对应的语句，则什么也不做就结束本Case语句。
Case语句的另一种应用格式为：
Case表达式of
情况常量表1:语句1；
情况常量表2:语句2；
::
情况常量表n:语句n；
else语句n+1
end；
这种格式的前面部分是相同的，所不同的是：如果常量表中没有一个与表达式值对应的语句，则执行与else对应的语句，然后结束Case语句。
[例2.2]对某产品征收税金，在产值1万元以上征收税5%；在1万元以下但在5000元
以上的征收税3%；在5000元以下但在1000元以上征收税2%；1000元以下的免收税。编程计算该产品的收税金额。
解:设x为产值，tax为税金，用P表示情况常量各值，以题意中每1000元为情况分界:
P=0:tax=0(x<1000)
P=1，2，3，4:tax=x*0.02(1000<=x<5000)
P=5，6，7，8，9:tax=x*0.03(5000 P=10:tax=x*0.05(x>10000) 这里的P是“情况”值，用产值x除以1000的整数值作为P，如果P>10也归入P=10的情况。Pascal 语言用P=trunc(x/1000)取整计算， Pascal程序: Program Exam22； Var x，p:integer； Tax:real； Begin Write('Number=')；readln(x)； P:=trunc(x/1000)； if P＞9then P:=10； Case P of 0:tax:=0； 1,2,3,4:tax:=x*0.2； 5,6,7,8,9:tax:=x*0.3； 10:tax:=x*0.5 end； Writeln('tt='，tt:5:2)； Readln End. 情况表达式的计算必须考虑到“全部”情况，不要有遗漏。如果情况常量表的“值”在某范围内是连续的，可将常量表写成： n1..n2：语句； 因此，上面程序中的情况常量表可以写成如下程序中表示形式： Program Exam22_1； Var x,p:integer； tax:real； Begin Write('Number=')；readln(x)； P:=trunc(x/1000)； if P＞9then P:=10； Case P of 0:tax:=0； 1..4:tax:=x*0.2；{从1至4作为同一情况处理} 5..9:tax:=x*0.3；{从5至9作为同一情况处理} 10:tax:=x*0.5 end； Writeln('tt='，tt:5:2)； Readln End. 程序中的trunc(x)为取整函数，是Pascal的算术标准函数之一。Pascal常用的算术标准函数有19个: (1)abs(x)求x的绝对值(|x|)； (2)exp(x)求ex的值；（e为无理数2.71828…） (3)frac(x)求x的小数部分； (4)int(x)求x的整数部分(不舍入，函数值为实型)； (5)ln(x)求以e为底的x的对数（log ex)； (6)odd(x)判断x的奇偶数(当x为奇数时odd(x)值为true，否则为false)； (7)ord(x)求x的序号，结果为整型(x为有序类型量)； (8)piπ值(3.1415926535897932…)； (9)pred(x)求x(有序类型)的前趋值； (10)succ(x)求x(有序类型)的后继值； (11)random随机函数，产生0～1的随机值； (12)random(n)产生0～n的随机数(n为word类型，先执行randomize，才能得到随机整数)； (13)round(x)求x的四舍五入整数； (14)trunc(x)求x的整数部分(截掉小数部分，结果为整型)； (15)sqr(x)求x的平方值(x2)； (16)sqrt(x)求x的开平方根值()； (17)sin(x)求x的正弦函数(x为弧度)； (18)cox(x)求x的余弦函数(x为弧度)； (19)arctan(x)正切的反三角函数(x为数值)； 习题2.2 1.运输公司计算运费时，距离(S)越长，每公里运费越低，标准如下: 如果S＜250公里；运费为标准运价的100% 如果250公里＜＝S＜500公里，运费为标准运价的98%； 如果500公里＜＝S＜1000公里，运费为标准运价的95%； 如果1000公里＜＝S＜2000公里，运费为标准运价的92%； 如果2000公里＜＝S＜3000公里，运费为标准运价的90%； 如果S＝＞3000公里，运费为标准运价的85%；。请编计算运费的程序。 2.输入考试成绩，如果获85分以上为A等，获60分～84分为B等，60分以下为C等，编程输出考试等级。 3.某车间按工人加工零件的数量发放奖金，奖金分为五个等级：每月加工零件数N<100者奖金为10元；100<=N<110者奖金为30元；110<=N<120者奖金为50元；120<=N<130者奖金为70元；N> 130者为80元。 请编程，由键盘输入加工零件数量，显示应发奖金数。 第三章循环程序 在编程中经常遇到需要多次规律相同的重复处理，这就是循环问题。Turbo Pascal采用不同的循环方式来实现，常用的环循有三种:for、repeat、while. 第一节for循环 for循环是一种自动计数型循环。 [例3.1]试打印出1~20的自然数。 解：①用a代表1~20各数，同时也用a兼作计数，以控制循环次数； ②让a从1开始； ③输出a； ④a自动计数（加1），如果未超越所规定的循环范围则重复步骤③，否则结束循环。 Pascal程序: Program Exam12； Var a:byte； Begin for a:=1to20do Writeln(a)； Readln End. 程序中for a:=1to20do Writeln(a)；是for循环语句。 for循环语句有两种格式: (1)for循环变量:=初值To终值do语句； (2)for循环变量:=初值downto终值do语句； 第(1)种格式的初值小于等于终值，循环变量值按自动加1递增变化； 第(2)种格式的初值大于或等于终值，循环变量值按自动减1递减变化。for循环是(以递增1或以递减1)计数型循环。 比如:若将[例3.1]程序改为倒计数(递减)循环，则输出20～1的自然数数: Program Exam31； Var a:byte； Begin for a:=20downto1do Writeln(a)； Readln End. [例3.2]打印出30至60的偶数。] 解： 方法一： ①设a表示30至60的所有的数，可用for循环列出； ②用式子a mod2=0筛选出其中的偶数并输出。 Pascal程序： Program ex32; Var a:integer; Begin For a:=30to60do If(a mod2=0)then writeln(a); Readln; End. 在这个程序中，for循环后的循环语句是一个条件分支语句。 方法二：我们知道，在式子a=2*n中，若n取自然数1、2、3、…，时，则a依次得到偶数2、4、6、…。因此要想得到30至60的偶数，就可以让上面式子中的n取15至30的自然数就可以了。所以本题还可以按以下步骤处理： ①设n表示15至30的所有自然数，可用for循环列出； ②用式子a:=2*n求出其中的偶数； ③将结果输出至屏幕。 Pascal程序： Program ex32; Begin For n:=15to30do Begin a:=2*n; Writeln(a); End; Readln; End. [例3.3]自然数求和：编一个程序，求从1至100的自然数的和。 解：①令S＝0； ②令a表示1至100的自然数，用循环列出； ③将这些自然数用公式S:=S+a逐一累加到S中去； ④循环结束后，S即为1至100的自然数的和，输出即可。 Pascal程序： Program ex33; var s,a:integer; Begin S:=0; For a:=1to100do S:=S+a; Writeln(‘S=’,S); Readln; End. [例3.4]一个两位数x，将它的个位数字与十位数字对调后得到一个新数y，此时y恰好比x大36，请 编程求出所有这样的两位数。 解：①用for循环列举出所有的两位数，x为循环变量； ②用公式a:=x div10分离出x的十位数字； ③用公式b:=x mod10分离出x的个位数字； ④用公式y:=b*10+a合成新数y； ⑤用式子y-x=36筛选出符合条件的数x并输出。 Pascal程序： Program ex34; Begin For x:=10to99do Begin a:=x div10; b:=x mod10; y:=b*10+a; if y-x=36then writeln(x); End; Readln; End. [例3.5]把整数3025从中剪开分为30和25两个数，此时再将这两数之和平方，(30+25)2=3025计算结果又等于原数。求所有符合这样条件的四位数。 解:设符合条件的四位数为N，它应当是一个完全平方数，用(a*a)表示。 ①为了确保N=(a*a)在四位数（1000～9999）范围内，可确定a在32～99循环； ②计算N=a*a；将四位数N拆分为两个数n1和n2； ③若满足条件(n1+n2)*(n1+n2)＝N就输出N。 Pascal程序: Program Exam35； Var N，a，x，n1，n2:Integer； Begin for a:=32to99do begin N:=a*a； n1:=N div100；｛拆取四位数的前两位数｝ n2:=N-n1*100；｛拆取四位数的后两位数｝ X:=n1+n2； if x*x=N then writeln(N)； end； Readln End. [例3.6]用“*”号打印出如下的长方形图案。 ********* ********* ********* ********* 解：①上面给出的图例共有4行，我们可以用一个循环控制行的变化； ②在每行中又有9列，我们可以在前面控制行的循环中再套一个循环来控制列的变化。 Pascal程序： Program ex36; Begin For a:=1to4do{外循环控制行的变化} Begin For b:=1to9do{内循环控制列的变化} write(‘*’); Writeln;{输出一行的“*”后换行} End; Readln; End. 程序中的循环对于a的每个值都包含着一个b=(1～9)次的内循环。外循环for a将内循环for b包含在里面，称为for循环的嵌套。嵌套形式如: for a:=n1to n2do for b:=m1to m2do循环体语句； [例3.7]打印出九九乘法表: 解:设a为被乘数，范围为1～9；b为乘数，范围为1～a；乘式为a*b=(a,b的乘积)，则a=1:b=1～a1*1=1 a=2:b=1～a2*1=22*2=4 a=3:b=1～a3*1=33*2=63*3=9 a=4:b=1～a4*1=44*2=84*3=134*4=16 ：： a=9b=1～a9*1=99*2=18…9*9=81 ⑴从上面分解的横行中看到共有9行，这里的“行”数变化与a的变化从1～9相同，可用a控制“行”的循环； ⑵每“行”里面相乘的次数与b的范围相关，由b控制每“行”里面的“内部”循环； ⑶内循环被包含在最里层，执行完每“行”的内部循环，就到下一“行”去执行新“行”里面的循环，每“行”都拥有形式相同的（b=1～a）内循环。 即每到一“行”都要执行该“行”的内循环。这里所指的“行”可以理解成抽象的行，不一定是实际上具体对应的行，可以是一个处理“块”。 Pascal程序: Program Exam37； Var a，b:byte； Begin for a:=1to9do{外循环} begin for b:=1to a do{内循环} write(a，’*’，b，’=’，a*b，’’:3)； writeln end； Readln End. 根据这种格式还可以实现多层循环嵌套,例如： for a:=n1to n2do for b:=m1to m2do for c:=k1to k2do循环体语句； [例3.8]从七张扑克牌中任取三张，有几种组合方法？请编程输出所有组合形式。 解：设每次取出三张分别为a,b,c。用三重循环分别从1～7的范围里取值；为了排除取到重号，用(a-b)*(b-c)*(a-c)<>0进行判断。 Pascal程序： program Exam38; const n=7; var a,b,c,t:integer; Begin t:=0; for a:=1to n do for b:=1to n do for c:=1to n do if(a-b)*(b-c)*(a-c)<>0then Begin inc(t); writeln(a:3,b:3,c:3) End; writeln(total:,t:5); readln End. [例3.9]数学上把除了1和它本身，没有别的数能够整除它的自然数叫做素数(或质数)。现在由键盘输入一个自然数N，编程判断N是否是素数，是则输出“Yes”，否则输出“No”。 解：根据定义，对于给定的自然数N，只需判断除1和它本身外，还有没有第三个自然数即可。 ①令K从1循环至N； ②根据N mod K是否为0可统计K的约数的个数； ③若N的约数的个数超过2个，则判定N不是素数。 Pascal程序: Program Exam39； Var n，m，k，t:integer； Begin write(‘N=’); ReadLn(N); t:=0； for k:=1to N do{外循环} if N mod k=0then t:=t+1;{如果N是奇数} if t>2then writeln(‘No’) else writeln(‘Yes’); Readln; End. 程序中的变量yse为布尔(或逻辑)类型(Boolean)。布尔值只有两个： True(真)False(假) 布尔值与条件判断结果为真(条件成立)或为假(条件不成立)的作用相同，常用于条件语句和循环语句中。 上面程序中用if yes and(t mod7=0)then writeln；实现每行打印七个素数换行，程序中布尔变量yes为真，在逻辑上表示是素数；关系式（t mod7=0)的值为真时，表示该行输出素数巳是７个；用and将这两个“条件”连起来是作一种布尔(逻辑)运算。 Pascal共有四种逻辑运算符： ①and(与)两条件都为True时，其结果值为True；否则为False； ②or(或)两条件中只要有一个为True；其结果值为True；否则为False； ③xor(异或)两条件的逻辑值不相同时，其结果值为True；否则为False； ④not(非)条件为True时，其结果值为False；否则为True；(取反) 习题3.1: 1.打印出1至20的平方数表。 2.打印出100至200之间的奇数。 3.鸡兔同笼(用for循环程序完成) 4.一辆快车和一辆慢车开往同一地点，快车票价为18元，慢车票价为13.5元，共售出400张，共计5940元，求快车票和慢车票各多少张?. 5.求出能被5整除的所有四位数的和。 6.在下面式子中的二个□内填入一个合适的同样的数字，使等式成立。 □3*6528=3□*8256 7.有一个三位数，它的各位数字之和的11倍恰好等于它自身，请编程求出这个三位数。 8.在自然数中，如果一个三位数等于自身各位数字之立方和，则这个三位数就称为是水仙花数。如:153=13+53+33，所以153是一个水仙花数。求所有的水仙花数。 9.编程序打印出下列图案： 平行四边形等腰三解形菱形 ******** ************ **************** **************** **************** 10.编程打印出如下图案： 1 222 33333 4444444 555555555 11.有三种明信片:第一种每套一张，售价2元；第二种每套一张，售价4元；第三种每套9张，售价2元。现用100元钱要买100张明信片，要求每种明信片至少要买一套，问三种明信片应各买几套？请输出全部购买方案。 12.某人想把一元钱换成伍分、贰分、壹分这样的零钱，在这三种零钱中每种零钱都至少各有一个的情 况下，共有多少种兑换方案。并打出这些方案。 13. 14.输出100以内的全部素数，要求每行显示5个。 15.A、B两个自然数的和、差、积、商四个数加起来等于243，求A、B两数。 16.百钱买百鸡：今有钱100元，要买100只鸡，公鸡3元一只，母鸡1元一只，小鸡1元3只，若公鸡、母鸡和小鸡都至少要买1只，请编程求出恰好用完100元钱的所有的买鸡方案。 第二节repeat循环 Repeat循环是直到型循环。 试将上一节的例3.1(打印出1～20的平方数表)程序改为repeat循环: Program Exam31_1； Var a:byte； Begin a:=1；writeln('a':8,'a*a':8)； repeat writeln(a:8，a*a:8)； inc(a)；{改变a的值} Until a＞20； Readln Emd. 程序中的Repeat循环格式为: repeat 循环体语句； until条件表达式；｛直到条件为真｝ Repeat循环首先执行由Repeat和Until括起来的循环体语句，然后检查Until后面的条件表达式：如果表达式结果为假，则继续执行循环体，接着继续检查Until后面的条件表达式，如此反复执行直到这个表达式结果为真时结束循环。Repeat循环体语句必须有能改变Until后面条件表达式值的语句，并最终使这个条件表达式的值为真，使循环自动结束。 程序中inc(a)指令相当于a:=a+1，常用的同类指令格式如下: (1)inc(x)等同x:=x+1； (2)inc(x,n)等同x:=x+n； (3)dec(x)等同x:=x—1； (4)dec(x，n)等同x:=x—n； [例3.10]求两个自然数M和N的最大公约数。 解：若自然数a既是M和约数，又是N的约数，则称a为M和N的公约数，其中最大的称为最大公约数。为了求得最大公约数，可以从最大可能的数（如M或N）向下寻找，找到的第一个公约数即是最大公约数。 Pascal程序： Program ex310; Begin a:=N+1; 一、单项选择题（共10 题，每题1.5 分，共计15 分。每题有且仅有一个正确答案.）。13届普及组一、单项选择题：（每题1.5分） 1. D 2. D 3. C 4. B 5. B 6.B 7. B 8. C 9. C 10. A 11. C 12. A 13. A 14. A 15. B 16. D 17. C 18. D 19. A 20. A 1．在以下各项中，（）不是CPU的组成部分。 A．控制器 B．运算器 C．寄存器 D．主板 2．在关系数据库中，存放在数据库中的数据的逻辑结构以（）为主。 A．二叉树 B．多叉树 C．哈希表 D．二维表 3．在下列各项中，只有（）不是计算机存储容量的常用单位。 A．Byte B．KB C．UB D．TB 4．ASCII码的含义是（）。 A．二→十进制转换码 B．美国信息交换标准代码 C．数字的二进制编码 D．计算机可处理字符的唯一编码 5．一个完整的计算机系统应包括（）。 A．系统硬件和系统软件 B．硬件系统和软件系统 C．主机和外部设备 D．主机、键盘、显示器和辅助存储器 6．IT的含义是（）。 A．通信技术 B．信息技术 C．网络技术 D．信息学 7．LAN的含义是（）。 A．因特网 B．局域网 C．广域网 D．城域网 8．冗余数据是指可以由其它数据导出的数据。例如，数据库中已存放了学生的数学、语文和英语的三科成绩，如果还存放三科成绩的总分，则总分就可以看作冗余数据。冗余数据往往会造成数据的不一致。例如，上面4个数据如果都是输入的，由于操作错误使总分不等于三科成绩之和，就会产生矛盾。下面关于冗余数据的说法中，正确的是（）。 A．应该在数据库中消除一切冗余数据 B．用高级语言编写的数据处理系统，通常比用关系数据库编写的系统更容易消除冗余数据 C．为了提高查询效率，在数据库中可以保留一些冗余数据，但更新时要做相容性检验 D．做相容性检验会降低效率，可以不理睬数据库中的冗余数据 9．在下列各软件，不属于NOIP竞赛（复赛）推荐使用的语言环境有（）。A．gcc B．g++ C．Turbo C D．Free Pascal Freepascall资料详解 一、TP和FP的功能区别 1．Free Pascal理论上可以使用4GB（2^32byte）的内存，因此实际上几乎可以使用系统中的所有剩余内存（除非赛题中有内存限制），这是因为Free Pascal使用的是32位的编译器。但是对于Turbo Pascal来说，由于是16位的编译器，因此不能定义大小超过64KB （2^16byte）的数据类型和变量，并且在DOS实模式下可以使用的内存总数只有640KB。但这并不是说，你可以随意定义很大的数组了，因为光读入200MB的数据就会让你的程序超时了（因为现在的7200转硬盘和133的系统总线速度决定了读取数据的速度也就100MB/秒）。 2．在Free Pascal中，如果用assign给标准输入输出文件变量input和output指定了文件，在程序结束之前一定要用close关闭input和output，否则输出文件可能不能被正确的写入。这个问题是近几年NOIP竞赛和省队训练、选拔中选手常犯的错误。尤其是程序非正常结束之前（如halt）会忘记。 3．如果用Rewrite打开文件，那么文件就只能被写入了。如果需要读取这个文件，要对文件执行Reset。所以，在Free Pascal中最好不要对一个文件同时进行读写操作。 4．在Free Pascal中，集合中的元素都是4个字节长的。 5．表达式执行的顺序是不确定的。比如对于表达式a:=g(2)+f(3); 不保证g(2)一定在f(3)之前执行。 6．函数和过程在使用时，参数的类型必须和定义时完全一致。原因是在Free Pascal中添加了函数重载功能。 7．PROTECTED，PUBLIC，PUBLISHED，TRY，FINALLY，EXCEPT，RAISE成为了关键字，因此不能作为函数和过程的名字；而FAR，NEAR不再是关键字了，原因是Free Pascal是32位系统，不再需要这些关键字。 二、FP的新增功能 1．函数可以返回复杂的类型，比如记录和数组。 如： type arrtype=array[1..100] of longint;{必须要先定义数组基类型} var i,j,k,n:longint; a:arrtype; function sort(a:arrtype;n:longint):arrtype; var i,j,k:longint; begin for i:=1 to n-1 do for j:=i+1 to n do if a>a[j] then begin k:=a; a:=a[j]; a[j]:=k; 动态规划 一、背包问题 1、0/1背包[问题背景及描述] Bessie 正在减肥，所以她规定每天不能吃超过C (10 <= C <= 35,000)卡路里的食物。农民John 在戏弄她，在她面前放了B (1 <= B <= 21) 捅食物。每桶内都有某个单位卡路里(范围：1..35,000)的食物(不一定相同)。Bessie 没有自控能力，一旦她开始吃一个桶中的食物，她就一定把这桶食物全部吃完。Bessie 对于组合数学不大在行。请确定一个最优组合，使得可以得到最多的卡路里，并且总量不超过C。例如，总量上限是40卡路里，6 桶食物分别含有7, 13, 17, 19, 29, 和31卡路里的食物。Bessie可以吃7 + 31 = 38卡路里，但是可以获取得更多：7 + 13 + 19 = 39卡路里。没有更好的组合了。 [输入] 共两行。 第一行，两个用空格分开的整数：C 和 B 第二行，B个用空格分开的整数，分别表示每桶中食物所含的卡路里。 [输出] 共一行，一个整数，表示Bessie能获得的最大卡路里，使她不违反减肥的规则。 [输入样例] 40 6 7 13 17 19 29 31 [样例输出] 39 2、固定次数的0/1背包 有N种物品和一个容量为V的背包。第i种物品最多有n[i]件可用，每件体积是c[i]，价值是w[i]。求解将哪些物品装入背包可使这些物品的体积总和不超过背包容量，且价值总和最大。V〈30000，n〈100，n[i]〈50。 输入输出格式： 第1行，两个用空格分开的整数：v 和n 第2—n+1行，每件体积是c[i]，价值是w[i],最多有n[i]件可用 [输入样例] 40 2 10 20 5 20 30 6 [样例输出] 80 3、重复背包货币系统money 母牛们不但创建了他们自己的政府而且选择了建立了自己的货币系统。[In their own 第十二课过程与函数 前面我们曾经学习了程序设计中的三种基本控制结构（顺序、分支、循环）。用它们可以组成任何程序。但在应用中，还经常用到子程序结构。 通常，在程序设计中，我们会发现一些程序段在程序的不同地方反复出现，此时可以将这些程序段作为相对独立的整体，用一个标识符给它起一个名字，凡是程序中出现该程序段的地方，只要简单地写上其标识符即可。这样的程序段，我们称之为子程序。 子程序的使用不仅缩短了程序，节省了内存空间及减少了程序的编译时间，而且有利于结构化程序设计。因为一个复杂的问题总可将其分解成若干个子问题来解决，如果子问题依然很复杂，还可以将它继续分解，直到每个子问题都是一个具有独立任务的模块。这样编制的程序结构清晰，逻辑关系明确，无论是编写、阅读、调试还是修改，都会带来极大的好处。在一个程序中可以只有主程序而没有子程序(本章以前都是如此)，但不能没有主程序，也就是说不能单独执行子程序。pascal中子程序有两种形式：函数和过程。 一、函数 在此之前，我们曾经介绍并使用了pascal提供的各种标准函数，如ABS,SUCC等等，这些函数为我们编写程序提供了很大的方便。但这些函数只是常用的基本函数，编程时经常需要自定义一些函数。 （一）函数的说明 在pascal中，函数也遵循先说明后使用的规则，在程序中，函数的说明放在调用该函数的程序（主程序或其它子程序）的说明部分。函数的结构主程序的结构很相似。 函数定义的一般格式: function <函数名> (<形式参数表>):<类型>; {函数首部} 说明: ①函数由首部与函数体两部分组成。 ②函数首部以关键字function开头。 ③函数名是用户自定义的标识符。 ④函数的类型也就是函数值的类型，所求得的函数值通过函数名传回调用它的程序。可见，函数的作用一般是为了求得一个值。 ⑤形式参数简称形参，形参即函数的自变量。自变量的初值来源于函数调用。在函数中，形参一般格式如下： 变量名表1：类型标识符1；变量名表2：类型标识符2；…;变量名表n：类型标识符n 可见形参表相当于变量说明，对函数自变量进行说明，但应特别注意：此处只能使用类型标识符，而不能直接使用类型。 ⑥当缺省形参表（当然要同时省去一对括号）时，称为无参函数。 ⑦函数体与程序体基本相似，由说明部分和执行部分组成。 ⑧函数体中的说明部分用来对本函数使用的标号、常量、类型、变量、子程序加以说明，这些量只在本函数内有效。 ⑨函数体的执行部分由begin开头，end结束，中间有若干用分号隔开的语句，只是end后应跟分号,不能像程序那样用句号"."。 ⑩在函数体的执行部分，至少应该给函数名赋一次值，以使在函数执行结束后把函数值带回调用程序。 （二）函数的调用 Free Pascal错误一览表1、 Run Time Errors 运行错误（A）DOS 错误代码： 1：无效DoS功能号 2：文件末找到3：路径未找到4：打开文件过多 5：禁止文件存取 6：无效文件句柄 12：无效文件存取代码 15：无效驱动器号 16：不能删除当前日录 17：不能跨驱动器改文件名（B）I/O错误100：磁盘读错 误 101：磁盘写错 误 102：文件变量 末赋值 103：文件未打 开 104：文件未用 输入方式打开 105：文件末用 输出方式打开 106：无效数字 格式 （C）严重错误 150：磁盘写保 护 15l：未知单元 152：驱动器未 准备好 153：未知命令 154：数据CRC 校验错 155：驱动器请 求的结构长度 错 156：磁盘定位 错 157：未知媒介 类型 158：扇区末找 到 159：打印机缺 纸 160：设备写失 败 161：设备读失败 162：硬件故障（D）致命错误200：被零除20l：范围检查错 202：堆栈溢出错 203：堆溢出错204：无效指针操作 205：浮点上溢出 206：浮点下溢出 207：无效浮点运算208：未安装覆 盖管理程序 209：覆盖文件 读错 210：对象未初 始化 211：调用抽象 方法 212：流登计错 213：集合下标 越界 214：集合溢出 215：算术上溢 错误 216：存取非法 217：控制-C 218：授权指令 219：无效的TY PECAST 220：无效的变 体TYPECAST 221：无效的变 体操作 222：没有变体 方法调用DISPA TCHER 223：不能建立 变体数组 224：变体不包 含数组 225：变体数组 边界错误 226：TLS初始化 错误 2、编译错误对照表 FP调试及其他注意事项 事先说明：调试并不是万能药，FP的调试系统有时并不稳定，如果感觉异常，或者变量一值处于无意义的随机值，或者F7单步模式下它拒绝进入自定义的函数或过程，一般需要你新启动FP再次开始重新调试，如果尝试多次仍然不行，那需要你重新安装Free pascal了，操作方法：先卸载FP，然后手工删除你FP的安装目录（一般是如C盘或D盘下的整个FPC文件夹），然后重新安装FP。1.确定fp处于Debug （调试）模式下，否则将可能无法显示一些诸如越界等错误。 1查看修改方法:Options菜单下-->Mode...后面是否为Debug如果不是，请单击修改为Debug。 2.调试说明A：设置要观察变量：一般用Ctrl+F7可以添加需要查看的变量，也可以单击Debug菜单下-->Watches打开watches窗口右击进行添加修改删除。可以直接添加变量名，也可添加数组名观察整个数组，甚至可以直接加a[i]的这种形式，观察数组中的某个元素。 B：调试方法（均在run菜单下）： F7单步模式，每次执行一条语句（确切的说是屏幕上的一行），运行时会在watches 窗口更新变量的值以供观察。 F8步进模式，每次执行一条语句，但不会深入到自定义的过程或函数中（F7会进入函数过程执行），只在主程序中按行调试执行。 F4Goto Cursor执行到光标处：调试前先将光标停在某行，然后按F4，程序自动在F4处停止，然后可以继续使用F7或F8进行调试，可以省下很多的时间。 复赛解题步骤 1、读题 2、构思策略方法 3、模拟样例数据 4、推举是否存在反例能推翻构思，如果是重新读题构思 5、建立数据结构，估算数据范围。 6、编制程序，使程序通过编译。 7、测试样例。 8、调试程序 根据源代码设计数据，尽可能让程序执行到每条语句（所有分支）。 调试数据选择： a样例b手工构造随机数据c边界数据d特殊构造数据 调试方法： （1）静态查错，直接即观察源代码，需要时打草稿。（不要一出错就跟踪） （2）动态跟踪，F7+Watches（仅在无法在静态差错中找到错误） 9、检查程序，调节优化，估算时间、空间使用情况，根据需要修改程序。 10、检查细节：输入文件名、文件夹。 WIN10如何使用Free Pascal ——从安装、消除乱码、编写个简单的hello谈起{ ******* author: Josan ******* date:2016/10/27 ********************************************************************* } 闲来无事，突然想“学”一门新的语言Pascal，不要求精通，只要求能安装、运行一些简单程序就行。所以，抽出一个上午的时间来了解Pascal的历史，以及编译器以及它的IDE。再用一个下午的时间来整理一下上午的所获所得，希望可以帮到一些入门者，能让他们少走弯路。同时，我也要感谢那些给我帮助过的网友们。来，开始正题。 一、安装 1 What is Pascal? 首先，来看下什么是Pascal程序设计语言。 参考： (1)维基百科：Pascal https://https://www.wendangku.net/doc/9310500921.html,/wiki/Pascal_(programming_language)[1] (2)百度百科：Pascal https://www.wendangku.net/doc/9310500921.html,/link?url=VnmJnZwjlW8JuW5XTiHdUk3d34nQrznt_2BZbYj_X06Ye KEwt2fBqgchtlv-S5H6iO7b0vjbjEtzp0OyVSlFt4pahjeS3RtX4-p-QyGSWpsxXCZsSX16NZ hpBaxAX9bp7TUUVBGQ0fuY9xhVW3m51DyCRAkJ-cDEMLLMelc23lYn2NYNwvvItQ M749UCPj5gxndgACERXQG89ghqW1NV4h2SFuXCuWFJBz_ngeakKlC[2] 小结：Pascal由Niklaus Wirth（不认识这人?他说过：程序=算法+数据结构。有印象了吧-：））创建，纪念法国数学家Blaise Pascal。Pascal起初是一个面向过程的程序设计语言，之后发展出Object Pascal。Delphi是一个IDE，使用的核心就是Object Pascal。 2 Frequently used compilers or IDE 任何一个程序设计语言，都要有个编译器。接下来，来看看Pascal常用的compilers有哪些。 (1)Free Pascal(abbre. FPC or FP) https://www.wendangku.net/doc/9310500921.html,[3] (2)GNU Pascal http://www.gnu-pascal.de/gpc/h-index.html[4] FreePascal中的编译器选项 FreePascal中的编译器选项 2010-10-09 18:32:29| 分类： Win32Program |举报 |字号订阅编译器选项: 普通选项: -h 该选项将把所有的命令行选项列出来,然后退出程序 -? 同-H一样的,在分屏显示 -i 这个选项显示编译器版权信息,你能给一个选项,类似下面-ixxx D 返回编译器的日期 V 返回编译器版本 SO 返回编译器的系统版本 SP 返回编译器所选的处理器 TO 返回编译目标系统 TP 返回编译后目标处理器 -l 在标准出上显示Free Pascal的LOGO,同时告诉你Free Pascal的版本号 -n 告诉编译器并不要读入默认的配置文件,你仍 然可以通过@选项来使用配置文件编译器返回的信息: -vxxx xxx可以是下面的: e: 默认的选项,只显示错误 i: 只显示普通的信息 w: 显示警告 n: 显示注意 h: 显示提醒 l: 使用百分比显示错误行的位置 u: 显示加载的单元名称 t: 显示程序试图打开的文件 p: 显示过程和函数的名称 c: 告诉编译器警告你当它处理有条件时 m: 显示被定义的宏 d: 显示其它的调试信息 a: 显示所有的可能的信息 0: 不要任何信息. 当你想不使用配置文件中的默认设置时有用 b: 显示所有所有声明的过程如果一个重载函数出现错误 x: 输出一些执行信息(只对Win32系统游) r: Rhide/GCC兼容模式: 将错误整理以便RHIDE能够使用 V: 创建一个包含有很多调试信息的fpcdebug.txt,主要是给编译器开发者的关于路径及文件的选项 -exxx xxx指明可执行文件as (the assembler)和ld (the linker)的路径. -FaXYZ 在系统单元后但是在其他单元之前加载单元XYZ . XYZ 是一个用逗号分隔的单元名称列表. 只能用于程序,并且和把XYZ放在USES语句的一条效果一致. -FcXXX 设置输入代码页to XXX.还在试验中. -FD 和-e 一样. -Fexxx 将错误写入文件名为xxx的文件. -FExxx 将单元和可执行文件输出到目录xxx ,而不是当前目录. -Fixxx 将xxx作为包含文件的搜索目录 . -Flxxx 将xxx作为library查找路径, 被传给连接器. -FLxxx Pascal基本教程 Pascal基本教程第一章 第一章 Pascal语言概述与预备知识 1 关于Turbo Pascal Pascal是一种计算机通用的高级程序设计语言。它由瑞士Niklaus Wirth 教授于六十年代末设计并创立。 以法国数学家命名的Pascal语言现已成为使用最广泛的基于DOS的语言之一，其主要特点有：严格的结构化形式；丰富完备的数据类型；运行效率高；查错能力强。 正因为上述特点，Pascal语言可以被方便地用于描述各种算法与数据结构。尤其是对于程序设计的初学者，Pascal语言有益于培养良好的程序设计风格和习惯。IOI(国际奥林匹克信息学竞赛)把Pascal语言作为三种程序设计语言之一， NOI(全国奥林匹克信息学竞赛)把Pascal语言定为唯一提倡的程序设计语言，在大学中Pascal语言也常常被用作学习数据结构与算法的教学语言。 在Pascal问世以来的三十余年间，先后产生了适合于不同机型的各种各样版本。其中影响最大的莫过于Turbo Pascal系列软件。它是由美国Borland公司设计、研制的一种适用于微机的Pascal编译系统。该编译系统由1983年推出1.0版本发展到1992年推出的7.0版本，其版本不断更新，而功能更趋完善。 下面列出Turbo Pascal编年史 出版年代 版本名称 主要特色 1983 Turbo Pascal 1.0 Turbo Pascal 2.0 Turbo-87 Pascal 提高实数运算速度并扩大值域 1985 Turbo Pascal 3.0 增加图形功能 Turbo BCD Pascal 特别适合应用于商业 1987 Turbo Pascal 4.0 提供集成开发环境(IDE)，引入单元概念 1988 Turbo Pascal 5.0 增加调试功能 1989 Turbo Pascal 5.5 支持面向对象的程序设计(OPP) 1990 Turbo Pascal 6.0 提供面向对象的应用框架和库(Turbo Vision) 1992 Turbo Pascal 7.0 面向对象的应用系统、更完善的IDE Turbo Vision 2.0 1993 Borland Pascal 7.0 开发 Object Windows库、 (For Windows) 提供对OLE多媒体应用开发的支持 1995 Delphi Visual Pascal Turbo Pascal语言是编译型程序语言，它提供了一个集成环境的工作系统，集编辑、编译、运行、调试等多功能于一体。 1.2 Turbo Pascal 或 Borland Pascal 的启动 [信息学奥赛基础知识讲义] 基础部分 一、进制：2进制数与8进制、10进制、16进制数的换算 换算1：将N进制数换算成10进制数（N可以为2,8,16或其它自然数） 换算2：将10进制数换算成N进制数（N可以为2,8,16或其它自然数） 1.下列无符号数中，最小的数是（） A.（11011001）2 B.（75）10 C.（37）8 D.（2A）16 7、小张用十六进制，八进制和十进制写下了如下一个等式： 52-19=33 式中三个数是各不相同进位制的数，试问52,19,33，分别为______。 （A）8，10， 16 （B）10, 16, 8 (c) 8, 16, 10 (D) 10, 8, 16 二、数据的存储和编码 所有的数据都是以二进制存储在计算机的存储器中的，数据的传送、存储、加工、处理或指令都是以二进制形式进行的。 对于数值:弄清原码、反码、补码以及定点数和浮点数。负数在计算机中以补码形式存放，小数在计算机中是以浮点数形式存放。 0的原码表示法有两种，+0和—0 8位定点整数的补码表示范围为-128_____+127 14、计算机中的数有浮点数与定点数两种，其中用浮点数表示的数，通常由（）这两部分组成。 A.指数与基数 B. 尾数与小数 C. 阶码与尾数 D.整数与小数 8、如果用一个字节表示一个整数，最高位用作符号位，其他位表示数值，例如 00000001表示+1，10000001表示-1 （1）试问这样表示法的整数a的范围应是———————— A、-127<=a<=127 B、-128<=a<=128 C、-128<=a<127 D、-128 ? SDVFDO1" SDVFDO ) Ρ? $üü= Düü] üü ! ! ! > @ ^ ` A SDVFDO) -$? t ? ?J? p $1' $55$< %(*,1 &$6( &2167 ',9 '2 ',:172 (/6( (1' ),/( )25 )817,21 *272 ,) /$%(/ 02' 1,/ 2) 25 3$&.(' 352&('85( 352*5$0 5(&25' 5(3($7 6(7 7+(1 72 7<3( 817,/ 9$5 :+,/( :,7+ ?? $ p ? p ? p p? ǎ?ǎ O ? ? Γ? O / IDOVH WUXH PD[LQW Oń LQWHJHU UHDO FKDU ERROHDQ WH[W O LQSXW RXWSXW O DEV DUFWDQ FKU FRV HRI HROQ H[S OQ RGG RUG RUHG URXQG VLQ VTU VTUW VXFF WUXQF O? JHW QHZ SDFN SDJH SXW UHDG UHDGOQ UHVHW UHZULWH XQSDFN ZULWH ZULWHOQ ? ?" . ? ? . ) . ) . 352*5$0 ? LQSXW RXWSXW ^ff` ? &2167 SL 9$5 U O V UHDO %(*,1 ZULWH LQSXW U UHDG U O SL U ZULWH O O V V (1' /? ? p ? ? (1' ?? ?" ??? O ?ń ? UHDO LQWHJHU ? * < PD[LQW SUHG ? VXFF " >7@ SUHG VXFF 1.2上机操作 一、启动pascal D:\TP\ F10或ALT+F，可使用键盘方式实现启动主功能菜单方式。 File/new：新建一个编辑窗口（打开名为Noname0.pas的新文件） 注意：可同时打开多个窗口，但任意时刻只有一个窗口是处于活动状态（活动窗口的边框为双线，静止窗口的边框为单线），活动窗口指拥护当前正在其上工作的窗口。 当多个窗口时，可用alt+(1-9),其中“1-9”表示窗口编号，以数字号选择当前活动窗口。 关闭窗口，则可用alt+F3(关闭当前窗口) F2存盘 Change Dir…修改当前文件操作路径。 CTRL+F9 运行程序，若中途需要终止程序运行的话，可：CTRL+C。 切换到输出屏幕： 对于WIN98：ALT+F5 对于WINXP：在程序结束前，加入Readln语句。 每一种程序设计语言都有自己规定的格式和词汇，词汇集由上述的保留字、标识符和特殊字符数组成的，当我们学习一种程序设计语言时，还应该注意，它的语法和语义，就如我们学习英语语法：表示语言的各种构成记号之间的组合规则。 语义：表示的含义。 1.3 pascal的程序组成 例1、求半径为R的圆的面积和周长。 PROGRAM circle(input,output); CONST pi=3.1415926; V AR r,s,l:integer; BEGIN Write(‘r=’); Readln(r); s:=2*pi*r*r; l:=2*pi*r; writeln(‘s=’,s);；‘；’ writeln(‘l=’,l); END. 上面的例子，就是一个完整的pascal 的程序。一个“完整”的pascal程序应该有以下的部分组成）： 循环结构程序设计 第1节 For循环程序实例 【问题描述】 计算一副扑克牌的点数，其中牌A为1点，牌J、Q、K分别为11、12、13点，大、小王不算点。 【问题分析】 根据题意，要计算一副扑克牌的点数，可以先求出一种花色牌的点数和，再乘以4即可。进一步分析，求一种花色牌的点数和，即是求1~13的连续自然数之和。我们用S表示所求数的和，用T表示加数，这样可以让T从1变化到13，每次让T不断加入到S中，就可以求出S的值，最后乘以4即可。 【算法设计】 ◆自然语言 ①置初值，即S=0，T=1； ②使S=S+T ，所求出的和仍放入S中； ③使T增加1，即T=T+1； ④如果T小于等于13，转第二步，否则转第五步； ⑤输出计算结果。 ◆程序流程图和结构化流程（N-S）图 【程序设计】 [程序清单] program ex3_1; var s,t:integer; begin s:=0; {S置初值为0} for t:=1 to 13 do {For循环语句} s:=s+t; writeln(‘total:’,s*4); end. [运行示例] total:364 【知识拓展】 1．在程序处理过程中，经常需要对某一条或一组语句重复执行多次，以最终完成某项任务，这就是循环。对于重复次数已知，而不依赖循环中语句的结果，常用计数循环（f or / to /do 语句）。 2．for循环语句格式： 格式一：for 控制变量:= 初值to 终值do 循环体语句； 格式二：for 控制变量:= 初值downto 终值do 循环体语句； 其中for、to、downto、do为保留字，do后面的语句称为循环体。其中循环控制变量可以是整型、字符或布尔型，但不能为实型。一般地，可以是顺序类型数据。 初值、终值表达式通常要与控制变量的类型相同。 第一章Pascal语言 §1.1初识Pascal语言 一、Pascal语言概述 Pascal是一种计算机通用的高级程序设计语言。PASCAL语言一种计算机编程的高级语言，它是瑞士苏黎世联邦工业大学的N．沃思(Niklaus Wirth)教授于1968年设计完成的，1971年正式发表。为纪念法国数学家Pascal，把此高级语言命名为Pascal语言。其主要特点有：严格的结构化形式；丰富完备的数据类型；运行效率高；查错能力强。二、为什么要学习Pascal 语言？ 在高级语言中：初级：QBASIC、中级：Pascal、高级：C语言、VB等 三、如何学好Pascal语言？ 1、注意Pascal程序的规范语法，如；、；、:=的使用等； 2、注意掌握算法，做到举一反三，一通百通； 3、认真完成作业与上机实验，理论与上机并重； 四、从一个Pascal程序实例看Pascal程序的结构 ［例1］已知圆的半径R为16CM，编程求它的周长L和面积S。 1、用QBASIC编程： PI＝3.1416 R＝16 L＝2*PI*R S＝PI*R*R PRINT “L＝”，L PRINT “S＝”，S END 2、用Pascal语言编程： PROGRAM PAS01(INPUT,OUTPUT)；←—程序首部 CONST ←—常量定义 PI=3.1416； 说明部分 VAR ←—变量说明 R：integer； L,S: REAL； BEGIN R:=16；程序休 L:=2*PI*R； 语句部分 S:=PI*R*R； WRITE（‘L＝’，L）； WRITE（‘S＝’，S）； END. 从上面的例子中可以看出： 1.一个PASCAL程序由程序首部和程序体两部分组成。程序首部以分号结束，程序体以圆点结束。 2.程序首部包括三项内容，其顺序是： （1）PROGRAM， Pascal程序标志，写在程序的开头。 （2）程序名，必须由英文字母开头，由作者自行定义。 （3）参数表，由INPUT,OUTPUT组成，表示标准输入、输出文件。 3.程序体是程序的主体，由说明部分和语句部分组成。 （1）说明部分有常量说明、变量说明、类型说明、函数说明、过程说明等，分别以分号结尾。 （2）语句部分是程序的执行部分，以BEGIN开始，END.结尾，用来描述程序所执行的算法和操作。中间的每一语句均须以分号结尾。 （3）语句部分中，变量赋值用:=,而不是＝，输出用WRITE，而不是用PRINT。［练习］ 模仿编程：已知三个数A＝15，B＝234，C＝348，编程求三个数的平均值P。 四、Turbo Pascal语言系统的使用 目前，Turbo Pascal7.0是最常用的Pascal语言系统。 1、系统的启动 在运行系统目录下的启动程序TURBO.EXE，即可启动系统。屏幕上出现如图1所示的 第二节repeat 循环 Repeat循环是直到型循环。 试将上一节的例3.1(打印出1～20的平方数表)程序改为repeat 循环: Program Exam31_1； Var a: byte； Begin a:=1；writeln ( ' a ' : 8 , ' a*a ' : 8 ) ； repeat writeln ( a :8，a*a : 8)； inc(a)；{改变a的值} Until a＞20； Readln Emd. 程序中的Repeat循环格式为: repeat 循环体语句； until 条件表达式；｛直到条件为真｝ Repeat循环首先执行由Repeat和Until括起来的循环体语句，然后检查Until后面的条件表达式：如果表达式结果为假，则继续执行循环体，接着继续检查Until后面的条件表达式，如此反复执行直到这个表达式结果为真时结束循环。Repeat循环体语句必须有能改变Until后面条件表达式值的语句，并最终使这个条件表达式的值为真，使循环自动结束。 程序中inc (a) 指令相当于a : =a+1，常用的同类指令格式如下: (1) inc(x) 等同x:=x+1； (2) inc(x, n) 等同x:=x+n； (3) dec(x) 等同x:=x—1； (4) dec(x，n) 等同x:=x—n； [例3.10]求两个自然数M和N的最大公约数。 解：若自然数a既是M和约数，又是N的约数，则称a为M和N的公约数，其中最大的称为最大公约数。为了求得最大公约数，可以从最大可能的数（如M或N）向下寻找，找到的第一个公约数即是最大公约数。 Pascal程序： Program ex310; Begin a := N+1; Repeat a := a-1; Until (M mod a=0) and (N mod a=0); writeln(a); Readln; End. Turbo Pascal图形编程教程Pascal是一款有很强图形功能的开发工具，它可以编制各种图形窗口,并且听说还支持鼠标.但是时过境迁，在vb,vc一统天下的今天，关于Pascal图形操作的书已经像古董一样难于寻找了，我现在将Tp 7.0的Help文件中的一些有关图形操作的过程与函数整理了一下，并自己写了一些例子,加入了一些自己的看法,便得到了这篇教程.其中如有错误，望各位不吝赐教。阅读之前希望大家做好准备，比如：找一些食品放在跟前，因为你可能因为钻研一个函数而耗费大量的时间，还有你可能因为初始化无法完成而大动肝火。 第一章使用Pascal进行图形操作前的准备 在 Turbo Pascal 中有一个 CRT 单元及一个 GRAPH 单元，简单的说 crt 单元是为了实现字符的显示与处理，另外的那个称为 GRAPH 单元是专门用来处理图形的。我们看到的有关图形的程序往往都要用到。所以若是要在 Turbo Pascal 中实现图形操作，就必须要调用 CRT 单元及 GRAPH 单元。那么怎么样来调用 CRT 及 GRAPH 单元呢？现在线来介绍一下单元调用语句：USES USES的语法： USES 单元表识符，……，单元表识符； 说明： 扩展名为*.TPW是Windows下的单元文件，*.TPU是DOS下的单元文件。 位置：变量说明var之前。 讲到这里，我还是要顺便提一下什么是单元？是这样的：我们在编程序的时候，要用到procedure 或者function ，中文名称一个是过程另一个是函数。做不同的程序时，往往要用到一些相同的过程或者相同的函数。如果统统放到程序中，程序会硕大无比，比例与调试与编译，并且在过去“惜ｋｂ如金”的年代里，这样的程序也很浪费。于是，简单的讲，人们把它们做成“包”－－我们称之为单元。一来，免去很多重复的痛苦，大家共享代码也很简单，另外，很多不愿意让别人看到源程序的人也很乐于如此－－－－这只是我的杜撰。生产pascal 语言的公司也提供一些做好的单元，放在安装盘上方便实用。crt ，graph 即使如此，还有dos ，system 等等。 第二章 Pascal图形模式的初始化及退出 1.初始化 Pascal的图形操作在使用之前必须先进行初始化。如果说你编写图形程序中出现问题，十有八九是卡在这里了。这也是非常令我头疼的问题。用过程 initgraph(GraphDriver,GraphMode,PathToDriver) 其中GraphDriver,GraphMode为整形变量,PathToDriver为字符串变量,GraphDriver为图形驱动器,GraphMode为图形模式,PathToDriver指定的路径名中建筑图形驱动程序(以.BGI为后缀)。initgraph使 用方法见下例: program t001 (input,output); 宁波市第22届中小学生计算机程序设计竞赛 预赛试题（小学组） （考试时间120分钟，满分100分） ●●所有提交的答案都以写在答卷纸上的为准，写在试卷上的一律无效●● 学校姓名 一、选择题：请选出各题正确答案的代码（A/B/C/D）（每题2分，共40分） 1、在微型计算机的汉字系统中，一个汉字内码所占的字节数是（）。 （A）1 （B）2 （C）3 （D）4 2、软盘加上写保护后，这时对它可进行的操作是（）。 （A）只能读盘，不能写盘（B）既可读盘，又可写盘 （C）只能写盘，不能读盘（D）不能读盘，也不能写盘 3、下列存储设备中，断电后其中的信息会消失的是（）。 （A）硬盘（B）ROM （C）RAM （D）U盘 4、pascal语言中运算（-13）MOD （-2）的结果是（）。 （A）1 （B）-1 （C）0 （D）-2 5、数组A有10个下标变量，各个下标变量的赋值情形如下所示，则表达式A[A[A[5]]]的值是（）。 （A）10 （B）5 （C）6 （D）2 6、1GB= （）KB 。 （A）1000 （B）1024 （C）1024×1024 （D）1000×1000 7、下面有关计算机病毒的说法，错误的是（）。 （A）为防止病毒感染计算机，使用软盘时，将软盘写保护 （B）计算机的病毒不仅能损坏文件，还可能造成电脑主板等硬件的损坏 （C）上网的电脑有可能会感染病毒 （D）计算机病毒也是程序 8、下列存储器中，存取速度最快的是（）。 （A）软盘（B）内存（C）光盘（D）硬盘 9、在Windows 中，能通过输入“?a*.?”命令查找到的文件是（）。 （A）pascal.c （B）ppa.1 （C）https://www.wendangku.net/doc/9310500921.html, （D）https://www.wendangku.net/doc/9310500921.html, 1：输入两个整数x,y，计算x,y的差并输出。 Program example; var x,y,s:integer; begin read(x,y); s:=x-y; writeln(s); end. 2、输入3个整数，输出最大的数。Program bijiao; var a,b,c,max:integer; begin readln(a,b,c); if a>=b then max:=a else max:=b; if c>max then max:=c; writeln(max); end. 四、IF 语句的嵌套 If 条件 Then Begin If 条件 Then 语句1 Else 语句2; End Else Begin If 条件 Then 语句3 Else 语句4; End; 【典型例题1】计算s=1+2+3+...+n，n由键盘输入。Program example; var s,i,n:integer; begin readln(n); s:=0; For i:=1 to n do s:=s+i; writeln(s); end. 【典型例题2】从键盘输入一个数，判断它是不是素数。PROGRAM sushu; VAR a,i:integer; flag:boolean; BEGIN readln(a); flag:=true; FOR i:=2 to trunc(sqrt(a)) do IF a mod i=0 THEN BEGIN flag:=false;BREAK;END; IF flag THEN writeln(‘Y’) ELSE writeln(‘N’); END. PASCAL全教程 Pascal基本教程第一章 第一章 Pascal语言概述与预备知识 1 关于Turbo Pascal Pascal是一种计算机通用的高级程序设计语言。它由瑞士Niklaus Wirth 教授于六十年代末设计并创立。 以法国数学家命名的Pascal语言现已成为使用最广泛的基于DOS的语言之一，其主要特点有：严格的结构化形式；丰富完备的数据类型；运行效率高；查错能力强。 正因为上述特点，Pascal语言可以被方便地用于描述各种算法与数据结构。尤其是对于程序设计的初学者，Pascal语言有益于培养良好的程序设计风格和习惯。IOI(国际奥林匹克信息学竞赛)把Pascal语言作为三种程序设计语言之一， NOI(全国奥林匹克信息学竞赛)把Pascal语言定为唯一提倡的程序设计语言，在大学中Pascal语言也常常被用作学习数据结构与算法的教学语言。 在Pascal问世以来的三十余年间，先后产生了适合于不同机型的各种各样版本。其中影响最大的莫过于Turbo Pascal系列软件。它是由美国Borland公司设计、研制的一种适用于微机的Pascal编译系统。该编译系统由1983年推出1.0版本发展到1992年推出的7.0版本，其版本不断更新，而功能更趋完善。 下面列出Turbo Pascal编年史 出版年代 版本名称 主要特色 1983 Turbo Pascal 1.0 Turbo Pascal 2.0 Turbo-87 Pascal 提高实数运算速度并扩大值域 1985 Turbo Pascal 3.0 增加图形功能 Turbo BCD Pascal 特别适合应用于商业 1987 Turbo Pascal 4.0 提供集成开发环境(IDE)，引入单元概念 1988 Turbo Pascal 5.0 增加调试功能 1989 Turbo Pascal 5.5 支持面向对象的程序设计(OPP) 1990 Turbo Pascal 6.0 提供面向对象的应用框架和库(Turbo Vision) 1992 Turbo Pascal 7.0 面向对象的应用系统、更完善的IDE Turbo Vision 2.0 1993 Borland Pascal 7.0 开发 Object Windows库、 (For Windows) 提供对OLE多媒体应用开发的支持 1995 Delphi Visual Pascal Turbo Pascal语言是编译型程序语言，它提供了一个集成环境的工作系统，集编辑、编译、运行、调试等多功能于一体。 1.2 Turbo Pascal 或 Borland Pascal 的启动 (1) Turbo Pascal的启动 a.DOS下的启动(适用于MS-DOS6.22之前的版本或Win 9X & Win2000 的Command Mode)信息学竞赛选择题
Freepascal资料详解
动态规划
pascal 过程与函数教程
Free Pascal错误一览表
FREEPASCAL调试技巧
Win10使用pascal入门教程fpc
FreePascal中的编译器选项
Pascal基本教程
信息学奥赛基础知识讲义
PASCAL语言教程
Pascal上机与函数【教程】
FREE-PASCAL入门-循环结构程序(DOC)
Pascal教程 上机指导
FreePascal3.2
Turbo Pascal图形编程教程
宁波市第22届中小学生计算机程序设计竞赛
pascal小学生教程
小学PASCAL全教程