第十二课过程与函数
前面我们曾经学习了程序设计中的三种基本控制结构（顺序、分支、循环）。用它们可以组成任何程序。但在应用中，还经常用到子程序结构。
通常，在程序设计中，我们会发现一些程序段在程序的不同地方反复出现，此时可以将这些程序段作为相对独立的整体，用一个标识符给它起一个名字，凡是程序中出现该程序段的地方，只要简单地写上其标识符即可。这样的程序段，我们称之为子程序。
子程序的使用不仅缩短了程序，节省了内存空间及减少了程序的编译时间，而且有利于结构化程序设计。因为一个复杂的问题总可将其分解成若干个子问题来解决，如果子问题依然很复杂，还可以将它继续分解，直到每个子问题都是一个具有独立任务的模块。这样编制的程序结构清晰，逻辑关系明确，无论是编写、阅读、调试还是修改，都会带来极大的好处。在一个程序中可以只有主程序而没有子程序(本章以前都是如此)，但不能没有主程序，也就是说不能单独执行子程序。pascal中子程序有两种形式：函数和过程。
一、函数
在此之前，我们曾经介绍并使用了pascal提供的各种标准函数，如ABS,SUCC等等，这些函数为我们编写程序提供了很大的方便。但这些函数只是常用的基本函数，编程时经常需要自定义一些函数。
（一）函数的说明
在pascal中，函数也遵循先说明后使用的规则，在程序中，函数的说明放在调用该函数的程序（主程序或其它子程序）的说明部分。函数的结构主程序的结构很相似。
函数定义的一般格式:
function <函数名> (<形式参数表>):<类型>; {函数首部}
说明:
①函数由首部与函数体两部分组成。
②函数首部以关键字function开头。
③函数名是用户自定义的标识符。
④函数的类型也就是函数值的类型，所求得的函数值通过函数名传回调用它的程序。可见，函数的作用一般是为了求得一个值。
⑤形式参数简称形参，形参即函数的自变量。自变量的初值来源于函数调用。在函数中，形参一般格式如下：
变量名表1：类型标识符1；变量名表2：类型标识符2；…;变量名表n：类型标识符n
可见形参表相当于变量说明，对函数自变量进行说明，但应特别注意：此处只能使用类型标识符，而不能直接使用类型。
⑥当缺省形参表（当然要同时省去一对括号）时，称为无参函数。
⑦函数体与程序体基本相似，由说明部分和执行部分组成。
⑧函数体中的说明部分用来对本函数使用的标号、常量、类型、变量、子程序加以说明，这些量只在本函数内有效。
⑨函数体的执行部分由begin开头，end结束，中间有若干用分号隔开的语句，只是end后应跟分号,不能像程序那样用句号"."。
⑩在函数体的执行部分，至少应该给函数名赋一次值，以使在函数执行结束后把函数值带回调用程序。
（二）函数的调用
我们可以在任何与函数值类型兼容的表达式中调用函数，或者说，函数调用只能出现在允许表达式出现的地方，或作为表达式的一个因子。
函数调用方式与标准函数的调用方式相同。
函数调用的一般格式：
＜函数名＞
或
＜函数名＞（实在参数表）
说明：①实在参数简称实参。实参的个数必须与函数说明中形参的个数一致，实参的类型与形参的类型应当一一对应。
②调用函数时，一般的，实参必须有确定的值。
③函数调用的步骤为：计算实参的值，"赋给"对应的形参；
（三）函数的应用举例
例1求正整数A和B之间的完全数(A 分析：所谓完全数是指它的小于该数本身的因子之和等于它本身，如6＝1＋2＋3，6即是一个完全数。因此我们可定义一个布尔型函数perfect(x),若x是完全数,其值为TURE,否则为FALSE。整个程序算法如下： 1 for i:=A to B do 2 if perfect(i) then writeln(i); 源程序如下： program ex7_1; var i,a,b : integer; function perfect(x:integer):boolean; var k,sum : integer; begin {累加x所有小于本身的因数} sum:=1; for k:=2 to x div 2 do if x mod k=0 then sum:=sum+k; {判断x是否是完全数} perfect:=x=sum; {将结果赋值给函数名} end;{end of perfect} begin{主程序开始} write('Input a,b:'); repeat {输入0 readln(a,b); until (a>0)and(b>0)and(a writeln('List of all perfect numbers:'); {从a到b逐个判断,是完全数则打印出来 for i:=a to b do end. 自定义函数只是主程序的说明部分，若主程序中没有调用函数，则系统不会执行函数子程序。当主程序调用一次函数时，则将实在参数的值传给函数的形式参数，控制转向函数子程序去执行，子程序执行完毕后自动返回调用处。 补充： 若一个自然数，它所有的真因子（即除了自身以外的约数）的和恰好等于它本身，这种数叫做完全数。 完全数，又称完美数或完备数，是一些特殊的自然数：它所有的真因子（即除了自身以外的约数）的和（即因子函数），恰好等于它本身。 例如:第一个完全数是6，它有约数1、2、3、6，除去它本身6外，其余3个数相加，1＋2＋3＝6。第二个完全数是28，它有约数1、2、4、7、14、28，除去它本身28外，其余5个数相加，1＋2＋4 + 7 + 14＝28。后面的数是496、8128。 例如， 6=1+2＋3 28=1＋2＋4＋7＋14 496=1+2+4+8＋16+31+62＋124+248 8128=1＋2＋4+8＋16＋32+64＋127+254＋508+1016＋2032+4064 对于“4”这个数，它的真因子有1、2，其和是3。由于4本身比其真因子之和要大，这样的数叫做亏数。对于“12”这个数，它的真因子有1、2、3、4、6，其和是16。由于12本身比其真因子之和要小，这样的数就叫做盈数。那么有没有既不盈余，又不亏欠的数呢？即等于它自己的所有真因子之和的数，这样的数就叫做完全数。 [编辑本段] 【性质】 完全数有许多有趣的性质： ⒈它们都能写成连续自然数之和。 如：6 = 1+2+3； 28 = 1+2+3+4+5+6+7； 496 = 1+2+3+……+30+31； …… ⒉它们的全部因数的倒数之和都是2,因此每个完全数都是调和数。 如：1/1+1/2+1/3+1/6=2； 1/1+1/2+1/4+1/7+1/14+1/28=2； 3.除了6之外,都有这样的一个性质: 如28,2+8=10,1+0＝1； 496,4+9+6＝19,1+9＝10,1+0＝1 二、过程 在pascal中,自定义过程与自定义函数一样,都需要先定义后调用。函数一般用于求值，而过程一般实现某些操作。 （一）过程的说明 过程说明的一般格式为： procedure <过程名> (<形式参数表>); {过程首部} 说明: ①过程首部以关键字procedure开头。 ②过程名是用户自定义的标识符，只用来标识一个过程，不能代表任何数据，因此不能说明"过程的类型"。 ③形参表缺省（当然要同时省去一对括号）时，称为无参过程。 ④形参表的一般格式形式如下： [var] 变量名表：类型；…；[var] 变量名表：类型。 其中带var的称为变量形参，不带var的称为值形参。在函数中，形参一般都是值形参，很少用变量形参（但可以使用）。例如，下列形参表中： (x,y:real;n:integer;var w:real;var k:integer;b:real) x、y、n、b为值形参,而w、k为变量形参。 调用过程时，通过值形参给过程提供原始数据，通过变量形参将值带回调用程序。因此，可以说，值形参是过程的输入参数，变量形参是过程的输出参数。有关变参，这在后面内容具体叙述。 ⑤过程体与程序、函数体类似。与函数体不同的是：函数体的执行部分至少有一个语句给函数名赋值，而过程体的执行部分不能给过程名赋值，因为过程名不能代表任何数据。 ⑥过程体的说明部分可以定义只在本过程有效的标号、常量、类型、变量、子程序等。 （二）过程的调用 过程调用是通过一条独立的过程调用语句来实现的，它与函数调用完全不同。过程调用与调与标准过程（如write,read等）的方式相同。调用的一般格式为： ＜过程名＞ 或 ＜过程名＞（实在参数表） 说明: ①实参的个数、类型必须与形参一一对应。 ②对应于值形参的实参可以是表达式，对应于变量形参的实参只能是变量。 ③过程调用的步骤为：计算实参的值；将值或变量的"地址"传送给对应的形参；执行过程体；返回调用处。 过程与函数有下列主要区别： ①过程的首部与函数的首部不同； ②函数通常是为了求一个函数值，而过程可以得到若干个运算结果，也可用来完成一系列的数据处理，或用来完成与计算无关的各种操作； ③调用方式不同。函数的调用出现在表达式中，而过程调用是一个独立的语句。 （三）过程的应用举例 例2输出以下一个图形: * ** *** **** ***** ****** 分析：我们前面学习可用的二重循环打印出上图形, 现我们设置一个过程打印出N个连续的"*"号。 源程序如下： program ex7_2; var i:integer; procedure draw_a_line(n:integer); {该过程打印出连续n 个星号,并换行} var j:integer; begin for j:=1 to n do write('*'); writeln; end; begin for i:=1 to 6 do draw_a_line(i);{调用过程,第I行打印i个连续星号} end. 三、过程、函数的数据传递 在程序调用子程序时，调用程序将数据传递给被调用的过程或函数，而当子程序运行结束后，结果又可以通过函数名、变参。当然也可以用全局变量等形式实现数据的传递。这一节我们，就来研究参数传递与局部变量、全局变量等问题。 （一）数值参数和变量参数 前面已经讲过，pascal子程序中形式参数有数值形参（简称值参）和变量形参（变参）两种。事实上，还有函数形参和过程形参两种，只是应用并不太多，我们不作深入地研究。 1、值形参 值参的一般格式如§7.1.1所示。应该强调的是： ①形参表中只能使用类型标识符，而不能使用类型。 ②值形参和对应的实参必须一一对应，包括个数和类型。 ③实参和值形参之间数据传递是单向的，只能由实参传送给形参，相当赋值运算。 ④一个特殊情况是，当值形参是实型变量名时，对应的实参可以是整型表达式。 ⑤值形参作为子程序的局部量，当控制返回程序后，值形参的存储单元释放。 2、变量形参 变量形参的一般格式如§7.2.1所示，必须在形参前加关键字var。 应该注意的是： ①与变量形参对应的实参只能是变量名，而不能是表达式。 ②与变量形参对应的实参可以根据需要决定是否事先有值。 ③变量形参与对应的实参的类型必须完全相同。 ④对变量形参，运行时不另外开辟存储单元，而是与对应的实参使用相同的存储单元。也就是说，调用子程序时，是将实参的地址传送给对应的变量形参。 ⑤当控制返回到调用程序后，变量形参的存储单元不释放，但变量形参本身无定义，即不得再使用。 ⑥选用形式参时，到底是使用值形参还是变量形参，应慎重考虑。值形参需要另开辟存储空间，而变量形参会带来一些副作用。一般在函数中使用值形参，而在过程中才使用变量形参，但也有例外。 例3写出下列两个程序的运行结果。 program ex1; program ex2; var a,b:integer; var a,b:integer; procedure swap(x,y:integer); procedure swap(Var x,y:integer) ; var t:integer; var t:integer; begin begin t:=x;x:=y;y:=t; t:=x;x:=y;y:=t; end; end; begin begin a:=1;b:=2; a:=1;b:=2; writeln(a:3,b:3); writeln(a:3,b:3); swap(a,b); swap(a,b); writeln(a:3,b:3); writeln(a:3,b:3); end. end. 分析：这两个程序唯一的区别是ex1中将x,y作为值形参，而 ex2中将x,y作为变量形参，因此在ex2中对x,y的修改实际上是对调用该过程时与它们对应的变量a,b的修改，故最后，a,b的值为2，1。而ex1中调用swap过程时，只是将a,b的值传递给x,y，之后在过程中的操作与a,b无关。 答：ex1的运行结果为: ex2的运行结果为: 1 2 1 2 1 2 2 1 （二）全程变量、局部变量及它们的作用域 在主程序的说明部分和子程序的说明部分均可以说明变量，但它们的作用范围是特定的。 1、局部量及其作用域 在介绍过程和函数的说明时，我们曾指出，凡是在子程序内部作用的变量，应该在本子程序内加以说明。这种在子程序内部说明的变量称为局部变量。形式参数也只是在该子程序中有效，因此也属于局部变量。 一个变量的作用域是指在程序中能对此变量进行存取的程序范围。因此，局部变量的作用域就是其所在的子程序。实际上，局部变量只是当其所在的子程序被调用时才具有确定的存储单元，当控制从子程序返回到调用程序后，局部变量的存储单元就被释放，从而变得无定义。 事实上，在子程序内定义的标号、符号常量、类型、子程序也与局部变量具有相同的作用域。 2、全程量及其作用域 全程量是指在主程序的说明部分中说明的量。全程量的作用域分两种情况： ①当全程量和局部量不同名时，其作用域是整个程序范围（自定义起直到主程序结束）。 ②当全程量和局部量同名时，全程量的作用域不包含局部量的作用域。 例4写出下列程序的运行结果: program ex7_4; var x,y:integer; procedure a; var x:integer; begin x:=2; writeln('#',x,'#'); writeln('#',y,'#'); end;{of a} begin{main program} x:=1;y:=2; writeln('*',x,'*'，y); a; writeln('***',x,'***',y); end. 分析：程序中x,y是全局变量,但在过程a中也有变量x，故全程变量x的作用域为除过程a外的任何地方。而y的作用域包含了子程序a，即整个程序。 答：运行结果如下: *1*2 #2# #2# ***1***2 评注：变量作用域内对变量的操作都是对同一存储单元中的量进行的。 四、过程和函数的嵌套 Pascal语言中，使用过程和函数，能使程序设计简短，便于阅读，节省存贮单元和编译时间。程序往往设计成分层结构，由一个主程序和若干个过程及函数组成。在过程或函数中，还可以说明另一些过程或函数，即过程或函数可以分层嵌套。在同一层中亦可说明几个并列的过程或函数。例如： 上例过程的分层嵌套关系如下：0层主程序sample内并列两个1层过程P1a和P1b。过程P1a又嵌套两个2层过程p2a和p2b，2层的第二过程p2b又嵌套过程p3，p3就是第3层。其中p1b,p2a和p3不再嵌套别的过程，称为基本过程。这种分层结构的程序设计，特别要注意局部变量的使用范围和过程调用的要求。 在主程序sample中定义的变量,可以在所有的过程中使用,主程序可调用p1a和p1b两个过程。过程p1a中定义的变量,只能在p2a,p2b 和p3中使用。它能调用p2a,p2b两个过程,而不能调用p3和p1b。在 过程p1b中定义的变量,只能在p1b中使用,它只能调用过程p1a。过程p2a不能调用任何过程。过程p2b 可以调用并列过程p2a和p3，而过程p3可以调用p2a过程。 过程调用是有条件的，过程定义在先，调用在后。同一层过程，后说明的过程可以调用先说明的过程。如果要调用在它后面定义的过程（或函数），可使用<向前引用>FORWARD这个扩充标识符。要注意的是<向前引用>过程(或函数)首部中形式参数表写一次即可, 不必重复。如： procedure extend(var a,b:integer); forward; 表示过程extend<向前引用>。因此,过程extend 的说明部分只须如下书写: procedure extend; <说明部分> begin : end; 五、子程序（模块化）结构的程序设计 例5对6到60的偶数验证哥德巴赫猜想：不小于6的偶数可分解成两个素数之和。 分析：用布尔型函数prime(x)判断x是否是素数,若是, 函数值为真，否则，函数值为假。算法如下所示。 1． t:=6 2．while t≤60 do 3． t11; 4． repeat 5． t11+2; /* 找下一个素数a */ 6． until prime(t1)and prime(t-t1); /*直到a,b都是素数*/ 7． writeln(i,'=',t1,'+',t-t1); 8． t t+2; 9． endwhile 源程序如下: program ex9_7; var t,t1:integer; function prime(x:integer):boolean; var i:integer; begin if x=1 then prime:=false else if x=2 then prime:=true else begin prime:=true; i:=2; while (i<=round(sqrt(x)))and(x mod i<>0) do i:=i+1; if i<=round(sqrt(x)) then prime:=false; end; end;{of prime} begin t:=6; while t<=60 do t1:=1; repeat t1:=t1+2; until prime(t1) and prime(t-t1); writeln(t,'=',t1,'+',t-t1); t:=t+2; end; end. 例6编写一个给一个分数约分的程序。 源程序如下： program ex7_6; ┌──变量参数 var a,b:integer; ↓ procedure common(var x,y:integer); var i,j,k:integer; begin {求x,y的最大公约数} i:=x;j:=y; repeat k:=i mod j; i:=j;j:=k; until k=0; {对x,y进行约分} x:=x div i;y:=y div i; begin write('Input a,b=');readln(a,b); common(a,b); writeln(a,b:5); end. 如输入: Input a,b=12 8 则输出: 3 2 练习 1．输入5个正整数求它们的最大公约数。（提示：可用一个数组将５个数存放起来，然后求第一个数和第二个数的公约数，再求第三个数与前两个数公约数的公约数，这样求得前三个整数最大公约数……如此类推可求出５个整数的最大公约数） 2．给一维数组输入任意6个整数,假设为: 7 4 8 9 1 5 请建立一个具有以下内容的方阵： 7 4 8 9 1 5 4 8 9 1 5 7 8 9 1 5 7 4 9 1 5 7 4 8 1 5 7 4 8 9 5 7 4 8 9 1 (请用子程序编写)。 3．求两个正整数的最小公倍数。 4．输入一个任意位的正整数,将其反向输出。 5．有五位同学,其各科成绩如下: 学号数学语文英语总分名次 1 108 97 90 2 98 88 100 3 100 43 89 4 84 63 50 5 97 87 100 （１）编写一个过程enter,输入每个学生成绩并计算各人的总分。（２）编写过程minci,用以排出每个人的名次。 （３）按学号顺序输出。 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 语言概述 Pascal 语言是一种算法语言，它是瑞士苏黎世联邦工业大学的Niklaus Wirth教授于1968年设计完成的，1971年正式发表。1975年对Pascal 语言进行了修改，作为“标准PASCAL语言”。 Pascal 语言是一种结构化的程序设计语言，可以用来编写应用程序。它又是一种系统程序设计语言，可以用来编写顺序型的系统软件（如编译程序）。它的功能强、编译程序简单。 二、Pascal 语言的特点 Pascal语言有以下几个主要的特点： ⒈它是结构化的语言。Pascal语言提供了直接实现三种基本结构的语句以及定义“过程”和“函数”的功能。可以方便地书写出结构化程序。在编写程序时可以完全不使用GOTO语句和标号。这就易于保证程序的正确性和易读性。Pascal语言强调的是可靠性、易于验证性、概念的清晰性和实现的简化。在结构化这一点上，比其它（如 BASIC,FORTRAN77）更好一些。 ⒉有丰富的数据类型。Pascal提供了整数、实型、字符型、布尔型、枚举型、子界型、数组类型、集合类型、记录类型、和文件类型和指针类型。⒊能适用于数值运算和非数值运算领域。PASCAL的功能较强，能广泛应用于各种领域。PASCAL语言还可以用于辅助设计，实现计算机绘图功能。 ⒋ PASCAL程序的书写格式比较自由。PASCAL允许一行写多个语句，一个语句可以分写在多行上，这样就可以使PASCAL程序写得格式优美，便于阅读。 三、Pascal语言程序的基本结构 程序设计语言都有着一组自己的记号和规则。PASCAL语言必须采用其本身所规定的记号和规则来编写程序。下面我们首先来了解Pascal语言的程序基本结构。 Pascal语言的程序结构为: 程序首部 标号说明语句 常量定义语句 类型定义语句程序的说明部分 变量说明语句 函数和过程说明语句分程序 程序体程序的执行部分 先看一个简单的PASCAL程序： program exam1(input,output); var r,s,c:real; begin readln(r); c:=3.14*2*r; s:=3.14*r*r; writeln(c,s) end. 第十二课过程与函数 前面我们曾经学习了程序设计中的三种基本控制结构（顺序、分支、循环）。用它们可以组成任何程序。但在应用中，还经常用到子程序结构。 通常，在程序设计中，我们会发现一些程序段在程序的不同地方反复出现，此时可以将这些程序段作为相对独立的整体，用一个标识符给它起一个名字，凡是程序中出现该程序段的地方，只要简单地写上其标识符即可。这样的程序段，我们称之为子程序。 子程序的使用不仅缩短了程序，节省了内存空间及减少了程序的编译时间，而且有利于结构化程序设计。因为一个复杂的问题总可将其分解成若干个子问题来解决，如果子问题依然很复杂，还可以将它继续分解，直到每个子问题都是一个具有独立任务的模块。这样编制的程序结构清晰，逻辑关系明确，无论是编写、阅读、调试还是修改，都会带来极大的好处。在一个程序中可以只有主程序而没有子程序(本章以前都是如此)，但不能没有主程序，也就是说不能单独执行子程序。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的子串。 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). 例子： ? 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函数将日期格式转换为字符串 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/2b5836788.html,/wiki/Pascal_(programming_language)[1] (2)百度百科：Pascal https://www.doczj.com/doc/2b5836788.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/2b5836788.html,[3] (2)GNU Pascal http://www.gnu-pascal.de/gpc/h-index.html[4] 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效果 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基本教程 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 的启动 第一章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. MATLAB函数大全 Matlab有没有求矩阵行数/列数/维数的函数？ ndims(A)返回A的维数 size(A)返回A各个维的最大元素个数 length(A)返回max(size(A)) [m,n]=size(A)如果A是二维数组，返回行数和列数nnz(A)返回A中非0元素的个数 MATLAB的取整函数:fix(x), floor(x) :,ceil(x) , round(x) (1)fix(x) : 截尾取整. >> fix( [3.12 -3.12]) ans = 3 -3 (2)floor(x):不超过x 的最大整数.(高斯取整) >> floor( [3.12 -3.12]) ans = 3 -4 (3)ceil(x) : 大于x 的最小整数>> ceil( [3.12 -3.12]) ans = 4 -3 (4)四舍五入取整 >> round(3.12 -3.12) ans = >> round([3.12 -3.12]) ans = 3 -3 >> 如何用matlab生成随机数函数 rand(1) rand(n):生成0到1之间的n阶随机数方阵rand(m,n):生成0到1之间的m×n的随机数矩阵(现成的函数) 另外: Matlab随机数生成函数 betarnd 贝塔分布的随机数生成器 binornd 二项分布的随机数生成器 chi2rnd 卡方分布的随机数生成器 exprnd 指数分布的随机数生成器 frnd f分布的随机数生成器 gamrnd 伽玛分布的随机数生成器 geornd 几何分布的随机数生成器 hygernd 超几何分布的随机数生成器Freepascal资料详解
Pascal基础知识
pascal 过程与函数教程
pascal-字符与字符串处理
pascal常用函数
Pascal常用字符串函数
PASCAL函数表
PASCAL语言教程
pascal语言中字符串操作
delphi常用函数大全
Win10使用pascal入门教程fpc
Delphi函数大全
Pascal上机与函数【教程】
PASCAL语言函数集
Pascal基本教程
Pascal教程 上机指导
pascal语言语法大全
pascal小学生教程
(完整版)matlab函数大全最完整版
相关主题
文本预览