pasical程序基本语句

完全的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

你需要什么英语大全，关键字就那么几个 int short long float double if else .....while for.....

还有就是些错误提示英文解释。：

TURBOC编译错误信息说明大全

#operator not followed by maco argument name

#运算符后没跟宏变元名

Ambiguous operators need parentheses

不明确的运算需要用括号括起

Ambiguous symbol ''xxx''

不明确的符号

Argument # missing name

参数#名丢失

Argument list syntax error

参数表语法错误

Array bounds missing

丢失数组界限符

Array size too large

数组尺寸太大

Assembler statement too long

汇编语句太长

Bad call of in-line function

内部函数非法调用

Bad character in paramenters

参数中有不适当的字符

Bad configuration file

配置文件不正确

Bad file name format in include directive

包含命令中文件名格式不正确

Bad ifdef directive synatax

编译预处理ifdef有语法错

Bad ifndef directive syntax

编译预处理ifndef指令语法错误

Bad undef directive syntax

编译预处理undef有语法错

Bit field too large

位字段太长

Call of non-function

调用未定义的函数

Call to function with no prototype

调用函数时没有函数的说明

Cannot modify a const object

不局升允许修改常量对象

Case outside of switch

Case 出现在switch外

Case statement missing

Case语句漏掉

Case syntax error

Case 语法错误

Character constant too long

字符常量太长

Code has no effect

代码不可述不可能掘或执行到

Compound statement missing{

分程序漏掉"{"

Conflicting type modifiers

不明确的类型说明符

Constant expression required

要求常量表达式

Constant out of range in comparison

在比较中常量超出范围

Conversion may lose significant digits

转换时会丢失意义的数字

Conversion of near pointer not allowed

不允许转桐散老换近指针

Could not find file ''xxx''

找不到XXX文件

Declaration missing

说明缺少"；"

Declaration needs type or storage class

说明必须给出类型或存储类

Declaration syntax error

说明中出现语法错误

Default outside of switch

Default 出现在switch语句之外

Define directive needs an identifier

编译预处理指令Define需要标识符

Division by zero

用零作除数

Do statement must have while

Do-while语句中缺少while部分

DO while statement missing (

Do while语句中漏掉了符号 "("

Do while statement missing；

Do while语句中掉了分号

Duplicate Case

Case情况不唯一

Enum syntax error

枚举类型语法错误

Enumeration constant syntax error

枚举常数语法错误

Error directive :xxx

错误的编译预处理命令

Error writing output file

写输出文件错误

Expression syntax error

表达式语法错误

Extra parameter in call

调用时出现多余参数

Extra parameter in call to xxxxxx

调用xxxxxxxx函数时出现了多余参数

File name too long

文件名太长

For statement missing )

For语名缺少")"

For statement missing(

For语句缺少"("

For statement missing

For 语句缺少"；"

Function call missing )

函数调用缺少右括号

Fuction definition out of place

函数定义位置错误

Fuction should return a value

函数必需返回一个值

Goto statement missing label

Goto语句没有标号

Hexadecimal or octal constant too large

16进制或8进制常数太大

If statement missing(

If语句缺少"("

If statement missing)

If语句缺少")"

Illegal character ''x''

非法字符x

Illegal initialization

非法的初始化

Illegal octal digit

非法的8进制数字

Illegal pointer subtraction

非法的指针相减

Illegal structure operation

非法的结构体 *** 作

Illegal use of floating point

非法的浮点运算

Illegal use of pointer

指针使用非法

Improper use of a typedef symbol

类型定义符号使用不恰当

In-line assembly not allowed

不允许使用行间汇编

Incompatible storage class

存储类别不相容

Incompatible type conversion

不相容的类型转换

Incorrect commadn line argument:xxxxxx

不正确的命令行参数：xxxxxxx

Incorrect commadn file argument:xxxxxx

不正确的配置文件参数：xxxxxxx

Incorrect number format

错误的数据格式

Incorrect use of default

Default使用不当

Initializer syntax error

初始化语法错误

Invalid indirection

无效的间接运算

Invalid macro argument separator

无效的宏参数分隔符

Invalid pointer addition

指针相加无效

Irreducible expression tree

无法执行的表达式运算

Invalid use of dot

点使用错

Lvalue required is assigned a value

需要逻辑值0或非0值

Macro argument syntax error

宏参数语法错误

Macro expansion too long

宏的扩展太长

Mismatched number of parameters in definition

定义中参数个数不匹配

Misplaced break

此处不应出现break语句

Misplaced continue

此处不应出现continue语句

Misplaced decimal point

此处不应出现小数点xxx''

Misplaced else

此处不应出现else

Misplaced else directive

此处不应出现编译预处理else

Misplaced endif directive

此处不应出现编译预处理endif

Must be addressable

必须是可以编址的

Must take address of memory location

必须存储定位的地址

No declaration for function ''xxx''

没有函数xxx的说明

No file name ending

无文件终止符

No file names given

未给出文件名

No stack

缺少堆栈

No type information

没有类型信息

Non-portable pointer assignment

对不可移动的指针（地址常数）赋值

Non-portable pointer comparison

不可移动的指针（地址常数）比较

Non-portable pointer conversion

不可移动的指针（地址常数）转换

Non-protable return type conversion

不可移植的返回类型转换

Not a valid expression format type

不合法的表达式格式

Not an allowed type

不允许使用的类型

Numeric constant too large

数值常太大

Out of memory

内存不够用

Parameter ''xxx'' is never used

参数xxx没有用到

Pointer required on left side of ->

符号->的左边必须是指针

Possible use of ''xxx'' before definition

在定义之前就使用了xxx（警告）

Possibly incorrect assignment

赋值可能不正确

Redeclaration of ''xxx''

重复定义了xxx

Redefinition of ''xxx'' is not identical

xxx的两次定义不一致

Register allocation failure

寄存器定址失败

Repeat count needs an lvalue

重复计数需要逻辑值

Size of structure or array not known

结构体或数组大小不确定

Statement missing

语句后缺少"；"

Structure or union syntax error

结构体或联合体语法错误

Structure size too large

结构体尺寸太大

Subscripting missing ]

下标缺少右方括号

Superfluous &with function or array

函数或数组中有多余的"&"

Suspicious pointer conversion

可疑的指针转换

Switch statement missing (

switch 语句缺少"("

Switch statement missing )

switch 语句缺少")"

Symbol limit exceeded

符号超限

Too few parameters in call

函数调用参数太少

Too few parameter in call to'xxxxxx'

调用'xxxxxx'时参数太少

Too many cases

Cases太多

Too many decimal points

十进制小数点太多

Too many default cases

Default太多(switch语句中一个)

Too many exponents

阶码太多

Too many initializers

初始化太多

Too many error or warning messages

错误或警告信息太多

Too many storage classes in declaration

说明中存储类太多

Too many type in declaration

说明中类型太多

Too much auto memory in function

函数用到的自动存储太多

Too much global data defined in file

文件中全局数据太多

Two consecutive dots

两个连续的点

Type mismatch in parameter #

参数"#"类型不匹配

Type mismatch in parameter # in call to 'XXXXXXX'

调用'XXXXXXX'时参数#类型不匹配

Type mismatch in parameter xxx

参数xxx类型不匹配

Type mismatch in parameter 'YYYYYYYY' in call to 'YYYYYYYY'

调用'YYYYYYY'时参数'XXXXXXXX'数型不匹配

Type mismatch in redeclaration of ''xxx''

xxx重定义的类型不匹配

Unable to create output file ''xxx''

无法建立输出文件xxx

Unable to create turboc.lnk

不能创建turboc.lnk

Unable to execute command 'xxxxxxxx'

不能执行'xxxxxxxx'命令

Unable to open include file 'xxx'

无法打开被包含的文件xxx

Unable to open input file 'xxx'

无法打开输入文件xxx

Undefined label 'xxx'

没有定义的标号xxx

Undefined structure 'xxx'

没有定义的结构xxx

Undefined symbol 'xxx'

没有定义的符号xxx

Unexpected end of file in comment started on line xxx

源文件在从xxx行开始的注释中意外结束

Unexpected end of file in conditional started on line xxx

源文件在#行开始的条件语句中意外结束

Unknown assemble instruction

未知的汇编结构

Unknown option

未知的 *** 作

Unknown preprocessor directive: ''xxx''

不认识的预处理命令xxx

Unreachable code

无路可达的代码

Untermimated character constant

未终结的字符常量

Unterminated string

未终结的串

Unterminated string or character constant

字符串或字符常量缺少引号

User break

用户强行中断了程序

Value required

赋值请求

Void functions may not return a value

Void类型的函数不应有返回值

While statement missing (

While语句漏掉 '('

While statement missing )

While语句漏掉 ')'

Wrong number of arguments in of 'xxxxxxxx'

调用'xxxxxxxx'时参数个数错误

'xxx' not an argument

xxx不是参数

'xxx' not part of structure

xxx不是结构体的一部分

xxx statement missing (

xxx语句缺少左括号

xxx statement missing )

xxx语句缺少右括号

xxx statement missing

xxx缺少分号

'xxx' declared but never used

说明了xxx但没有使用

'xxx' is assigned a value which is never used

给xxx赋了值但未用过

Zero length structure

结构体的长度为零

---