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、 程序首部
PROGRAM circle(input,output);
程序首部包括保留字PROGRAM 和用户自定义的程序名称（在这个例子中是c ircle ）。用“PROGRAM ”来标识“这是一个Pascal 程序”，任何一个Pascal 程序都必须以此字开头。
保留字：Pascal 规定了一批英文单词，赋予他们以特定的含义，有专门的用途，不能作为它用。
括号中的input,output 是标准的标识符
标准的标识符：是预先给标准函数，标准过程、标准常量、标准类型，标准文件定义的标识符，即 Pascal 语言已确定了标准标识符的名称和性质，如标准输入文件．标准输出文件等，在书写程序中可直接使用，不必事先定义。下面列出标准标识符的一部分：
标准常量：false true 、maxint
标准类型：integer real boolean char text
标准文件：input output
标准函数：abs chr odd ord pred qrt succ truce sin cos exp ln
标准过程：read readln write writeln
用户自定义的程序名称：circle ，是一个用户自定义标识符。
用户自定义标识符：是用户按标识符定义的规则自己定义的．常选用能说明某种意义的英文单词．用户标识符必须事先定义或说明才能在程序中使用它．用户自定义的标识符不能用保留字，最好也不要选用标准标识符．
其实就是我们在之前所说的：由字母开头，由字母、数字和下划线构成的符号。
Pascal 语句之间也要分隔开，一般用分号‘；’分隔，—条语句可以分几行写，也可以一行写几条语句；
2、 说明部分：
Const pi=3.1415926; V ar r,s:real;
l:real;
说明部分有两个保留字：Const 和Var 。
Const 常量说明，由Const 开头到另一保留字（在例2中是从Const 到V ar 之间）之前的部分，表示为一个“常量说明区”。在常量保留区内的将被定义为不变的量（在例2中pi 的值始终是
3.1415926）。
V ar 变量说明，在变量说明区内的量表示为“变量”。定义变量和定义常量不同，在定义的时候必须要说明是什么类型的变量（在这个例子里面，两个变量r 和s 被定义为实数real 型的变量），在程序的运行过程中将可以改变其内容，但内容的类型一定要和定义时的类型一致。
计算机处理的数据对象是一个广义的概念． 比如 125、12.76是数据，‘ni hao ！’这一串字符也是数据。前者是数值数据，后者是字符串数据、是非数值数据．
为处理这些数据，计算机对它们施加的运算也不同．为此 Pasca 语言建立了数据类型的概念，对描述的数据进行分类．
程序中所用到的每一个数据．包括常量和变量都有和它相联系的类型．由此决定了数据所具有的值，也决定了对该数据所能进行的操作。
常量说明区 ——————————————————— 变量说明区
Pascal语言中数据具有丰富的类型．按它们的特点可以分为简单类型、构造类型、指针类型和过程类型四大类。其中简单类型包括标准类型(实数类型、整数类型、字符类型、布尔类型、字符串类型)和用户自定义类型(枚举类型、子界类型)。
其中标准类型用语言系统预先定义的标准标识符表示；整数类型用Integer表示；实数类型用real表示；布尔类型用boolean表示；字符类型用char表示．
整数型integer
范围：-32768到32767
实数型real
根据不同的机器有不同的范围，通常用来表示非整数的值
字符型char
用单引号括起来的单个字符，例如‘a’‘A’‘1’
布尔型Boolean
用作判断逻辑的“真”和“假”，在Pascal程序中是true和false表示。
注意：常量的数据类型是由其取值决定的，不需要定义。而变量除了要定义变量的名字外，还必须定义其变量的数据类型。
例如：pi是常量，由于它的值为3.1415926所以pi的数据类型是实型，而l和s,不管半径是什么值，由于r与pi相乘后，结果一定是实数，由此可判断变量l,s的数据类型应定义为实型。
3、程序主体
BEGIN
Write(‘r=’);
Readln(r);
s:=2*pi*r*r;
l:=2*pi*r;
writeln(‘s=’,s);
writeln(‘l=’,l);
END.
这是一个非常简单的程序主体。
Begin和End都是保留字，程序主体以begin开始，以end结束（注意，end后面有一个句号，表示整个程序结束）。Begin和end之间包含多个语句，在例2中包含了3个语句，每一个语句用分号“;”分隔（begin和end不是语句，只是作为程序主体的起止标志）。
readln(r);
readln是标准的过程，作用是读入用户输入的一行数据，并把数据赋值到后面括号内的变量中（注意输入的数据的类型要和变量定义的类型相吻合）
s:=pi*r*r;
对应于圆面积的求解公式。
注意赋值的格式，被赋值的变量放在前面，赋值的符号是“:=”，赋值符号后面的是公式或变量。
writeln(‘s=’,s);
writeln(‘l=’,l);
writeln是一个标准的过程，作用是用于输出括号内的内容，内容包括字符串（用单引号括住）以及变量。可以输出多项的字符串和变量，每一项之间用逗号分隔。
字符串会原样的输出。
变量则会把变量当前的内容输出。
pi*r*r 是一个表达式，它是描述计算机规则的一种算法结构，程序中所有运算都是在表达式中完成的。它与数学中的表达式有很多相似之处。
表达式用来计算值，根据值的类型，表达式可分为：算术表达式（值是实数和整数）、布尔表达式（值是布尔型）、字符表达式（值是字符型或字符串型）和集合表达式（值是集合类型）
算术表达式的定义：是有符合 pascal 的语法规则的数值型运算对象（包括数值型常量、变量、函数）、运算符、圆括号组成的有意义的式子。
例3中，(L/m+1)*p*m ；
在程序中可看到还有一些运算符号等。在pascal 中有6个基本运算符号：
①． + （加）
②． - （减）
③． * （乘）
④． / （实数除，得出的结果是实数）
⑤． DIV （整除）
MOD （求余数，如果a MOD b ，所得结果的符号与a 相同，其值的绝对值在0～|b|-1之间）
基本运算符练习：
1. 将数学上的式子转换成为pascal 的表达式
1) 132
+
2) ??
? ??-?1212
3) 321652+-??
? ??
2. DIV 和MOD 的计算
1) 10 DIV 2
2) 10 DIV 3
3) 5 DIV 10
4) -15 DIV 4
5) 10 MOD 4
6) -17 MOD 4
7) -3 MOD 4
8) 4 MOD -3
9) -4 MOD 3
3. pascal 语言源程序结构由哪几部分组成？
4.请模仿写出一个Pascal程序实现计算机梯形的面积，假设梯形的上底a=15,下底b=26,高h=12.
5.叙述标识符的定义，指出下列用户自定、义的标识符是否合法？为什么？
xyz,4ab,end,ab s,b(3),m+n,class,one
6.下列数据是整数类型？那些是实数类型？那些是非法的？
101，10.32, 1.67E+88,3E+0.6,0.7E3,345600,0.0075E-32,234.0001,E+12
7.下列符号那些表示字符？哪些表示字符串？那些不属于上述两种范围？
‘book’, ’age’ , ’x’ , ’b’ , 12, ’312’ , the , ’### ### ‘ , ’8’ , ’_’ , pen , m , ‘3’
8.下列那些是合法的常量定义：
const
book=45;
blank=’‘;
ch:’name’;
-x=31;
m=7;
n=n+12;
f=false;
y=8-x;
v=60;
9.下列变量说明哪些是不正确的？为什么？
1）V ar 2) var
a,b,c:integer; x1,x2,x3:integer;
bookname,b,c:char; a,b,tel:character;
x,y:real; m,n:bool;
10.求出下列表达式的值（数值或逻辑值）
1）13*6*8 div 3 2) 5/4*2.5/1.25*(4+6)
3)24 div 4*sqr(6)/3.6 4)28 div 4 mod 3*trunc(3.674)
5)12 mod 5*ord(succ(‘N’)) div 3-ord(true)
6)98 div 12/ord(pred(‘f’)*trunc(2.45+3.6*4)*round(23.56*3-6.75)
7)23>12 8)(‘A’>’b’) or (succ(‘E’=’F’)
9) pred(true)=false 10)succ(5)>=5
备注：pascal语言提供的标准函数：
1）算术函数：
绝对值函数abs(x):函数值为X的绝对值，a= -23,abs(a)=23
平方函数sqr(x): 函数值为X的平方，a=-2,sqr(a)=4
平方根函数sqrt(x): 函数值为X的平方根，a=4,sqrt(a)=±2
整数函数 int(x): 函数值为X的整数部分，a=3.14,int(a)=3,a=-3.54,int(a)=-3
小数函数frac(x): 函数值为X的小数部分，a=3.14,int(a)=0.14,a=-3.54,int(a)=-0.54
指数函数exp(x): 函数值为e x,a=3,exp(a)=e3,e=2.
对数函数 ln(x): 函数值为x的自然对数,a=3,ln(3)=
圆周率函数Pi: 无自变量，函数值为Л的值。
随机函数random: 无自变量时，函数值取（0，1）间的随机小数，若有自变量，且为WORD时，函数值取（0，自变量）间的随机整数。
其中word类型的是整型数，其取值范围是（0，255）之间的一个随机整数。
例如：var
a:word;
有a=34,则有random(a)的取值范围是0-34之间的任一随机整数。
由于pascal语言没有乘幂运算符和函数，而x y=e ylnx，故x y=exp(y*ln(x))
例如：求x10，则结果是：exp(10*ln(x))
2）转换函数
截尾函数trunc(x): 函数值为舍去实数X的小数部分，并转换为整型。a=3.65, trunc(a)=3
舍入函数round(x):函数值为对实数X作四舍五入，并转换为整型。a=3.65,round(a)=3
upcase(x): 函数值为对英文的小写字母转换为大写字母。a=’t’,upcase(a)=’T’
3)顺序函数
前趋函数pred（x）: 函数值为x-1,a=36,pred(a)=35,a= -36,pred(a)= -37,a=’b’,pred(a)=’a’,
a=’B’,pred(a)=’A’,a=true,pred(a)=false,a=false,pred(a)=true,
后续函数succ(x): 函数值为x+1, a=36,succ(a)=37,a= -36, succ (a)= -35,a=’b’, succ (a)=’c’,
a=’B’, succ (a)=’C’,a=true, succ (a)=true,a=false, succ (a)=true,
4)字符函数
序号函数ord(x):函数值为字符X的序号。a=’a’,ord(a)=97,a=’A’,ord(a)=65,
a=’0’,ord(a)=48,a=’1’,ord(a)=49
字符函数chr(x): 函数值为序号是x的字符。a=97,chr(a)=’a’,a=65,chr(a)=’A’
a=48,chr(a)=’0’
5)奇函数odd(x):函数值为逻辑值，a=12,odd(a)=false,a=13,odd(a)=true
科学记数法的规则：
在一实数类型数中除了正负号，小数点及字母E外不能有其他字符，在小数点前后必须都有数字，在指数形式（科学记数法）中字母E前必须有一个小数形式的实数，E后必须有一个整数，一个整数可以当作实数使用。
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;
第十二课过程与函数 前面我们曾经学习了程序设计中的三种基本控制结构（顺序、分支、循环）。用它们可以组成任何程序。但在应用中，还经常用到子程序结构。 通常，在程序设计中，我们会发现一些程序段在程序的不同地方反复出现，此时可以将这些程序段作为相对独立的整体，用一个标识符给它起一个名字，凡是程序中出现该程序段的地方，只要简单地写上其标识符即可。这样的程序段，我们称之为子程序。 子程序的使用不仅缩短了程序，节省了内存空间及减少了程序的编译时间，而且有利于结构化程序设计。因为一个复杂的问题总可将其分解成若干个子问题来解决，如果子问题依然很复杂，还可以将它继续分解，直到每个子问题都是一个具有独立任务的模块。这样编制的程序结构清晰，逻辑关系明确，无论是编写、阅读、调试还是修改，都会带来极大的好处。在一个程序中可以只有主程序而没有子程序(本章以前都是如此)，但不能没有主程序，也就是说不能单独执行子程序。pascal中子程序有两种形式：函数和过程。 一、函数 在此之前，我们曾经介绍并使用了pascal提供的各种标准函数，如ABS,SUCC等等，这些函数为我们编写程序提供了很大的方便。但这些函数只是常用的基本函数，编程时经常需要自定义一些函数。 （一）函数的说明 在pascal中，函数也遵循先说明后使用的规则，在程序中，函数的说明放在调用该函数的程序（主程序或其它子程序）的说明部分。函数的结构主程序的结构很相似。 函数定义的一般格式: function <函数名> (<形式参数表>):<类型>; {函数首部} 说明: ①函数由首部与函数体两部分组成。 ②函数首部以关键字function开头。 ③函数名是用户自定义的标识符。 ④函数的类型也就是函数值的类型，所求得的函数值通过函数名传回调用它的程序。可见，函数的作用一般是为了求得一个值。 ⑤形式参数简称形参，形参即函数的自变量。自变量的初值来源于函数调用。在函数中，形参一般格式如下： 变量名表1：类型标识符1；变量名表2：类型标识符2；…;变量名表n：类型标识符n 可见形参表相当于变量说明，对函数自变量进行说明，但应特别注意：此处只能使用类型标识符，而不能直接使用类型。 ⑥当缺省形参表（当然要同时省去一对括号）时，称为无参函数。 ⑦函数体与程序体基本相似，由说明部分和执行部分组成。 ⑧函数体中的说明部分用来对本函数使用的标号、常量、类型、变量、子程序加以说明，这些量只在本函数内有效。 ⑨函数体的执行部分由begin开头，end结束，中间有若干用分号隔开的语句，只是end后应跟分号,不能像程序那样用句号"."。 ⑩在函数体的执行部分，至少应该给函数名赋一次值，以使在函数执行结束后把函数值带回调用程序。 （二）函数的调用
第十课字符与字符串处理 一、字符、字符串类型的使用 （一）字符类型 字符类型为由一个字符组成的字符常量或字符变量。 字符常量定义: const 字符常量='字符' 字符变量定义:Ⅱ Var 字符变量:char; 字符类型是一个有序类型, 字符的大小顺序按其ASCⅡ代码的大小而定。函数succ、pred、ord适用于字符类型。 例如：后继函数：succ('a')='b' 前继函数：pred（'B'）='A' 序号函数：ord（'A'）=65 ord(‘a’)=97 ord(‘0’)=48 例1按字母表顺序和逆序每隔一个字母打印。即打印出： a c e g I k m o q s u w y z x r v t p n l j h f d b 程序如下： program ex8_1; var letter:char; begin for letter:='a' to 'z' do if (ord(letter)-ord('a'))mod 2=0 then write(letter:3); writeln; for letter:='z' downto 'a' do if (ord(letter)-ord('z'))mod 2 =0 then write(letter:3); writeln; end. 分析：程序中，我们利用了字符类型是顺序类型这一特性，直接将字符类型变量作为循环变量，使程序处理起来比较直观。 （二）字符串类型 字符串是由字符组成的有穷序列。 字符串类型定义： type <字符串类型标识符>=string[n]; var 字符串变量: 字符串类型标识符; 其中:n是定义的字符串长度,必须是0~255之间的自然整数,第0号单元中存放串的实际长度,程序运行时由系统自动提供,第1~n号单元中存放串的字符。若将string[n]写成string，则默认n值为255。 例如：type man=string[8]； line=string； var name：man； screenline：line； 另一种字符类型的定义方式为把类型说明的变量定义合并在一起。 例如：VAR name：STRING[8]； screenline：STRING； Turbo Pascal中，一个字符串中的字符可以通过其对应的下标灵活使用。 例如：var name：string； begin readln（nsme）； for i：=1 to ord（name[0]）do writeln（name[i]）；
Pascal常用函数 PASCAL内自带的函数，通常可以直接调用，特殊的需要调用数据库，如：used math 一、标准函数 二、数学函数与过程 三、字符类型函数 四、字符串函数与过程 五、布尔类型函数 六、math单元的函数与过程 一、标准函数 标准函数。Turbo Pascal语言提供了自变量为整型量的标准函数有顺序函数算术函数和转换函数等。 标准函数是Turbo Pascal语言预先定义的，它们实际上是能完成特定功能的称步子程序的程序段。每个标准函数都用一个标识符来标识，每个标准函数都能完成一个特定的功能，在程序中可以直接调用它们。Turbo Pascal语言中某些标准函数与数学中的函数有相似之处。 1、整数类型函数 整型是顺序类型，即所有的整型数都是按一定的顺序排列的。如3的后序数是4，350的后序数是351。以后介绍的布尔型、字符型、枚举类型和子界类型等都是顺序类型。顺序函数可以对顺序类型数据进行操作，但要注意它们自变量的取值范围。 ①前趋函数：Pred(x)函数值为x-l，例如： Pred (6)=5 Pred (-21)=-22 ②后继函数：Succ (x)函数值为x+l，例如： Succ (l5)=16 Succ (-114)= -113 ③绝对值函数：Abs (x)函数值为|X|，例如： Abs (-119)=119 Abs (101)=101 ④平方函数：Sqr (x)函数值为X*X，例如： Sqr (-5)=25 Sqr (l0)= 100 以上四个函数的结果仍是整型数。 ⑤奇函数：Odd (x)，函数的结果为布尔型。当X为奇数时，函数值为true；当X为偶数时，函数值为false，例如： Odd (13)= True Odd (16)= False ⑥字符函数：Chr (X)，函数值是序号的ASCII字符，属字符型，例如： Chr (65)=?A? Chr (66)=?B? 2、实数类型函数 在下列算术函数中，X可以是实型或整型数的表达式。对于函数Abs和Sqr，其结果类型和变量X的类型相同，其他算术函数的结果类型都是实型。 绝对值函数Abs(x)：函数值为x的绝对值。 平方函数Sqr (x)：函数值为x的平方。 小数函数Frac (x)：函数值为x的小数部分。 整数函数Int (x)：函数值为x的整数部分。 正弦函数Sin (x)：函数值为x的正弦，其中，的单位为弧度。
一、数学函数： Inc(i) 使I:=I+1; Inc(I,b) 使I:=I+b; Abs(x) 求x的绝对值例：abs(-3)=3 Chr(x) 求编号x对应的字符。例：Chr(65)=’A’ chr(97)=’a’ chr(48)=’0’ Ord(x) 求字符x对应的编号。例:ord(‘A’)=65 ord(‘a’)=97 另外：ord(false)=0 o rd(true)=1 Sqr(x) 求x的平方。例：sqr(4)=16 Sqrt(x)求x的开方. 例：sqrt(16)=4 round(x) 求x的四舍五入例：round(4.5)=5 trunc(x) 求x的整数部分例：trunc(5.6)=5 结果是integer型 int(x) 求x的整数部分例int(5.6)=5.0 结果是real型 frac (x)求x的小数部分例frac(5.6)=0.6 pred(x) 求x的前导pred(‘b’)=’a’ pred(5)=4 pred(true)=false succ(x) 求x的后继succ(‘b’)=’c’ succ(5)=6 succ(false)=true odd(x) 判断x是否为奇数。如果是值为true，反之值为false. Odd(2)=false od d(5)=true power(a,n) 求a的n次方power(2,3)=8 exp(b*ln(a)) a的b次方 random 取0~1之间的随机数（不能取到1） randomize 随机数的种子函数,在每次设置随机数时都要把这个函数放在最前面. Fillchar(a,size(a),0) 数组初始化，即把数组a的值全部置为0 SHR: x SHR n 把x换成二进制后向右移n位，相当于把x 除以2n a shr n 等价于a div (2^n) SHL: x SHL n把x换成二进制后向左移n位，相当于把x 乘以2n 二、字符串函数 1. 连接运算concat(s1,s2,s3…sn) 相当于s1+s2+s3+…+sn. 例：concat(‘11’,’aa’)=’11aa’; 2. 求子串。Copy(s,i,L) 从字符串s中截取第i个字符开始后的长度为L的子串。 例:copy(‘abdag’,2,3)=’bda’ 3. 删除子串。过程Delete(s,i,L) 从字符串s中删除第i个字符开始后的长度为L的子串。
WIN10如何使用Free Pascal ——从安装、消除乱码、编写个简单的hello谈起{ ******* author: Josan ******* date:2016/10/27 ********************************************************************* } 闲来无事，突然想“学”一门新的语言Pascal，不要求精通，只要求能安装、运行一些简单程序就行。所以，抽出一个上午的时间来了解Pascal的历史，以及编译器以及它的IDE。再用一个下午的时间来整理一下上午的所获所得，希望可以帮到一些入门者，能让他们少走弯路。同时，我也要感谢那些给我帮助过的网友们。来，开始正题。 一、安装 1 What is Pascal? 首先，来看下什么是Pascal程序设计语言。 参考： (1)维基百科：Pascal https://https://www.doczj.com/doc/5d155392.html,/wiki/Pascal_(programming_language)[1] (2)百度百科：Pascal https://www.doczj.com/doc/5d155392.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.doczj.com/doc/5d155392.html,[3] (2)GNU Pascal http://www.gnu-pascal.de/gpc/h-index.html[4]
PASCAL函数表 1、数学函数 求绝对值函数abs(x) 定义：function Abs(X): (Same type as parameter); 说明：X可以是整型，也可以是实型；返回值和X的类型一致例子： var r: Real; i: Integer; begin r := Abs(-2.3); { 2.3 } i := Abs(-157); { 157 } end. 2、取整函数int(x) 定义：function Int(X: Real): Real; 注意：X是实型数，返回值也是实型的；返回的是X 的整数部分，也就是说，X被截尾了（而不是四舍五入）例子： var R: Real; begin R := Int(123.567); { 123.0 } R := Int(-123.456); { -123.0 } end. 3、截尾函数trunc(x) 定义：function Trunc(X: Real): Longint; 注意：X是实型表达式. Trunc 返回Longint 型的X的整数部分例子： begin Writeln(1.4, ' becomes ', Trunc(1.4)); { 1 } Writeln(1.5, ' becomes ', Trunc(1.5)); { 1 } Writeln(-1.4, 'becomes ', Trunc(-1.4)); { -1 } Writeln(-1.5, 'becomes ', Trunc(-1.5)); { -1 } end. 4、四舍五入函数round(x) 定义：function Round(X: Real): Longint; 注意：X是实型表达式. Round 返回Longint 型的X的四舍五入值.如果返回值超出了Longint的表示范围，则出错. 例子： begin Writeln(1.4, ' rounds to ', Round(1.4)); { 1 } Writeln(1.5, ' rounds to ', Round(1.5)); { 2 } Writeln(-1.4, 'rounds to ', Round(-1.4));{ -1 } Writeln(-1.5, 'rounds to ', Round(-1.5));{ -2 } end. 5、取小数函数frac(x) 定义：function Frac(X: Real): Real; 注意：X 是实型表达式. 结果返回 X 的小数部分; 也就是说，Frac(X) = X - Int(_X). 例子：
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 的启动
? 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
字符串类型 在Borland公司的Turbo Pascal和16位Delphi中，传统的字符串类型是一个字符序列，序列的头部是一个长度字节，指示当前字符串的长度。由于只用一个字节来表示字符串的长度，所以字符串不能超过255个字符。这一长度限制为字符串操作带来不便，因为每个字符串必须定长（确省最大值为255），当然你也可以声明更短的字符串以节约存储空间。 字符串类型与数组类型相似。实际上一个字符串差不多就是一个字符类型的数组，因为用[]符号，你就能访问字符串中的字符，这一事实充分说明了上述观点。 为克服传统Pascal 字符串的局限性，32位Delphi增加了对长字符串的支持。这样共有三种字符串类型： ?ShortString 短字符串类型也就是前面所述的传统 Pascal 字符串类型。 这类字符串最多只能有255个字符，与16位Delphi中的字符串相同。短字符串中的每个字符都属于ANSIChar 类型（标准字符类型）。 ?ANSIString长字符串类型就是新增的可变长字符串类型。这类字符串的内存动态分配，引用计数，并使用了更新前拷贝(copy-on-write)技术。 这类字符串长度没有限制（可以存储多达20亿个字符！），其字符类型 也是ANSIChar 类型。 ?WideString 长字符串类型与ANSIString 类型相似，只是它基于WideChar 字符类型，WideChar 字符为双字节Unicode 字符。 使用长字符串 如果只简单地用String定义字符串，那么该字符串可能是短字符串也可能是ANSI长字符串，这取决于$H 编译指令的值，$H+（确省）代表长字符串（ANSIString 类型）。长字符串是Delphi 库中控件使用的字符串。 Delphi 长字符串基于引用计数机制，通过引用计数追踪内存中引用同一字符串的字符串变量，当字符串不再使用时，也就是说引用计数为零时，释放内存。 如果你要增加字符串的长度，而该字符串邻近又没有空闲的内存，即在同一存储单元字符串已没有扩展的余地，这时字符串必须被完整地拷贝到另一个存储单元。当这种情况发生时，Delphi运行时间支持程序会以完全透明的方式为字符串重新分配内存。为了有效地分配所需的存储空间，你可以用SetLength 过程设定字符串的最大长度值： SetLength (String1, 200);
delphi常用函数大全（转） Abort函数引起放弃的意外处理 Abs函数绝对值函数 AddExitProc函数将一过程添加到运行时库的结束过程表中 Addr函数返回指定对象的地址 AdjustLineBreaks函数将给定字符串的行分隔符调整为CR/LF序列Align属性使控件位于窗口某部分 Alignment属性控件标签的文字位置 AllocMem函数在堆栈上分配给定大小的块 AllowGrayed属性允许一个灰度选择 AnsiCompareStr函数比较字符串（区分大小写） AnsiCompareText函数比较字符串（不区分大小写） AnsiLowerCase函数将字符转换为小写 AnsiUpperCase函数将字符转换为大写 Append函数以附加的方式打开已有的文件 ArcTan函数余切函数 AssignFile函数给文件变量赋一外部文件名 Assigned函数测试函数或过程变量是否为空 AutoSize属性自动控制标签的大小 BackgroundColor属性背景色 BeginThread函数以适当的方式建立用于内存管理的线程 BevelInner属性控件方框的内框方式 BevelOuter属性控件方框的外框方式 BevelWidth属性控件方框的外框宽度 BlockRead函数读一个或多个记录到变量中 BlockWrite函数从变量中写一个或多个记录 BorderStyle属性边界类型 BorderWidth属性边界宽度 Break命令终止for、while、repeat循环语句 Brush属性画刷 Caption属性标签文字的内容 ChangeFileExt函数改变文件的后缀 ChDir函数改变当前目录 Checked属性确定复选框选中状态 Chr函数返回指定序数的字符 CloseFile命令关闭打开的文件 Color属性标签的颜色 Columns属性显示的列数 CompareStr函数比较字符串（区分大小写） Concat函数合并字符串 Continue命令继续for、while、repeat的下一个循环 Copy函数返回一字符串的子串 Cos函数余弦函数 Ctl3D属性是否具有3D效果 Cursor属性鼠标指针移入后的形状 Date函数返回当前的日期 DateTimeToFileDate函数将DELPHI的日期格式转换为DOS的日期格式DateTimeToStr函数将日期时间格式转换为字符串DateTimeToString函数将日期时间格式转换为字符串 DateToStr函数将日期格式转换为字符串
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程序应该有以下的部分组成）：
Pascal语言函数集(含Delphi控件属性) abort函数 引起放弃的意外处理 abs函数绝对值函数 addexitproc函数将一过程添加到运行时库的结束过程表中 addr函数返回指定对象的地址 adjustlinebreaks函数将给定字符串的行分隔符调整为cr/lf序列align属性使控件位于窗口某部分 alignment属性控件标签的文字位置 allocmem函数在堆栈上分配给定大小的块 allowgrayed属性允许一个灰度选择 ansicomparestr函数比较字符串（区分大小写） ansicomparetext函数比较字符串（不区分大小写） ansilowercase函数将字符转换为小写 ansiuppercase函数将字符转换为大写 append函数以附加的方式打开已有的文件 arctan函数余切函数 assignfile函数给文件变量赋一外部文件名 assigned函数测试函数或过程变量是否为空 autosize属性自动控制标签的大小 backgrounddi2001.jpg属性背景色 beginthread函数以适当的方式建立用于内存管理的线程 bevelinner属性控件方框的内框方式 bevelouter属性控件方框的外框方式 bevelwidth属性控件方框的外框宽度 blockread函数读一个或多个记录到变量中 blockwrite函数从变量中写一个或多个记录 borderstyle属性边界类型 borderwidth属性边界宽度 break命令终止for、while、repeat循环语句 brush属性画刷 caption属性标签文字的内容 changefileext函数改变文件的后缀 chdir函数改变当前目录 checked属性确定复选框选中状态 chr函数返回指定序数的字符 closefile命令关闭打开的文件
第一章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所示的
第七课：pascal专题-pascal语言语法大全及应用配套视频 ★qq语音课主讲内容★： 1.pascal语法专用字符：a~z，a~z，0~9，+，-，*，/，=，<>，<=，>=，<，>，(，)，[，]，{，}，:=，，，；，.，：，..，’，^ ； 【解说】 a~z：大写的26个英文字母； a~z：小写的26个英文字母； 0~9：10个数字； +：加法运算符； -：减法运算符； *：乘法运算符； /：除法运算符； =：比较运算符：等于； <>：比较运算符：不等于； <=：比较运算符：小于等于； >=：比较运算符：大于等于； <：比较运算符：小于； >：比较运算符：大于； (，)：优先级和参数表达符：左右括号； [，]：索引号表达符：中括号； {，}：段落屏蔽和备注符：大括号； :=：赋值运算符； ，：排列式表达符：逗号； ；：代码（功能）行结束符； .：主从代码分隔符：点号； ：：变量定义分隔符：冒号； ..：子界定义表达符； ’：字符串标识符：单引号； ^ ：指针定义符：尖号。 2. pascal语法保留字：and，array，begin，case，const，div，do，downto，else，end，file，for，function，goto，if，in，label，mod，nil，not，of，or，packed，procedure，program，record，repeat，set，then，to，type，until，var，while，with，exports，shr，string，asm，object，unit，constructor，implementation，destructor，uses，inherited，inline，interface，library，xor，shl ； 【解说】 and：逻辑运算符：逻辑与； array：数组定义符：array of …； begin：程序“块”的开始标识符；
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)
Turbo Pascal基本函数 SYSTEM TP的运行库，包括常用的标准函数和过程，可以在程序中直接使用，不需USES语句说明。 DOS具有日期、时间、目录查找、程序执行等功能 CRT具有屏幕模式控制、扩展键盘码、颜色、窗口、声音等功能 PRINTER支持打印输出操作。 GRAPH高级图形软件包，支持多种图形适配器。 GRAPH3实现TP3.0的图形软件包。 TURBO3兼容TP3.0的源程序。 OVERLAY实现高级覆盖管理 SYSTEM单元常用过程与函数 ABS(X)F求变量的绝对值 ADDR(X)F测变量地址 APPEND(F)P打开一个存在的文本文件，并将文件指针指向文件末尾准备添加元素 ARCTAN(X)F反正切 ASSIGN(F,C)P将字符串C所表示的外部文件名赋给文件变量F ASSIGNED(X)P测试程序当中的指针或变量是否为空BLOCKREAD(F,D,NUM)P读类型文件。 BLOCKWRITE(F,D,NUM)P写无类型文件 BREAK P中止或结束循环 CHDIR(PATH)P改变当前目录 CHR(X)F求ASCII码值为X的字符 CLOSE(F)P关闭文件 CONCAT(S1,S2...S3）F字符串合并 CONTINUE P继续循环 COPY(S,POS,LEN)F返回一个字符串的子串 COS(X)F余弦函数 CSEG F返回CS寄存器的当前值 DEC(X)F X:=X-1 DELETE(S,POS,LEN)P删除一个字符串的子串 DISPOSE(P)P释放一个动态变量 DSEG F返回DS寄存器的当前值 EOF(F)F判断文件是否结束 EOLN(F)F判断文件类型中的一行是否结束 ERASE(F)P删除一个存在的外部文件。 EXIT P过程中止 EXP(X)F以E为底的指数函数 FILEPOS(F)F文件记录的当前位置 FILESIZE(F)F文件记录数 FILLCHAR(D,LEN,DATE)P填充数值或字符
Pascal语法 第一章、Pascal介绍 一、Pascal的基本语法单位 1、基本符号 A——Z；a——z；0——9；+，-，*，/，=，<>，<=，>=，<，>，(，)，[，]，{，}，:=，，，；，.，：，..，'，^ 注意：Pascal语言除了能使用以上规定的基本符号外，不得使用任何其它符号。 2、保留字 AND，ARRAY，BEGIN，CASE，CONST，DIV，DO，DIWNTO，ELSE，END，FILE，FOR，FUNTION，GOTO，IF，LABEL，MOD，NIL，OF，OR，PACKED，PROCEDURE，PROGRAM，RECORD，REPEAT，SET，THEN，TO，TYPE，UNTIL，VAR，WHILE，WITH。 注意：所起的文件名不能与保留字相同。 3、标识符 以字母打头的字母数字串，长度小于等于8。 标准标识符（共三十九个）： 标准常量： false,true,maxint 标准类型： integer,real,char,boolean,text 标准文件： input,output 标准函数：
abs,arctan,chr,cos,eof,eoln,exp,ln,odd,ord,ored,round,sin, sqr,sqrt,succ,trunc 标准过程： get,new,pack,page,put,read,readln,reset,rewrite,unpack,wri te,writeln 二、程序结构 1、由三大部分组成：程序首部，说明部分，语句部分。 PROGRAM程序名(input,output)； {……}解释 CONST pi=3.14159； VAR r,l,s:real; BEGIN write('input r:'); read(r); l:=2*pi*r; write('l=',l,'s=',s); END; 2、大量使用标点符号，保留字后不加标点符号（END除外）。