pascal程序

一、Pascal 语言概述

PASCAL语言也是一种算法语言，它是瑞士苏黎世联邦工业大学的N．沃思(Niklaus Wirth)教授于1968年设计完成的，1971年正式发表。1975年，对PASCAL语言进行了修改，作为"标准PASCAL语言"。

PASCAL语言是在ALGOL 60的基础上发展而成的。它是一种结构化的程序设计语言，可以用来编写应用程序。它又是一种系统程序设计语言，可以用来编写顺序型的系统软件（如编译程序）。它的功能强、编译程序简单，是70年代影响最大一种算法语言。

二、Pascal 语言的特点

从使用者的角度来看，PASCAL语言有以下几个主要的特点：

⒈它是结构化的语言。PASCAL语言提供了直接实现三种基本结构的语句以及定义"过程"和"函数"(子程序)的功能。可以方便地书写出结构化程序。在编写程序时可以完全不使用GOTO语句和标号。这就易于保证程序的正确性和易读性。PASCAL语言强调的是可靠性、易于验证性、概念的清晰性和实现的简化。在结构化这一点上，比其它（如BASIC,FORTRAN77）更好一些。

⒉有丰富的数据类型。PASCAL提供了整数、实型、字符型、布尔型、枚举型、子界型以及由以上类型数据构成的数组类型、集合类型、记录类型和文件类型。此外，还提供了其它许多语言中所没有的指针类型。沃思有一个著名的公式："算法＋数据结构＝程序"。指出了在程序设计中研究数据的重要性。丰富的数据结构和上述的结构化性质，使得PASCAL可以被方便地用来描述复杂的算法，得到质量较高的程序。

⒊能适用于数值运算和非数值运算领域。有些语言（如FORTRAN 66,ALGOL 60）只适用于数值计算，有些语言（如COBOL ）则适用于商业数据处理和管理领域。PASCAL的功能较强，能广泛应用于各种领域。PASCAL语言还可以用于辅助设计，实现计算机绘图功能。

⒋PASCAL程序的书写格式比较自由。不象FORTRAN和COBOL那样对程序的书写格式有严格的规定。PASCAL允许一行写多个语句，一个语句可以分写在多行上，这样就可以使PASCAL程序写得象诗歌格式一样优美，便于阅读。

由于以上特点，许多学校选PASCAL作为程序设计课程中的一种主要的语言。它能给学生严格而良好的程序设计的基本训练。培养学生结构化程序设计的风格。但它也有一些不足之处，如它的文件处理功能较差等。

三、Pascal语言程序的基本结构

任何程序设计语言都有着一组自己的记号和规则。PASCAL语言同样必须采用其本身所规定的记号和规则来编写程序。尽管不同版本的PASCAL语言所采用的记号的数量、形式不尽相同，但其基本成分一般都符合标准PASCAL的规定，只是某些扩展功能各不相同罢了。下面我们首先来了解Pascal语言的程序基本结构。

为了明显起见先举一个最简单的PASCAL程序例子：

【例1】

从这个简单的程序可以看到：

⒈一个PASCAL程序分为两个部分：程序首部和程序体（或称分程序）。

⒉程序首部是程序的开头部分，它包括：

⑴程序标志。用"program"来标识"这是一个PASCAL 程序"。PASCAL规定任何一个PASCAL程序的首部都必须以此字开头。在turbo pascal语言中，首部也可省略。

⑵程序名称。由程序设计者自己定义，如例中的exam1。

在写完程序首部之后，应有一个分号。

⒊程序体是程序的主体，在有的书本里也称"分程序"。程序体包括说明部分（也可省略）和执行部分两个部分。

⑴说明部分用来描述程序中用到的变量、常量、类型、过程与函数等。本程序中第二行是"变量说明"，用来定义变量的名称、类型。

PASCAL规定，凡程序中用到所有变量、符号常量、数组、标号、过程与函数、记录、文件等数据都必须在说明部分进行定义（或称"说明"）。也就是说，不允许使用未说明先使用。

⑵执行部分的作用是通知计算机执行指定的 *** 作。如果一个程序中不写执行部分，在程序运行时计算机什么工作也不做。因此，执行部分是一个PASCAL程序的核心部分。

执行部分以"begin"开始，以"end"结束，其间有若干个语句，语句之间以分号隔开。

执行部分之后有一个句点，表示整个程序结束。

⒋PASCAL程序的书写方法比较灵活。当然，书写不应以节省篇幅为目的，而应以程序结构清晰、易读为目的。在编写程序时尽量模仿本书中例题程序格式。

⒌在程序中，一对大括号间的文字称为注释。注释的内容由人们根据需要书写，可以用英语或汉语表示。注释可以放在任何空格可以出现的位置。执行程序时计算机对注释不予理睬。

四、Turbo Pascal语言系统的使用

目前，常用的Pascal语言系统有Turbo Pascal7.0与Borland Pascal 7.0，下面我们就来学习Turbo Pascal 7.0系统的使用。

1． 系统的启动

在运行系统目录下的启动程序TURBO.EXE，即可启动系统。屏幕上出现如图1所示的集成环境。

2． Turbo Pascal系统集成环境简介

最顶上一行为主菜单。中间蓝色框内为编辑窗口，在它个编辑窗口内可以进行程序的编辑。最底下一行为提示行，显示出系统中常用命令的快捷键，如将当前编辑窗口中文件存盘的命令快捷键为F2，获得系统帮助的快捷键为F1，等等。

3． 新建程序窗口

按F10进行主菜单，选择FILE菜单，执行其中New命令。就可建立一个新的程序窗口（默认文件名为Noname00.pas或Noname01.pas等）。

4． 程序的输入、编辑与运行

在当前程序窗口中，一行一行的输入程序。事实上，程序窗口是一个全屏幕编辑器。所以对程序的编辑与其它编辑器的编辑方法类似，这里不再重复。

当程序输入完毕之后，一般要先按Alt+F9（或执行compile菜单中compile命令）对程序进行编译。如果程序有语法错误，则会在程序窗口的第一行处显示第一个红色错误信息。若无语法错误，则窗口正中央会出现一个对话框，提示编译成功。接下来，我们可以运行程序了。

程序的运行可以通过按ALT+R打开RUN菜单中的RUN命令，或直接按快捷键CTRL+F9。则可以在用户窗口中输出运行结果。通常在程序运行结束后系统回到Pascal系统的集成环境，因此要查看运行结果，要按ALT+F5将屏幕切换到用户屏幕。

5．程序的保存与打开

当我们想把程序窗口中的程序存入磁盘时，可以通过按F2键(或执行File菜单中的save命令)来保存程序。第一次保存文件时屏幕上会出现一个对话框要求输入文件名(默认扩展名为.pas)。

当我们要将磁盘上的程序文件中的PASCAL程序装入窗口时，可按F3(或执行File菜单中的Open命令)来装入程序，此时系统也会d出一个对话框要求输入要打开的文件名，或直接在文件对话框列表中选择所要的文件，然后回到打开文件。

五、第一个程序

下面程序在运行时，会提示输入一个圆的半径，然后会在屏幕上画一个圆。按回车后程序结束回到程序窗口。

Program ex1

Uses graph

Var Gm,Gd,R :integer

Begin

Gd:=0

Write('Please enter the radius:')readln(R)

Initgraph(Gm,Gd,' ')

Setcolor(Green)

Circle(320,240,R)

Readln

Closegraph

End.

注意，如果上面程序运行时会出现初始化图形错误，请将系统目录下BGI子目录EGAVGA.BGI和UNITS子目录中的Graph.tpu拷贝到系统目录下BIN目录即可。

请输入上面的程序，并练习将其存盘、打开与运行上面程序。

建议用一些有意义的变量名，可以防止弄错各变量功能。

您写的程序已经不能改了，所以为您重写了一个，已经调试过了。

var x,i,sum,k,solve:integer

begin

readln(x)

solve:=0

for i:=1 to x div 2 do

begin

sum:=i

k:=i

while sum<x do

begin

k:=k+1

sum:=sum+k

end

if sum=x then

begin

writeln(i,' ',k)

solve:=solve+1

end

end

if solve=0 then writeln('No Solution') else writeln('Find ',solve,' Solution(s)')

end.

完全的Pascal程序框架

program程序名（程序参数表）； label（可省略） 标号说明； const 常量说明； type 类型说明； var 变量说明； function 函数说明； endprocedure begin 过程说明； endbegin 程序语句； ……； 程序语句； end.

基本符号

Pascal语言只能使用以下几类基本符号：

（1）大小写英文字母

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i j k l m n o p q r s t u v w x y z

（2）数字

1 2 3 4 5 6 7 8 9 0

（3）其他符号

+ - * / = <><= >= ><( ) [ ] { } := , . : .. div mod 运算符 优先级

not 1（最优先）

*,/,div,mod,and 2

xor,+,-,or 3

in,=,<>,>=,<=,<,>4（末优先）

注意,Pascal语言除了可以使用以上规定的字符外，不得使用其他任何符号。

第一课　Pascal语言知识 一、Pascal 语言概述 Pascal语言是一种算法语言，它是瑞士苏黎世联邦工业大学的沃思教授于1968年设计完成的，1971年正式发表。Pascal语言是在ALGOL60的基础上发展而成的。它是一种结构化的程序设计语言。它的功能强、编译程序简单，是70年代影响最大一种算法语言。 从使用者的角度来看，Pascal语言有以下几个主要的特点： ⒈ 结构化 Pascal可以方便地书写出结构化程序。这就保证程序的正确性和易读性。在结构化这一点上，比其它算法语言更好一些。 ⒉ 数据类型丰富 Pascal提供了整数型、实数型、字符型、布尔型、枚举型、子界型以及由以上类型构成的数组类型、集合类型、记录类型和文件类型。此外，还提供了其它许多语言中所没有的指针类型。丰富的数据结构和上述的结构化性质，使得Pascal可以被方便地用来描述复杂的算法。 ⒊ 适用性好 既适用于数值运算，也适用于非数值运算领域。有些语言只适用于数值计算，有些语言则适用于商业数据处理和管理领域。Pascal的功能较强，能广泛应用于各种领域。 ⒋ 书写较自由 不象有些算法语言那样对程序的书写格式有严格的规定。Pascal允许一行写多个语句，一个语句可以分写在多行上，这样就可以使Pascal程序写得象诗歌格式一样优美，便于阅读,但一行不可超过257个字符。 由于以上特点，许多学校选Pascal作为程序设计课程中的一种主要的语言。它能给学生严格而良好的程序设计的基本训练。培养学生结构化程序设计的风格。

二、Pascal语言程序的基本结构

任何程序设计语言都有一定的规则。使用Pascal语言必须遵循其本身所规定的规则来编写程序。尽管不同版本的Pascal语言所采用的符号的数量、形式不尽相同，但其基本成分一般都符合标准Pascal的规定。下面我们首先来了解Pascal语言的程序基本结构。 为了明显起见，先举一个最简单的Pascal程序例子： 【例1】 program li1(input,output){程序首部} const pi=3.1415926var r,l,s:realbegin write('input r:')readln(r)s:=pi*r*rl:=2*pi*rwriteln('s=',s)writeln('l=',l)end. 从这个简单的程序可以看到： ⒈ 一个Pascal程序分为两个部分：程序首部和程序体（或称分程序）。 ⒉ 程序首部是程序的开头部分，它包括： ⑴程序标志。用"program"来标明这是一个Pascal 程序。Pascal规定任何一个Pascal程序的首部都必须以此字开头。在Free Pascal中，首部也可省略。 ⑵程序名称。由程序设计者自己定义，如例中的li1。在写完程序首部之后，应有一个分号。 ⒊ 程序体是程序的主体，在有的书本里也称"分程序"。程序体包括说明部分（也可省略）和执行部分两个部分。 ⑴说明部分用来描述程序中用到的变量、常量、类型、过程与函数等。本程序中第二行是"变量说明"，用来定义变量的名称、类型。 Pascal规定，凡程序中用到的所有变量、符号常量、数组、过程与函数、记录、文件等数据都必须"先说明，再使用"。 ⑵执行部分的作用是给出需要计算机执行的 *** 作。 执行部分以"begin"开始，以"end"结束，其间有若干个语句，语句之间以分号隔开。执行部分之后有一个句点，表示整个程序结束。 ⒋ Pascal程序的书写方法比较灵活。书写程序应结构清晰、容易阅读理解。在编写程序时希望读者尽量模仿本书中例题程序格式。 ⒌ 在程序中，一对大括号间的文字称为注释（也可用/*、*/)。注释的内容由人们根据需要书写，可以用英语或汉语表示。注释可以放在任何空格可以出现的位置。执行程序时计算机对注释不予理睬。

三、Free Pascal语言系统的使用

目前，信息学竞赛使用的Pascal语言系统是Free Pascal，下面我们就来学习Free Pascal的使用。 1．系统的启动free pascal

在运行系统目录下的启动程序fp.EXE，即可启动系统。屏幕上出现如图1所示的集成环境。 2．Free Pascal系统集成环境简介 最顶上一行为主菜单。中间蓝色框内为编辑窗口，在它个编辑窗口内可以进行程序的编辑。最底下一行为提示行，显示出系统中常用命令的快捷键，如打开一个文件的快捷键为F3，将当前编辑窗口中文件存盘的快捷键为F2，获得系统帮助的快捷键为F1，等等。 3．新建程序窗口 按F10进行主菜单，选择FILE菜单，执行其中New命令。就可建立一个新的程序窗口（默认文件名为Noname00.pas或Noname01.pas等）。 4．程序的输入、编辑与运行 在当前程序窗口中，一行一行的输入程序。程序窗口是一个编辑器。所以对程序的编辑与其它编辑器相似，类似记事本程序。 当程序输入完毕之后，一般要先按Alt+F9（或执行compile菜单中compile命令）对程序进行编译。如果程序有语法错误，则会在程序窗口的下方显示错误信息。若无语法错误，则窗口正中央会出现一个对话框，提示编译成功。接下来，我们可以运行程序了。 程序的运行可以通过按ALT+R打开RUN菜单中的RUN命令，或直接按快捷键CTRL+F9。则可以在用户窗口中输出运行结果。通常在程序运行结束后系统回到Pascal系统的集成环境，因此要查看运行结果，要按ALT+F5将屏幕切换到用户屏幕。 5．程序的保存与打开 当我们想把程序窗口中的程序存入磁盘时，可以通过按F2键(或执行File菜单中的save命令)来保存程序。第一次保存文件时屏幕上会出现一个对话框要求输入文件名(默认扩展名为.pas)。 当我们要将磁盘上的程序文件中的Pascal程序装入窗口时，可按F3(或执行File菜单中的Open命令)来装入程序，此时系统也会d出一个对话框要求输入要打开的文件名，或直接在文件对话框列表中选择所要的文件，然后回到打开文件。（.pas文件，可以由记事本打开）

编辑本段主要使用标识符

real 实数 integer 整数 longint 长整型 shortint 短整型 int64 超长整型 single 单精度 double 双精度 char 单个字符 string 字符型 ansistring 内存字符型 int64 -2^63-2^63-1的整数类型 qword 无符号的整型(0~2^64-1) begin 开始 end 结束 if 如果 for ... to .... do 循环 readln read 输入 write writeln 输出 then 那么（常与if连用） else 否则 (常与if和then连用，当if后面的条件为假时，程序就会执行else后的语句) boolean 布尔型 true 真实 false 假的

编辑本段pascal错误代码表

pascal运行错误代码表

1无效DOS功能号 2文件未找到 3路径未找到 4打开文件过多 5禁止文件存取 6无效文件句柄 12无效文件存取代码 15无效驱动器号 16不能删除当前目录 17不能跨驱动器改文件名 100磁盘读错误 101磁盘写错误 102文件变量未赋值 103文件未打开 104文件未用输入方式打开 105文件未用输出方式打开 106无效数字格式 150磁盘写保护 151未知单元 152驱动器未准备好 153未知命令 154数据CRC校验错 155驱动器请求的结构长度错 156磁盘定位错 157未知媒介类型 158扇区未找到 159打印机缺纸 160设备写失败 161设备读失败 162硬件故障 200被零除 201范围检查错 202堆栈溢出错 203堆溢出错 204无效指针 *** 作 205浮点上溢出 206浮点下溢出 207无效浮点运算 208未安装覆盖管理程序 209覆盖文件读错 210对象未初始化 211调用抽象方法 212流登计错 213**下标越界 214**溢出 215算术上溢错误 216存取非法 217控制-C 218授权指令 219无效的TYPECAST 220无效的变体TYPECAST 221无效的变体 *** 作 222没有变体方法调用DISPATCHER 223不能建立变体数组 224变体不包含数组 225变体数组边界错误 226TLS初始化错误

pascal编译错误代码表

1内存溢出 2缺标识符 3标识符未定义 4标识符重定义 5语法错误 6实型常量错 7整型常量错 8字符串常量跨行 9文件嵌套过多 10非正常文件结束 11行过长 12缺类型标识符 13打开文件过多 14无效文件名 15文件未找到 16磁盘满 17无效编译指示 18文件过多 19指针定义中未定义类型 20缺变量标识符 21类型错误 22结构过长 24文件分量不能为文件 25无效字符串长度 26类型不匹配 27无效子界基类型 28下界大于上界 29缺有序类型 30缺整型常数 31缺常数 32缺整型或实型常数 33缺指针类型标识符 34无效的函数结果类型 35缺标号标识符 36缺BEGIN 37缺END 38缺整型表达式 39缺有序表达式 40缺布尔表达式 41 *** 作数类型与 *** 作符不匹配 42表达式错 43非法赋值 44缺字段标识符 45目标文件过长 46未定义外部标识符 47无效*.OBJ文件记录 48代码段过长 49数据段过长 50缺DO 51无效PUBLIC定义 52无效EXTRN定义 53EXTRN定义过多 54缺0F 55缺INTERFACE 56无效重定位引用 57缺THEN 58缺T0或DOWNTO 59未定义的向前引用 60过程过多 61无效类型转换 62被零除 63无效文件类型 64不能读写该类型的变量 65缺指针变量 66缺字符串变量 67缺字符串表达式 68单元循环引用 69单元名不匹配 70单元版本不匹配 71单元重名 72单元文件格式错误 73缺IMPLEMENTATI0N 74常数与CASE类型不相匹配 75缺记录变量 76常数越界 77缺文件变量 78缺指针变量 79缺整型或实型表达式 80标号不在当前块中 81标号已定义 82标号未定义 83无效参数 84缺UNIT 85缺“” 86缺“:” 87缺“,” 88缺“(” 89缺“)” 90缺“=” 91缺“:=” 92缺“[”或“(.” 93缺“]”或“.)” 94缺“.” 96变量过多 97无效FOR控制变量 98缺整型变量 99此处不允许用文件 100字符串长度不匹配 101无效字顺序 102缺字符串常数 103缺整型或实型变量 104缺有序变量 105INLINE错 106缺字符表达式 107重定位项过多 112CASE常量越界 113语句错 114不能调用中断过程 116必须在8087方式下编译 117未找到目标地址 118此处不允许包含文件 120缺NIL 121无效限定符 122无效变量引用 123符号过多 124语句部分过长 126文件必须为变量参数 127条件符号过多 128条件指令错位 130初始条件定义错 131过程和函数头与前面定义的不匹配 132严重磁盘错误 133不能计算该表达式 134表达式错误结束 135无效格式说明符 136无效间接引用 137此处不允许结构变量 138无SYSTEM单元不能计算 139不能存取该符号 140无效浮点运算 141不能将覆盖编译至内存 142缺过程和函数变量 143无效过程或函数引用 144不能覆盖该单元 147缺对象类型 148不允许局部对象类型 149缺VIRTUAL 150缺方法标识符 151不允许虚拟构造方法 152缺构造方法标识符 153缺释放方法标识符 154FAIL只允许在构造方法内使用 155无效的 *** 作符和 *** 作数组合 156缺内存引用 157不能加减可重定位符号 158无效寄存器组合 159未激活286/287指令 160无效符号引用 161代码生成错 162缺ASM

---