初识PASCAL

初识PASCAL一个完全的PASCAL程序结构框架如下:PROGRAM程序名(程序参数表); CONST常量声明;TYPE类型声明;VAR变量声明;FUNCTION函数名(参数表):函数类型;函数声明;PROCEDURE过程名(参数表);过程声明;BEGIN程序主体;END.一、变量定义方法VAR变量名1：变量类型1；变量名2：变量类型2；变量名3，变量名4：变量类型3；二、变量命名规则1、首字符必须是英文2、只能由英文、数字和下划线组成。

三、变量类型常用的几个变量类型如下表:类型名含义取值范围占字节数shortint短整型-128~1271 integer整型-32768~327672 longint长整型-231~231-14 real实数 2.9×10-39~1.7×10386 single单精度 1.5×10-45~3.4×10384 double双精度 5.0×10-324~1.7×103088 extended扩展实数 1.9×10-4951~1.1×10493210char字符单个ASCII字符1string字符串最多255个字符字符个数boolean布尔型True,False1一、输出语句格式Writeln(项目1，项目2，……，项目n);{输出内容后换行}Write(项目1，项目2，……，项目n);{输出内容后不换行}二、输入语句格式Read(变量1，变量2，……，变量n);{从键盘输入n个数据，以空格格开}Readln(变量1，变量2，……，变量n);{从键盘输入n个数据，以空格格开，读完后换行}三、赋值语句用法变量名:＝表达式；{把右边表达式的值计算出来，结果赋给左边的变量}举例：a:=3;a:=a+1;s:=(a+b)*(c+d)；一、装配文件assign(input,’文件路径’);{文件路径一般为相对路径，相对程序的工作目录}reset(input);assign(output,’文件路径’);rewrite(output);二、输入输出方法read(x);write(x);三、关闭文件close(input);close(output);{输出文件必须关闭，否则可能不能正确保存}程序的基本控制结构一、顺序结构的程序按照书写顺序依次执行begin语句1；语句2；end;二、实例输入两个整数x,y，计算x,y的差并输出。

Program example;varx,y,s:integer;beginread(x,y);s:=x-y;writeln(s);end.一、分支结构又叫选择结构或条件结构If条件then语句1{注意这里不可以加分号，因为IF语句到这里没有结束，后面还有ELSE语句}else语句2;二、没有ELSE的IF语句If条件then语句1;三、实例输入3个整数，输出最大的数。

Program bijiao;vara,b,c,max:integer;beginreadln(a,b,c);if a>=bthen max:=aelse max:=b;if c>max then max:=c;writeln(max);end.四、IF语句的嵌套If条件Then BeginIf条件Then语句1Else语句2;EndElse BeginIf条件Then语句3Else语句4;End;一、For循环For循环变量:=初值to终值do循环体;若循环体有多条语句，则必须用begin…end复合语句括起来。

【典型例题1】计算s=1+2+3+...+n，n由键盘输入。

Program example;vars,i,n:integer;beginreadln(n);s:=0;For i:=1to n dos:=s+i;writeln(s);end.【典型例题2】从键盘输入一个数，判断它是不是素数。

PROGRAM sushu;VARa,i:integer;flag:boolean;BEGINreadln(a);flag:=true;FOR i:=2to trunc(sqrt(a))doIF a mod i=0THEN BEGIN flag:=false;BREAK;END;IF flagTHEN writeln(‘Y’)ELSE writeln(‘N’);END.二、While循环While条件Do循环体；同样，若循环体有多条语句，则必须用begin…end复合语句括起来。

【典型例题】求最大公约数program HCF;vara,b,r:integer;beginr:=a mod b;while r<>0dobegina:=b;b:=r;r:=a mod b;end;writeln(b);end.三、Repeat循环Repeat循环体；Until条件；即使循环体有多条语句，也不必用begin…end复合语句。

【典型例题】求自然对数e的近似值，直到最后一项小于10-5为止。

program e1;vari:integer;e,s,t:real;begine:=1;t:=1;i:=1;repeatt:=t*i;e:=e+1/t;i:=i+1;until1/t<=10e-5;writeln(e);end.函数和过程一、标准函数(内置函数)函数名含义abs(a)求a的绝对值sqr(a)求a的平方sqrt(a)求a的平方根sin(a)求a的正弦值，a是弧度cos(a)求a的余弦值,a是弧度arctan(a)求a的反正切值，结果为弧度exp(a)自然对数e的a次方ln(a)求a的自然对数值trunc(a)求a的整数部分round(a)四舍五入取整ord(a)求字符a的ASCII码chr(a)根据ASCII码换成相应的字符random(a)求小于a的随机整数二、自定义函数Funtion函数名（参数1：参数类型,参数2：参数类型,...）：函数值类型；VAR函数内变量定义；BEGIN函数体；END；【典型例题】自定义一个判断素数的函数Function prime(a:longint):Boolean;Vari:longint;Beginprime:=true;for i:=2to trunc(sqrt(a))doif a mod i=0then begin prime:=false;break;end;End;一、标准过程inc(a){等价于a:=a+1}inc(a,i){等价于a:=a+i}dec(i){等价于a:=a-1}dec(a,i){等价于a:=a-i}二、自定义过程Procedure过程名（参数1：参数类型,参数2：参数类型,...）；VAR过程内变量定义；BEGIN过程体；END；【典型例题】随机产生10个100以内不重复的随机数存入数组并输出，然后从小到大排序再输出。

Program example;Constn=10;Vara:array[1..n]of integer;i,x,temp:integer;Function find(x:integer):boolean;{自定义查找函数}vari:integer;beginfind:=false;for i:=1to n doif a[i]=x then begin find:=true;exit;end;end;Procedure writea;{自定义输出数组元素的过程} vari:integer;beginfor i:=1to n dowrite(a[i],'');writeln;end;Procedure selectsort;vari,j,k:integer;beginfor i:=1to n-1dobegink:=i;for j:=i+1to n doif a[k]>a[j]then k:=j;if k<>i then begin temp:=a[i];a[i]:=a[k];a[k]:=temp;end;end;end;Begin{主程序开始}randomize;x:=random(100);for i:=1to n dobeginwhile find(x)dox:=random(100);a[i]:=x;end;writea;{调用输出数组过程}selectsort;{调用选择排序过程}writea;{调用输出数组过程}end.【典型例题1】求阶乘n!求n!我们可以使用For循环来做，这里我们换一个思路，使用递归的方法来做。

看下面的数学递推表达式。

我们可以看出为求n!，必先求出(n-1)!，同理，要求出(n-1)!，必先求出(n-2)!，则如此递推下去，最终当n=0时我们就可以马上得出结果1,然后我们从1开始再逐步返回到n来求出n!【演示课件】请用右键[目标另存为]命令保存下来再观看Program jiecheng;Varn:integer;Function jc(n:integer):longint;BeginIf n=0Then jc=1Else jc=n*jc(n-1)End;Begin{main}readln(n);writeln(jc(n));End.【典型例题2】汉诺塔问题有三根柱A、B、C，在柱A上有N块盘片，所有盘片都是大的在下面，小片能放在大片上面。

现要将A上的N块盘片移到C柱上，每次只能移动一片，而且在同一根柱子上必须保持上面的盘片比下面的盘片小，输入任意的N，输出移动方法。

(注意：这是一个古老的传说，传说是如果把64个盘子由A柱移到了C柱的话，那么世界末日就到了，事实上如果要把64个盘子从A柱移到C柱的话，即使用计算机运算，也要计算数亿年，所以这个预言未必不是真实。

)【分析】我们可以这样考虑，当n=1时，我们只要直接将A柱的盘子移到C柱，当n>1时，我们可以先把n-1个盘子由A柱通过C柱移到B柱，此时就可以把A柱剩下的最后一个盘子直接移到C柱，这样接下来只要把n-1个盘子通过A柱移到C柱即可，如果就构成了递归的思路，我们可以定义个移动过程mov(n,a,b,c)表示将n个盘子从a通过b移到c【程序】Program hannuota;Varn:integer;Procedure move(n,a,b,c:integer);beginif n=1then writeln(a,'->',c)else beginmove(n-1,a,c,b);{把n-1个盘子从a柱经由c柱移到b柱}writeln(a,'->',c);{把剩下的第n个盘子直接移到c柱}move(n-1,b,a,c);{把在b柱上的n-1个盘子经由a柱移到c柱}end;end;Beginreadln(n);move(n,1,2,3);End.【典型例题3】求公约数问题利用递归函数的方法求a,b的公约数。