PASCAL程序基础

Pascal语言编程基础程序（常州市）十进制转二进制var i,n,j:longint;a:array[1..100] of longint;beginreadln(n);i:=1;while n<>0 dobegina[i]:=n mod 2;i:=i+1;n:=n div 2;end;write('Bin:');for j:= i-1 downto 1 dowrite(a[j])end.数组元素删除var a:array[1..10]of longint;i,t,x:longint;beginread(x);for i:=1 to 10 doa[i]:=2*i-1;t:=a[x];for i:=x+1 to 10 doa[i-1]:=a[i];for i:=1 to 9 dowrite(a[i]:4);end.数组元素删除2var a:array[1..11]of longint;i:longint;beginfor i:=1 to 10 doa[i]:=i;a[11]:=a[1];for i:= 1 to 10 doa[i]:=a[i+1];for i:= 1 to 10 dowrite(a[i]:4); end.数组元素的移动var a:array[1..10] of longint;s,n,i,x,t:longint;beginreadln(n);for i:=1 to n doread(a[i]);readln(x);s:=a[x];for i:=x+1 to n doa[i-1]:=a[i];for i:=1 to n-1 dowrite(a[i],' ');write(s);end.排除所有异形基因var a:array[1..100] of longint;n,g,j,i,wz:longint;beginreadln(n);for i:=1 to n do read(a[i]);g:=0;for i:=1 to n doif sqr(a[i]) mod 7=1then beginwz:=i;for j:=wz+1 to n doa[j-1]:=a[j];g:=g+1end;write(a[1]);for i:=2 to n-g dowrite(' ',a[i]);writeln;end.排除第一个异形基因var a:array[1..100] of longint;n,i,wz:longint;beginreadln(n);for i:=1 to n do read(a[i]);for i:=1 to n doif sqr(a[i]) mod 7=1then begin wz:=i; break; end;for i:=wz+1 to n doa[i-1]:=a[i];write(a[1]);for i:=2 to n-1 dowrite(' ',a[i]);writeln;end.排除所有var i,n,j,s:longint;a:array[0..100] of longint;beginreadln(n);i:=0;while n<>0 dobegina[i]:=n mod 2;i:=i+1;n:=n div 2;end;s:=0;for j:=i-1 downto 0 dobeginif (s=0)and(a[j]=1) then begin write(j);s:=1; endelse if (a[j]=1) then write(' ',j);end;writeln;end.排名var a:array[1..100] of real;xh:array[1..100]of longint;n,j,i,k:longint;t:real;beginread(n);for i:=1 to n do read(a[i]);for i:=1 to n do beginfor j:=1 to n-1 doif a[j]<a[j+1] then begin t:=a[j];a[j]:=a[j+1];a[j+1]:=t;xh[j]:=xh[j+1];xh[j+1]:=k;end;end;for i:=1 to n dowriteln('NO',i,':',xh[i ]);end.排队迟到var n,x,y,wz,xwz,i :longint;a:array[1..100]of longint;beginreadln(n,x,y);for i:=1 to n do read(a[i]);for i:=1 to n doif x=a[i] then xwz:=i;wz:=xwz+1;for i:=n downto wz doa[i+1]:=a[i];a[wz]:=y ;write(a[1]);for i:=2 to n+1 dowrite(' ',a[i]);writeln;end.元素插入有序数组var n,i,x,y,wz,m:longint;a:array[1..100]of longint;beginreadln(n);readln(m);for i:=1 to m doread(a[i]);wz:=m+1;for i:= 1 to m doif n<=a[i] then begin wz:=i; break;end;if wz<>0 thenfor i:=m downto wz doa[i+1]:=a[i];a[wz]:=n ;write(a[1]);for i:=2 to m+1 dowrite(' ',a[i]);writeln;end.数组平移var a:array[1..11]of longint;i:longint;beginfor i:=1 to 10 doa[i]:=i;a[11]:=a[1];for i:= 1 to 10 doa[i]:=a[i+1];for i:= 1 to 10 dowrite(a[i]:4);end.排除第一个异形基因var a:array[1..100] of longint;n,i,wz:longint;beginreadln(n);for i:=1 to n do read(a[i]);for i:=1 to n doif sqr(a[i]) mod 7=1then begin wz:=i; break; end;for i:=wz+1 to n doa[i-1]:=a[i];write(a[1]);for i:=2 to n-1 dowrite(' ',a[i]);writeln;end.各位数之和2var a:string;s,i:longint;beginreadln(a);s:=0;for i:=1 to length (a) dos:=s+ord(a[i])-48;writeln(s);end.八进制回文数-提高var a:array[1..100] of longint;n,i,j,t,l,r,f:longint;beginread(n);i:=1;while n<>0 do begina[i]:=n mod 8;i:=i+1;n:=n div 8;end;write('Oct:' );for j:=i-1 downto 1 dowrite(a[j]);f:=0;l:=1;r:=i-1;while l<=r doif a[l]=a[r] then begin l:=l+1;r:=r-1; endelse begin f:=1;break; end; writeln;if f=0 then writeln('YES')else writeln('NO');end.最大公约数2var ans,n,r,i,t:longint;function work(a,b:longint):longint;beginif a mod b=0 then work:=belse work:=work(b,a mod b); end;beginreadln(n);read(ans);for i:=2 to n dobeginread(r);if r<ans then begin t:=r;r:=ans; ans:=t;end;ans:=work(r,ans);end;writeln(ans);end.走台阶var n:longint;function ztj(a:longint):longint;beginif a=1 thenztj:=1elseif a=2 thenztj:=2elseztj:=ztj(a-1)+ztj(a-2);end;beginreadln(n);writeln(ztj(n));end.自然数拆分var n:longint;a:array[1..100]of longint; procedure try(dep,lasti,r:longint); vari:longint;beginif r<=0then if r=0 thenbeginfor i:=1 to dep-1 do write(a[i]:3); writelnendelseelse for i:=lasti downto 1 do begina[dep]:=i;try(dep+1,i,r-i);end;end;beginread(n);try(1,n,n);end.自然数拆分2var n:longint;a:array[1..100]of longint; procedure cfs(dep,n,x:longint); var i:longint;beginif n=0then beginfor i:=1 to dep-2 dowrite(a[i],' ');writeln(a[dep-1]);endelse beginfor i:=x to n dobegina[dep]:=i;cfs(dep+1,n-i,i);end;end;end;beginreadln(n);cfs(1,n,1);end.自然对数的底vari,n,m,cc,p,k : longint;a,b,c : array[0..10010] of longint;Procedure addb;varj: longint;beginif m>cc then cc:=m;for j:=1 to cc doinc(c[j],b[j]);for j:=cc downto 1 dobegininc(c[j-1], c[j] div 10);c[j]:= c[j] mod 10;end;end;Procedure divi(k:longint);varj,t: longint;begint:=0;j:=1;while (j<=n+10) dobeginb[j]:=(a[j]+t*10) div k;t:=(a[j]+t*10) mod k;if j>m then m:=j;inc(j);if (t=0) and (j>m) then break;end;a:=b;end;beginreadln(n);fillchar(b,sizeof(b),0);fillchar(c,sizeof(c),0);fillchar(a,sizeof(a),0);a[1]:=10;m:=1;cc:=1;i:=2;k:=0;while k=0 dobegindivi(i);addb;inc(i);k:=1;for p:=1 to cc doif b[p]<>0 thenbegink:=0;break;end;end;write('2.');for i:=1 to n dowrite(c[i]);writeln;end.字符串逆序Var n:string; procedure w(s:longint);beginif s<1 thenwritelnelsebeginwrite(n[s]);w(s-1);end;end;beginreadln(n);w(length(n));end.猪猪的反击Var n,m,i,j,s:longint;a:array [1..100,1..100] of longint; beginreadln(n,m);fillchar(a,sizeof(a),0);for i:=1 to n dofor j:=1 to m doread(a[i,j]);i:=1;j:=1;s:=a[1,1];while i<n dobeginif j=m theninc(i)elseif a[i+1,j]<a[i,j+1] theninc(j)elseinc(i);inc(s,a[i,j]);end;writeln(s);end.植树Var m,n,i,j,t:longint;a:array[1..100,1..3] of longint;beginreadln(m,n);t:=0;for i:=1 to n doreadln(a[i,1],a[i,2],a[i,3]);for i:=0 to m doif i mod 5=0 thenbeginfor j:=1 to n+1 doif j=n+1 theninc(t,16)elseif (i>=a[j,1]) and (i<=a[j,2]) thenbegininc(t,a[j,3]);break;endelsecontinue;endelsecontinue;t:=t*2;writeln(t);end.找孪生数var x,cx,s,i,bx,n:longint;beginreadln(n);s:=0;for x:=1 to n dobegincx:=0;for i:=2 to trunc(sqrt(x)) doif x mod i=0 then cx:=cx+i+x div i;if i*i=x then cx:=cx-i;cx:=cx+1;bx:=0;for i:=2 to trunc(sqrt(cx)) doif cx mod i =0 then bx:=bx+i+cx div i;if i*i=cx then bx:=bx-i;bx:=bx+1;if (bx=x) and (x<cx)then begin s:=1;writeln(x:10,cx:10);end;end;if s=0then writeln('nothing');end.辗转相除var a,b,x:longint;function f(a,b:longint):longint;beginif a mod b=0 then begin f:=b; endelse begin f:=f(b,a mod b); end;end;beginread(a,b);x:=a*b div f(a,b);writeln(f(a,b),' ',x);end.约瑟夫1var a:array[1..100] of 0..1;n,m,left,count,wei,i:integer; beginreadln(n,m);for i:=1 to 100 do a[i]:=1; left:=n;count:=0;wei:=0;while left>1 dobeginwei:=wei+1;if wei>n then wei:=1;count:=count+a[wei];if count=mthen begincount:=0;a[wei]:=0;left:=left-1;end;end;for i:=1 to n doif a[i]=1then writeln(i);end.小鸟的阵地var n:longint;function f(a:longint):longint;beginif a=1 thenf:=1elseif a=2 thenf:=2elsef:=f(a-1)+f(a-2);end;beginreadln(n);writeln(f(n));end.小黄的短信var a:array [1..1000] of string;b:array [1..10000] of string;m,n,i,j,t:longint;beginreadln(m,n);t:=0;for i:=1 to m doreadln(a[i]);for j:=1 to n doreadln(b[j]);for i:=1 to n dofor j:=1 to m doif pos(b[i],a[j])>0 thenbegininc(t);break;end;writeln(t);end.仙人吃牛肉varn,i,j,k,m,s:longint;a,b,c,d:int64;t,r :string;beginreadln(n);s:=0;for i:=3 to n-2 dobegina:=i;for j:=i+1 to n-1 dobeginb:=j;c:=a*a+b*b;d:=round(sqrt(c));if (d*d=c) and (d<=n) theninc(s);end;end;writeln(s);end.矩阵杨辉三角形vara:array [0..100,0..100] of longint;n,i,j:longint;beginreadln(n);fillchar(a,sizeof(a),0);a[1,1]:=1;for i:=2 to n dofor j:=1 to i doa[i,j]:=a[i-1,j]+a[i-1,j-1];for i:=1 to n dobeginfor j:=1 to i dowrite(a[i,j]:4);writeln;end;end.哥德巴赫猜想2varn,i,k,s:longint;a:array [1..3,1..100] of longint;function ss(a:longint):boolean;varj:longint;beginss:=true;if a<2 thenbeginss:=false;exit;end;for j:=2 to round(sqrt(a)) doif a mod j=0 thenbeginss:=false;exit;end;end;beginreadln(n);s:=0;for i:=1 to n div 2 dofor k:=i to n div 2 doif (ss(i)) and (ss(k)) and (ss(n-i-k)) thenif (i<=k) and (k<=n-i-k) thenbegininc(s);a[1,s]:=i;a[2,s]:=k;a[3,s]:=n-i-k;end;writeln(s);for i:=1 to s dowriteln(n,'=',a[1,i],'+',a[2,i],'+',a[3,i]); end.汉诺塔varn:longint;procedure hanoi(n:longint;a,b,c:char);beginif n=1 thenwriteln(a,' To ',c)elsebeginhanoi(n-1,a,c,b);writeln(a,' To ',c);hanoi(n-1,b,a,c);end;end;beginreadln(n);hanoi(n,'A','B','C');end.看电影var a:array[1..100]of longint;n,t,i:longint;beginreadln(n);for i:=1 to n do read(a[i]);for i:=1 to n div 2 dobegint:=a[i];a[i]:=a[n+1-i];a[n+1-i]:=t;end;for i:=1 to n-1 dowrite(a[i],' ');write(a[i+1]);end.打印成绩单var a:array[1..100]of longint;n,s,i:longint; beginreadln(n);for i:=1 to n do read(a[i]);for i:=1 to n dos:=s+a[i];writeln('total:',s);for i:=1 to n dowriteln(a[i]);end.美丽的黄山vara,b,t,n,i:longint;beginreadln(n);read(a);t:=1;for i:=2 to n dobeginread(b);if b>a thenbegininc(t);a:=b;end;end;writeln(t);end.奶牛的相似性vara,b:array [1..1000,1..1000] of shortint; m,n,i,j,t:longint;beginreadln(m,n);for i:=1 to m dofor j:=1 to n doread(a[i,j]);for i:=1 to m dofor j:=1 to n doread(b[i,j]);t:=0;for i:=1 to m dofor j:=1 to n doif a[i,j]=b[i,j] theninc(t);writeln(t);end.牛的速记var a:array ['a'..'z'] of longint;s:string; r,k:char; i,j,max:longint;beginreadln(s); max:=0;while length(s)<>0 dobeginfor i:=1 to length(s) do inc(a[s[i]]);for r:='a' to 'z' do if a[r]>max then begin max:=a[r]; k:=r; end;while pos(k,s)<>0 do delete(s,pos(k,s),1);if length(s)>0 then writeln(s);fillchar(a,sizeof(a),0); max:=0;end;end.烤面包varn,k,t:longint;beginreadln(n,k);n:=n*2;if n mod k=0 thent:=n div kelset:=n div k+1;if t=1 thent:=2;writeln(t);end.猪猪的反击varn,m,i,j,s:longint;a:array [1..100,1..100] of longint;beginreadln(n,m);fillchar(a,sizeof(a),0);for i:=1 to n dofor j:=1 to m doread(a[i,j]);i:=1;j:=1;s:=a[1,1];while i<n dobeginif j=m theninc(i)elseif a[i+1,j]<a[i,j+1] theninc(j)elseinc(i);inc(s,a[i,j]);end;writeln(s);end.计算N的阶乘varn:longint;function jc(a:longint):longint;beginif a<=1 thenjc:=1elsejc:=jc(a-1)*a;end;beginreadln(n);writeln(jc(n));end.北郊初级中学七（5）班戚博程。

PASCAL语言程序设计第一部分语言基础知识一、程序结构：例1.1计算半径为R的圆面积S{程序首部} program Area;{说明部分——数据描述}const pi=3.14159;｛常量定义｝var s,r:real;｛变量定义｝{执行部分——程序体}Beginreadln(r);｛读入数据给r｝s:=pi*sqr(r);｛求圆的面积｝writeln('s=',s);｛在屏幕上输出面积｝end.上述程序第一行称为程序首部。

其中用花括号(注释可以用{ }或（* *）来表示)括起来的内容是注释，注释除了给人看，增加程序的可读性外，对程序编译和运行不起作用。

一个程序可以包含多个出现在不同处注释，亦可无注释。

程序第二行是常量说明，程序第三行是变量说明。

程序从begin到end 都是执行（语句）部分(1)程序首部例1.1的第一行称为程序首部。

program是保留字，接着是程序名（由你依据“标示符”规则自行定义），最后以分号表示程序首部结束，下面是程序主体的开始。

程序首部在一个Turbo Pascal（仅在Turbo Pascal中有效）程序中并非必须出现，它是可选的。

写上它仅起了文档作用。

因此，在时间有限的情况下，如果用Turbo Pascal编程完全可以省略程序首部。

(2)程序体a.说明部分说明部分用于定义和说明程序中用到的数据，由单元说明、标号说明、常量说明、类型说明、变量说明、函数或过程说明组成，并且这些数据的说明次序必须按照以上次序。

但是一个简单的Turbo Pascal程序也可以不包含说明部分，也就是说说明部分是可选的。

b.执行部分执行部分描述了程序要执行的操作。

它必须以一个Turbo Pascal保留字begin开始，以保留字end后跟句点结束，其间是一些执行具体操作的语句，并且以分号作为语句之间的分隔符。

begin 和end必须成对出现，这是一个Turbo Pascal 程序所必须有的。

顺序结构与基本数据类型一、程序的三种基本结构1、顺序结构：按照语句的书写顺序，依次执行。

2、选择结构（分支结构）：根据给定的条件，判断成立与否，成立做一件事，不成立做另外一件事。

两件事必须做一件且只能做一件。

3、循环结构（重复结构）：重复做某件事。

3种：①计数循环：重复执行的次数确定；②当型循环：当条件成立时，反复做某件事；③直到型循环：反复做某件事，直到条件成立时为止。

二、PASCAL标准数据类型及函数：1、实型(real)表示方法：小数表示法和指数表示法（科学表示法）。

如：1.25(1.25e0),132.67(1.3267e+2),0.0025(2.5e-3),-1.56(-1.56e0),0.0(0e0) 实型量运算：+（加）、-（减）、*（乘）、/（除）实型量标准函数：abs(绝对值)，sqr(平方)，sqrt(开方)，sin(正弦)，cos(余弦),arctan(反正切),exp(以e为底的指数),ln(自然对数),trunc(取整),round(舍入取整)，int(取整)注：所有函数的自变量必须写在括号中。

例如：Sin2x 应写成sin(2*x) (a+b)2应写成sqr(a+b)Sin,cos函数的自变量应为弧度。

若是度，应转换为弧度。

例如：Sin32o15’应写成sin(32.15*3.14159/180)Tanx 应写成sin(x)/cos(x)e2.5应写成exp(2.5)lnx应写成ln(x) lgx 应写成ln(x) /ln(10)x y 应写成exp(y*ln(x))int直接取整数部分（其结果为实型）、trunc去掉小数部分，取其整数。

Round是将小数部分四舍五入后变为整数。

例如：trunc(1.2)=1 round(1.2)=1trunc(1.7)=1 round(1.7)=2trunc(-3.7)=-3 round(-3.7)=-42、整型（integer）正、负数和0.整型量运算：+（加）、-（减）、*（乘）、div（整除）、mod（取余）整型量标准函数：abs(绝对值)，sqr(平方)，pred(前导),succ(后继),odd(奇函数),chr(取字符)例如：pred(前导),取自变量前一个值。

第一章、什么是计算机语言计算机语言是计算机软件中非常独特的一部份，它属于系统软件，但又和应用软件息息相关。

它的作用是：使人类能够用某些命令、指令去让计算机为人类进行数值、逻辑运算。

计算机语言中，只有一种语言是计算机能自己识别的，就是最底层、最难的机器语言，这是一般人类所无法接受的语言，所以在此基础上，人们发展出了许多高级的语言，这些语言的共同特点是：人类无需去掌握高深的机器语言，只要掌握这些更容易理解、更贴近人类的高级语言，用高级语言编出程序后，再由语言解释、编译系统去把程序解释、编译成机器语言让计算机去执行。

目前最常用的高级语言大致有以下几种：BASIC语言：是一般计算机入门者的首选语言，命令少，容易掌握，从BASIC，BASICA，GWBASIC，TRUE BASIC，TURBO BASIC，QUICK BASIC等一直发展到目前的WINDOWS环境下的VB。

PASCAL语言：最适合科学计算、数据处理的语言，运行、编译速度最快，从TURBO PASCAL 5 .5, 6.0, 7.0一直到现在的WINDOWS环境下的DELPHI以及LAZARUS等面向对象的PASCAL，以及目前信息学竞赛使用的FREE PASCAL各个版本。

C语言：主要适用于应用软件的开发，是计算机人员的必修课，但在算法实现、建模方面不如PASCAL方便。

从C，C++，一直到现在的WIONDOWS环境下的VC、C++等。

实际上，我们日常所用的各种软件，包括Windows，WORD、EXCEL、各种游戏等等，全部都是使用程序设计语言编写出来的软件，我们只有掌握了程序设计语言，才能进行计算机软件的开发。

在我们的信息学竞赛中，所有的题目都是非常复杂的数值与逻辑运算，所以世界上广泛采用PASCAL语言作编程工具，我们采用的是FREE PASCAL2.0版本或者相近版本。

我们学习信息学竞赛除了要掌握程序设计语言，能够使用程序设计语言编写程序外，还有一部分要掌握的更加重要的内容就是——算法设计，它能够使我们的程序运行速度更快、效率、精度更高，使我们的程序取得快人一步的优势，算法设计在本书中我们将接触一部分。

PASCAL语言程序设计知识讲解资料PASCAL是一种结构化程序设计语言，起初由尼科劳斯·维尔特设计于1968年。

它是一种意图激发清晰结构化编程方法的语言，因此在计算机科学教育中得到广泛应用。

现在，PASCAL仍然是一种非常流行的教学语言，用于教授编程基础和算法。

1.结构化编程：PASCAL语言的一个重要设计目标是通过结构化编程来提高代码的可读性和可维护性。

PASCAL提供了块、子程序、循环结构和条件语句等结构来帮助程序员组织代码并降低编程错误的可能性。

2.关注类型安全：PASCAL是一种静态类型语言，它要求在编译时为每个变量明确指定数据类型。

这样做有助于提前发现类型错误，并增加程序的可靠性。

PASCAL还支持用户自定义类型，使程序员能够创建抽象数据类型来更好地组织和管理数据。

3.丰富的标准库：PASCAL提供了丰富的标准库，其中包括文件操作、字符串处理、图形绘制、数学计算等常用功能。

这些库函数使程序员能够更轻松地开发复杂的应用程序，同时也可以节省大量的编写和调试代码的时间。

4. 跨平台支持：PASCAL编译器可以生成适用于不同操作系统的可执行代码，包括Windows、Mac和Linux等。

这种跨平台支持使得程序员可以在不同的操作系统上编写和运行PASCAL程序，而无需进行太多的修改。

5.功能强大：虽然PASCAL是一种教学语言，但它仍然具备很强的功能。

它支持递归、指针操作、动态内存分配等高级特性，为程序员提供了更多的灵活性和控制力。

下面是一个简单的示例程序，展示了PASCAL的基本语法和特性：```program HelloWorld;varname: string;beginwriteln('Please enter your name:');readln(name);writeln('Hello, ', name, '!');end.```在这个例子中，程序首先输出提示用户输入姓名的消息，然后读取用户输入的姓名，并输出欢迎消息。

Pascal基础教程目录第一课初识PASCAL语言 (1)第二课赋值语句与简单的输出语句 (5)第三课带格式的输出语句输入语句 (12)第四课简单的分支结构程序设计 (19)第五课if嵌套与case语句 (23)第六课for循环 (29)第七课while循环与repeat-until循环 (30)第八课一维数组 (35)第九课多维数组 (39)第十课字符数组与字符串 (45)第十一课枚举、子界、集合及记录类型 (51)第十二课过程与函数 (66)第十三课动态数据类型（指针类型） (76)第十四课文件 (89)附录一Pascal中的字符串函数和数学函数 (111)附录二关于fillchar的使用和讨论 (116)附录三程序的调试技巧 (117)附录四Pascal的多种退出语句用法 (123)第一课初识Pascal语言信息学奥林匹克竞赛是一项益智性的竞赛活动，核心是考查选手的智力和使用计算机解题的能力。

选手首先应针对竞赛中题目的要求构建数学模型，进而构造出计算机可以接受的算法，之后要写出高级语言程序，上机调试通过。

程序设计是信息学奥林匹克竞赛的基本功，在青少年朋友参与竞赛活动的第一步必须掌握一门高级语言及其程序设计方法。

一、Pascal语言概述PASCAL语言也是一种算法语言，它是瑞士苏黎世联邦工业大学的N．沃思(Niklaus Wirth)教授于1968年设计完成的，1971年正式发表。

1975年，对PASCAL语言进行了修改，作为"标准PASCAL语言"。

PASCAL语言是在ALGOL60的基础上发展而成的。

它是一种结构化的程序设计语言，可以用来编写应用程序。

它又是一种系统程序设计语言，可以用来编写顺序型的系统软件（如编译程序）。

它的功能强、编译程序简单，是70年代影响最大一种算法语言。

二、Pascal语言的特点从使用者的角度来看，PASCAL语言有以下几个主要的特点：⒈它是结构化的语言。

三、Pascal语言的基本成份由于目前不同的Pascal语言版本基本成分稍有不同．为例来介绍Pascal语言的一些基本知识。

(一)Pascal语言的基本字符和符号1．字母：A到Z，a到z和__(下划线)。

2．数字：O、1、2、3、4、5、6、7、8、9。

3．算术运算符：+(加)、-(减)、*(乘)、／(除)、((左括号)、)（右括号）。

注：数值前面的+，-表示该数值的正、负号。

4．赋值运算符：：=。

5．关系运算符：>(大于)、<(小于)、<>(不等于)、=(等于)、>=(大于等于)、<=(小于等于)。

6．语句分隔符：；(分号)。

7．子界分隔符：..。

8．下标括号：[]。

9．注释括号：{}括号内的信息不被执行，只用作程序提示。

(二)保留字保留字是由字母拼成的英语单词和字，Pascal语言已预先规定了它们的意义．如例2—1—1中的PROGRA M、CONST、VAR、BEGIN、END等都是保留字。

还有如：IF、THEN、T0、DO、ELSE、AND、NOT、OR、FOR、WHILE、REPEAT、DIV、WITH等。

保留字不允许被用户再定义，否则Turbo Pascal编译器将提示出错信息。

Turbo Pascal共有保留字50多个，如附录一中所示的《Turbo Pascal的保留字》。

(三)标识符标识符是用来表示程序、常量、变量、过程、函数、文件和类型等名称的符号。

如在例2-l-1中，Pi就是表示3．14159这个数值的名称。

R、S分别是表示圆半径、圆面积量的名称。

在程序中使用标识符有利于程序的编写、分析和调试等。

Turbo Pascal中，标识符形成的规则是：它必须由一个英文字母或下划线开头，后面可跟英文字母、数字和下划线的任意组合。

标识符中的英文字母大、小写不予区分。

标识符的长度最长由127个字符组成，但只有前63个字符有效，其中不允许有空格。

Turbo Pascal语言系统中标识符分为“标准标识符”和“用户自定义的标识符”两类。