青少年信息学奥林匹克初赛(中学组PASCAL语言)模拟试题附参考答案
信息学初赛模拟试题（八）
（中学组PASCAL语言，两小时完成）
◆◆请将正确答案在答卷上填写，在本试题卷上答题无效◆◆
一、选择题（每小题1.5分，共30分）
1、一台计算机一经设计出厂，其指令系统_____
A、已确定
B、再经软件人员编制而成
C、可继续其功能
D、属系统软件
2、把整数7转换为字符’7’的表达式是_____
A、Chr（7）-ord（‘0’）
B、chr（7-ord（0））
B、Chr（7+ord（‘0’））D、chr（7+ord（0））
3、_____接口是一种通用型系统级接口，它连接的外设可以是硬盘驱动器、光盘驱动器和扫描仪等。
A、RS232
B、IDE
C、EIDE
D、SCSI
4、1GB=_____字节。
A、220
B、230
C、106
D、109
5、主存储器系统中使用Cache的目的是_____
A、增加主存容量
B、存放常用的系统程序
C、存放BIOS
D、提高CPU存取主存的速度
6、从以下叙述中选出最确切叙述_____
A、CPU是计算机核心部件，它的主要功能是完成算术和逻辑运算操作；
B、根据系统总线传送信息的类型不同，它可分为地址线、数据线和控制线。
C、在指令字中，除给出指令的操作码外，还必须给出操作的对象。
D、显示器是构成计算机显示系统的硬件部件。
7、高级语言中，程序控制一般分为三种基本结构，其中_____结构可提供作条路径选择。
A、循环
B、分支
C、递归
D、过程
8、在子程序的程序头，一般要写出一些变量，这些变量被称为_____
A、形式参数
B、实际参数
C、局部参数
D、全局参数
9、二分法查找_____存储结构。
A、只适合于顺序
B、只适合于链式
C、既适合于顺序也适合于链式
D、既不适合于顺序也不适合于链式
10、当选定文件或文件夹，不将文件或文件夹放到“回收站”中，直接删除的操作是_____
A、按Delete（Del）键
B、用鼠标直接将文件或文件夹拖放到“回收站”中
C、按Shift + Delete （Del）键
D、用“我的电脑”或“资源管理器”窗口中的“文件”菜单中的删除命令
11、有一个二维数组A，行下标的范围是0到8，列下标的范围是1到5，每个数组元素用相信的4个字节存储。存储器按字节编址。假设存储数组元素A[0，1]的第一个字节的地址是0。若按列存储，则A[2，4]的第一个字节的地址是_____
A、28
B、108
C、116
D、132
12、与二进制1110111.111对应的十六进制数是_____
A、77.E
B、77.7
C、E7.E
D、E7.7
13、URL的一般格式为_____
A、/<路径>/<文件名>/<主机>
B、<通信协议>：//<主机>/<路径>/<文件名>
C、<通信协议>：/<主机>/<文件名>
D、//<主机>/<路径>/<文件名>：<通信协议>
14、_____是实现两个异种网络互连的设备。
A、网桥
B、网关
C、集线器
D、路由器
15、_____可能把模拟声音信号转换成数字声音信号。
A、A/D
B、D/A
C、R/W
D、I/O
1
16、现有十六进制数x、y，它们的值分别是x=BD，y=9D，则表达式x*y的值为_____
A、73E9
B、50ED
C、7E00
D、CE11
17、设T是哈夫曼树，且各片树叶的权分别是：1，2，3，4，5，6，则此树的非树叶结点的权之和是_____
A、27
B、30
C、45
D、51
18、设要将序列
A、F，H，C，D，P，A，M，Q，R，S，Y，X
B、P，A，C，S，Q，D，F，X，R，H，M，Y
C、A，D，C，R，F，Q，M，S，Y，P，H，X
D、H，C，Q，P，A，M，S，R，D，F，X，Y
19、设X=23 0.0110，则规格化后阶码为．
A、011
B、010
C、100
D、111
20、线性表具有两种存储方式，即顺序方式和链接方式。现有一个具有五个元素的线性表L={23，17，47，05，31}，若它以链接方式存储在下列100~119号地址空间中，每个结点
A、100
B、104
C、108
D、110
二、问题求解（每小题6分，共12分）
1、圆周上有10个点，每两点间连一弦，如果其中任意三条弦在圆内都不共点，由这些弦
在圆内的交点为顶点的三角形的个数为____________。
2、表达式3*5+2是二叉树中用何种遍历的表达式? 并画出该表达式二叉树。
三、写出程序的运行结果：（共28分）
第1题（8分）
program test31;
const n=5;
var I,j,k:integer;
r:array[0..10] of integer;
begin
for I:=1 to n do read(r[I]);
for I:=2 to n do
begin
k:=r[I];j:=I-1;
while (k>r[j]) and (j>0) do
begin r[j+1]:=r[j];j:=j-1;end;
r[j+1]:=k;
end;
for I:=1 to n do write(r[I],’’);
writeln
end.
输入: 8 4 9 3 5
输出：
2
第2题（10分）
program test32;
var a:array[1..1000] of word;
n,i,j,dep:word;
begin
write('N(1-1000)='); readln(n);
if (n=0) or (n>1000) then begin writeln('Input error.'); readln; halt; end;
fillchar(a,sizeof(a),0); a[1]:=1; dep:=1;
for i:=2 to n do begin
j:=3; while (j>0) do begin
dep:=dep mod n+1;
if a[dep]=0 then dec(j);
end;
a[dep]:=i;
end;
for i:=1 to n do write(a[i]:5);
writeln;
end.
输入：8
输出：
第3题（10分）
program test33;
const n=5;
var i:integer;
x,y:real;
a:string[n];
begin
x:=0.375;
while i begin y:=x; i:=0; while i begin y:=y*2; i:=i+1; if y>=1 then begin a[i]:='1';y:=y-1 end else a[i]:='0'; end; write('0.'); for i:=1 to n do write(a[i]); writeln; x:=x-0.01 end end. 输出： 四、完善程序（每空2分，共28分） 第1题（6分） [问题描述] 彼得在邮局值夜班，十分无聊，他对邮局内的200个信筒（编号为1到200），全部 3 Pascal语言编程基础程序 （常州市） 十进制转二进制 var i,n,j:longint; a:array[1..100] of longint; begin readln(n); i:=1; while n<>0 do begin a[i]:=n mod 2; i:=i+1; n:=n div 2; end; write('Bin:'); for j:= i-1 downto 1 do write(a[j]) end. 数组元素删除 var a:array[1..10]of longint; i,t,x:longint; begin read(x); for i:=1 to 10 do a[i]:=2*i-1; t:=a[x]; for i:=x+1 to 10 do a[i-1]:=a[i]; for i:=1 to 9 do write(a[i]:4); end. 数组元素删除2 var a:array[1..11]of longint; i:longint; begin for i:=1 to 10 do a[i]:=i; a[11]:=a[1]; for i:= 1 to 10 do a[i]:=a[i+1]; for i:= 1 to 10 do write(a[i]:4); end. 数组元素的移动 var a:array[1..10] of longint; s,n,i,x,t:longint; begin readln(n); for i:=1 to n do read(a[i]); readln(x); s:=a[x]; for i:=x+1 to n do a[i-1]:=a[i]; for i:=1 to n-1 do write(a[i],' '); write(s); end. 排除所有异形基因 var a:array[1..100] of longint; n,g,j,i,wz:longint; begin readln(n); for i:=1 to n do read(a[i]); g:=0; for i:=1 to n do if sqr(a[i]) mod 7=1 then begin wz:=i; for j:=wz+1 to n do a[j-1]:=a[j]; g:=g+1 end; write(a[1]); for i:=2 to n-g do write(' ',a[i]); writeln; end. 排除第一个异形基因 var a:array[1..100] of longint; n,i,wz:longint; begin readln(n); for i:=1 to n do read(a[i]); for i:=1 to n do if sqr(a[i]) mod 7=1 Pascal 语言精要 基本概念：标识符、保留字、常量、变量、运算符、表达式、标准数据类型 Pascal 数 据 类 型 简单类型 标准类型 整型 integer -32768~32767 shortint -128~127 longint -2147483648~2147483647 byte 0~255 word 0~65535 实型 real 绝对值在1E-38~1E38间 singel （单精度型） double （双精度型） extended （扩展型） comp （装配十进制型） 字符型 char （字符） string （字符串） boolean 只有两个值true 和false 用户自定义类型 枚举型 子界型 构造类型 数组类型 记录类型 集合类型 文件类型 指针类型 PASCAL 标准数据类型一共有4个：整型、实型、字符型、布尔型，分别用保留字integer 、real 、char 、boolean 来标记它们。其取值范围和运算如下： 整型(integer)：范围 -32768—32767(16位运算)；运算 + - * / mod div 实型(real)： 范围 运算 + - * / 字符型(char)： 范围 可显示的ASCII 字符 布尔型(boolean)：范围 true false ；运算 and or not 1.整型 类型 数值范围 占字节数 格式 shortint -128..128 1 带符号8位 integer -32768..32767 2 带符号16位 longint -2147483648..2147483647 4 带符号32位 byte 0..255 1 带符号8位 word 0..65535 2 带符号16位 Pascal 规定了两个预定义整型常量标识符maxint 和maxlongint ，他们各表示确定的常数值，maxint 为32767， maxlongint 为2147483647，他们的类型分别是integer 和longint 2.实型 Pascal 支持五种预定义实型，它们是real （基本实型）、 single （单精度实型）、double （双精度实型）、extended （扩展实型）、comp （装配实型），Pascal 分别用不相同的名字 第一章、什么是计算机语言 计算机语言是计算机软件中非常独特的一部份，它属于系统软件，但又和应用软件息息相关。它的作用是：使人类能够用某些命令、指令去让计算机为人类进行数值、逻辑运算。计算机语言中，只有一种语言是计算机能自己识别的，就是最底层、最难的机器语言，这是一般人类所无法接受的语言，所以在此基础上，人们发展出了许多高级的语言，这些语言的共同特点是：人类无需去掌握高深的机器语言，只要掌握这些更容易理解、更贴近人类的高级语言，用高级语言编出程序后，再由语言解释、编译系统去把程序解释、编译成机器语言让计算机去执行。目前最常用的高级语言大致有以下几种： 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语言的特点 以法国数学家命名的PASCAL语言是世界上使用最广泛，最有效的语言之一。其主要特点是：严格的结构化形式；丰富完备的数据类型；运行能力、效率高；查错能力强等等。与BASIC、C等语言相比，PASCAL语言更适合科学计算，运行速度最快，编译能力最强，编译成的可执行文件也最小。 PASCAL语言是编译执行的语言（BASIC语言是解释执行），因此在速度与效率上都比BASIC语言提高了一个档次。所谓解释执行，是在程序环境下编写好程序后，执行它时是一句一句地由语言解释器翻译成机器语言，由计算机去执行，计算机能在程序编辑时就发现程序中错误，但程序运行速度慢；而编译执行是在程序环境中编写好程序后，执行时先由编译器把整个程序编译成机器语言，然后再由计算机执行，计算机必须在编译程序时才能发现程序中的错误，但程序运行速度快。 第二节、FREE PASCAL的集成环境 《Pascal》复习题 一、选择题 1、设有如下的过程说明 PROCEDURE wri; BEGIN Writeln(‘Welcome to use pascal!!!’); End; 则下面有关过程wri的叙述中正确的是____D_____ A)过程说明有错，因为没有形式参数 B)过程说明有错，因未说明过程的类型 C)过程说明有错，因为在过程体内没有给过程名赋值的语句 D)过程说明正确 （2章赋值语句） 2、已知变量ch是字符型变量，下面PASCAL赋值语句正确的是___D_____ A)ch:=’ab cd’; B)ch:=chr(ord(succ(‘c’)+1)); C)ch:=ord(‘b ’)+ord(‘a’); D)ch:=pred(succ(succ(‘f’))); （2章赋值语句） 3、判断以下叙述，其中正确的是___A_______ A) 在pascal程序中所用到的变量必须先说明后使用 B) 在pascal程序中,允许使用的最小值是－maxint C) 在pascal程序中,分号是语句的一部分，在每个语句中不能省略 D) 在pascal程序中,符号常数的值可根据需要随时修改 （1，2章基本知识） 4、以下不符合pascal规定的字符常量是___B_________ A)‘2’ B)‘pascal’ C)’’’’ D)‘a’ （2章标准数据类型） 5、以下属非法的pascal用户自定义标识是_____A____ A)CONST B)FORMAT C) MAX D) NEXT （1章保留字） 6、下面循环语句仅执行一次的是_____A_____ A) I:=0; B) I:=0; Repeat while (I<3) do I:=I+1; I:=I+1; Writeln(i) writeln(i); Until I<3 C)for I:=0 downto 3 do D) I:=0 I:=I+1; while (I>0) or (I<3) do Writeln(i); I:=I+1; writeln(i); （4 章循环结构） 7、下面函数首部或过程首部合法的是__B_______ A)function sum; B)procedure next; C)function s(VAR s:real):integer; Pascal语言编译器的设计与实现我们设计的编译程序涉及到编译五个阶段中的三个，即词法分析器、语法分析器和中间代码生成器。编译程序的输出结果包括词法分析后的二元式序列、变量名表、状态栈分析过程显示及四元式序列程序，整个编译程序分为三部分： (1) 词法分析部分 (2) 语法分析处理及四元式生成部分 (3) 输出显示部分 一．词法分析器设计 由于我们规定的程序语句中涉及单词较少，故在词法分析阶段忽略了单词输入错误的检查，而将编译程序的重点放在中间代码生成阶段。词法分析器的功能是输入源程序，输出单词符号。我们规定输出的单词符号格式为如下的二元式：(单词种别，单词自身的值) #define ACC -2 #define sy_if 0 #define sy_then 1 #define sy_else 2 #define sy_while 3 #define sy_begin 4 #define sy_do 5 #define sy_end 6 #define a 7 #define semicolon 8 #define e 9 #define sharp 10 #define S 11 #define L 12 #define tempsy 15 #define EA 18 //E and #define EO 19 //E or #define plus 34 #define subtract 35 #define times 36 #define divide 37 #define becomes 38 #define op_and 39 #define op_or 40 #define op_not 41 #define rop 42 WIN10如何使用Free Pascal ——从安装、消除乱码、编写个简单的hello谈起{ ******* author: Josan ******* date:2016/10/27 ********************************************************************* } 闲来无事，突然想“学”一门新的语言Pascal，不要求精通，只要求能安装、运行一些简单程序就行。所以，抽出一个上午的时间来了解Pascal的历史，以及编译器以及它的IDE。再用一个下午的时间来整理一下上午的所获所得，希望可以帮到一些入门者，能让他们少走弯路。同时，我也要感谢那些给我帮助过的网友们。来，开始正题。 一、安装 1 What is Pascal? 首先，来看下什么是Pascal程序设计语言。 参考： (1)维基百科：Pascal https://https://www.360docs.net/doc/3511147296.html,/wiki/Pascal_(programming_language)[1] (2)百度百科：Pascal https://www.360docs.net/doc/3511147296.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.360docs.net/doc/3511147296.html,[3] (2)GNU Pascal http://www.gnu-pascal.de/gpc/h-index.html[4] 第一个程序 Pascal 语言的编译器有很多，我们这里以Dev-Pascal 为主要编程工具。该软件界面如下： 我们输入如下代码后编译运行。 如果没有输入错误的话，计算机应能在黑色背景上显示“Hello,World ”。 例：计算a+b 的值。 3.编译并运行 Pascal字符与符号 1．标识符 (1) 标识符的定义：标识符就是以字母开头的字母数字序列，有效长度为63个字符，并且大小写等效。可以用来标示常量、变量、程序、函数等。 (2) 标识符的分类： a.保留字(关键字) 所谓保留字是指在Pascal语言中具有特定的含义，你必须了解它的含义，以便于正确的使用，否则会造成错误。下面是Pascal语言的保留字: AND ARRAY BEGIN CASE CONST DIV DO DOWNTO ELSE END FILE FOR FUNTION GOTO IF IN LABEL MOD NIL NOT OF OR PACKED PROCEDURE PROGRAM RECORD REPEAT SET THEN TO TYPE UNTIL VAR WHILE WITH b.标准标识符：指Pascal语言预先定义的标识符，具有特殊含义。 以下列举了Turbo Pascal语言部分常用的标准表识符： 标准常量False Maxint True 标准类型Boolean Char Real Integer 标准函数Abs Arctan Chr Cos Eof Eoln Exp Ln Odd Ord Pred Round Sin Sqr Sqrt Succ Trunc 标准过程Dispose Get New Pack Page Put Read Readln Reset Rewrite Unpack Write Writeln 标准文件Input Output Pascal数据类型 Pascal 提供了丰富的数据类型，在这里主要介绍整型、实型、字符型和布尔型四种常用的数据类型。 1.整型 一个整型数据用来存放整数。Pascal支持五种预定义整型，它们是shortint（短整型）、integer （整型）、longint（长整型）、byte（字节型）和word（字类型）。每一种类型相应的整数取值范围以及所占用的内存字节数见下表： 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程序应该有以下的部分组成）： 2.1 Pascal程序基本组成 例1.1计算半径为R的圆面积S program Area; {程序首部} {已知半径求圆的面积} const pi=3.14159; {说明部分——数据描述} var s,r:real; begin{执行部分} readln(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程序所必须有的。紧跟end之后的句号表示执行部分的结束，也表示整个程序的结束。此后的任何语句都无效。Turbo Pascal规定紧随end之前出现的分号允许省略。 (3)一个完全的Pascal程序结构 program 程序名； uses 已知单元说明； label 标号说明； const 常量说明； type 类型说明； var 变量说明； function 函数说明； procedure 过程说明； begin 语句； 语句； 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 的启动 《Delphi 语言基础》习题 一、填空 1. Delphi 应用程序中项目文件的扩展名是 。 2. Delphi 中与窗体文件对应的文件是单元文件，其最常用的文件扩展名是 *. 。 3. 在Delphi 集成开发环境中，如果想要直接设置或者修改对象的属性，可以通过对象查 看器（Object Inspector ）中的 窗口直接进行设置。属性 或 Properties 4. 在Delphi 中新建一个工程后，用户需要保存.pas 文件和 文件。 5. 对象查看器由对象列表、属性选项卡和 三部分组成。 6. 与数学表达式 ab y b a -++2 3)sin(对应的Object Pascal 表达式是 。 7. 与数学表达式 a xy a b a +++22)(cos 对应的Object Pascal 表达式是 。 8. 结构化程序设计的基本原则是取消goto 语句，程序中仅采用顺序、 和循环三 种控制结构。 9. 与数学表达式 ) sin()(sin 222y x y x ++对应的Object Pascal 表达式是 。 10. 结构化程序设计要求程序中仅采用顺序、分支和循环三种控制结构，其中每种结构只能 有 个入口和一个出口。 11. 与数学表达式 a x a by a ++22)(sin 对应的Object Pascal 表达式是 。 12. 与数学表达式 53)(cos 2++x b a 对应的Object Pascal 表达式是 。 13. 对于下面的条件表达式： （（3 <= x ）AND （x < 0）） OR （x in [1..10]） 当x = 3 时， 该表达式的值为 。True 14. 与数学表达式 ab y b a ++3)(sin 2对应的Object Pascal 表达式是 。 15. 表达式Trunc （12345.6789*100+0.5）/100的值为 。 12345.68 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程序基本组成与符号 hb007 发表于 2006-3-22 8:55:50 一、Pascal程序基本组成 例1计算半径为r的圆的周长C和面积S。 上述程序第一行称为程序首部。用花括号(注释可以用{ }或（* *）来表示)括起来的内容是注释，注释除了给人看，增加程序的可读性外，对程序编译和运行不起作用。一个程序可以包含多个出现在不同处注释，亦可无注释。程序第二行是变量说明。程序从begin到end都是执行（语句）部分。 (1)程序首部 例1的第一行称为程序首部。program是保留字，接着是程序名（由你依据“标示符”规则自行定义），最后以分号表示程序首部结束，下面是程序主体的开始。程序首部在一个Turbo Pascal（仅在Turbo Pasca l中有效）程序中并非必须出现，它是可选的。写上它仅起了文档作用。因此，时间有限的情况下，如果用Turbo Pascal编程完全可以省略程序首部。 (2)程序体 ①说明部分 说明部分用于定义和说明程序中用到的数据，由单元说明、标号说明、常量说明、类型说明、变量说明、函数或过程说明组成，并且这些数据的说明次序必须按照以上次序。但是一个简单的Turbo Pascal程序也可以不包含说明部分，也就是说说明部分是可选的。 ②执行部分 执行部分描述了程序要执行的操作。它必须以一个Turbo Pascal保留字begin开始，以保留字end后跟句点结束，其间是一些执行具体操作的语句，并且以分号作为语句之间的分隔符。begin和end必须成对出现，这是一个Turbo Pascal程序所必须有的。紧跟end之后的句号表示执行 部分的结束，也表示整个程序的结束。此后的任何语句都无效。Turbo Pascal规定紧随end之前出现的分号允许省略。 (3)一个完全的Pascal程序结构 program 程序名； uses 已知单元说明； label 标号说明； const 常量说明； type 类型说明； var 变量说明； function 函数说明； procedure 过程说明； begin 语句； 语句； …… 语句 end. 二、Pascal字符与符号 1、保留字(关键字) 所谓保留字是指在Pascal语言中具有特定的含义，你必须了解它的含义，以便于正确的使用，否则会造成错误。Turbo Pascal语言一共有5 0多个。下面是Pascal语言的保留字： Pascal语言的语法分析器 基于文档最下面词法分析器写的#include f.getline(ch1,100); stringstreamss(ch1); ss>>ch>>cla>>ch>> no >>ch>>str; } boolisprogram(); bool variable(); bool constant(); bool factor(); bool term(); bool arithmetic(); bool assignment(); bool relation(); bool condition(); bool repeat(); bool complex(); bool statement(); boolstatementlist(); bool block(); bool judge(); int main(){ f.open("out.txt",ios::in); bool flag = false; num = 0; if(judge()){ flag = true; } if(flag){//判断是不是程序 cout<< "It is a program!" < Turbo Pascal图形编程教程Pascal是一款有很强图形功能的开发工具，它可以编制各种图形窗口,并且听说还支持鼠标.但是时过境迁，在vb,vc一统天下的今天，关于Pascal图形操作的书已经像古董一样难于寻找了，我现在将Tp 7.0的Help文件中的一些有关图形操作的过程与函数整理了一下，并自己写了一些例子,加入了一些自己的看法,便得到了这篇教程.其中如有错误，望各位不吝赐教。阅读之前希望大家做好准备，比如：找一些食品放在跟前，因为你可能因为钻研一个函数而耗费大量的时间，还有你可能因为初始化无法完成而大动肝火。 第一章使用Pascal进行图形操作前的准备 在 Turbo Pascal 中有一个 CRT 单元及一个 GRAPH 单元，简单的说 crt 单元是为了实现字符的显示与处理，另外的那个称为 GRAPH 单元是专门用来处理图形的。我们看到的有关图形的程序往往都要用到。所以若是要在 Turbo Pascal 中实现图形操作，就必须要调用 CRT 单元及 GRAPH 单元。那么怎么样来调用 CRT 及 GRAPH 单元呢？现在线来介绍一下单元调用语句：USES USES的语法： USES 单元表识符，……，单元表识符； 说明： 扩展名为*.TPW是Windows下的单元文件，*.TPU是DOS下的单元文件。 位置：变量说明var之前。 讲到这里，我还是要顺便提一下什么是单元？是这样的：我们在编程序的时候，要用到procedure 或者function ，中文名称一个是过程另一个是函数。做不同的程序时，往往要用到一些相同的过程或者相同的函数。如果统统放到程序中，程序会硕大无比，比例与调试与编译，并且在过去“惜ｋｂ如金”的年代里，这样的程序也很浪费。于是，简单的讲，人们把它们做成“包”－－我们称之为单元。一来，免去很多重复的痛苦，大家共享代码也很简单，另外，很多不愿意让别人看到源程序的人也很乐于如此－－－－这只是我的杜撰。生产pascal 语言的公司也提供一些做好的单元，放在安装盘上方便实用。crt ，graph 即使如此，还有dos ，system 等等。 第二章 Pascal图形模式的初始化及退出 1.初始化 Pascal的图形操作在使用之前必须先进行初始化。如果说你编写图形程序中出现问题，十有八九是卡在这里了。这也是非常令我头疼的问题。用过程 initgraph(GraphDriver,GraphMode,PathToDriver) 其中GraphDriver,GraphMode为整形变量,PathToDriver为字符串变量,GraphDriver为图形驱动器,GraphMode为图形模式,PathToDriver指定的路径名中建筑图形驱动程序(以.BGI为后缀)。initgraph使 用方法见下例: program t001 (input,output); 第七课：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：程序“块”的开始标识符； Pascal语言编译器的设计与实现 我们设计的编译程序涉及到编译五个阶段中的三个，即词法分析器、语法分析器和中间代码生成器。编译程序的输出结果包括词法分析后的二元式序列、变量名表、状态栈分析过程显示及四元式序列程序，整个编译程序分为三部分： (1) 词法分析部分 (2) 语法分析处理及四元式生成部分 (3) 输出显示部分 一．词法分析器设计 于我们规定的程序语句中涉及单词较少，故在词法分析阶段忽略了单词输入错误的检查，而将编译程序的重点放在中间代码生成阶段。词法分析器的功能是输入源程序，输出单词符号。我们规定输出的单词符号格式为如下的二元式：(单词种别，单词自身的值) #define ACC -2 #define sy_if 0 #define sy_then 1 #define sy_else 2 #define sy_while 3 #define sy_begin 4 #define sy_do 5 #define sy_end 6 #define a 7 #define semicolon 8 #define e 9 #define sharp 10 #define S 11 #define L 12 #define tempsy15 #define EA 18 //E and #define EO 19 //E or #define plus 34 #define subtract 35 #define times 36 #define divide 37 #define bexxes 38 #define op_and 39 #define op_or 40 #define op_not 41 #define rop 42 #define lparent 48 #define rparent 49 #define ident 56 #define intconst 57 函数说明 1．读取函数 readline( )、readchar ( ) 词法分析包含从源文件读取字符的操作，但频繁的读文件操作会影响程序执行效率，故实际上是从源程序文件””中读取一行到输入缓冲区，而词法分析过程中每次读取一个字符时则是通过执行 readchar ( )从输入缓冲区获得的；若缓冲区已被读空，则再执行readline( )从中读取下一行至输入缓冲区。 2．扫描函数 scan( ) 扫描函数 scan( )的功能是滤除多余空格并对主要单词进行分析处理，将分析得到的二元式存入二元式结果缓冲区。 3．变量处理 find 变量处理中首先把以字母开头的字母数字串存到spelling[ ]数组中，然后进行识别。识别过程是先让它与保留关键字表中的所有关键字进行匹配，若获得成功则说明它为保留关键字，即将其内码值写入二元式结果缓冲区；否则说明其为变量，这时让它与变量名表中的变量进行匹配），如果成功，则说明该变量已存在并在二元式结果缓Pascal语言编程基础程序
Pascal语言精要
PASCAL语言基础
PASCAL语言_复习题_FXT352064_1112
Pascal语言编译器的设计与实现
Win10使用pascal入门教程fpc
PASCAL语言简介
Pascal上机与函数【教程】
pascal语言基础知识
Pascal基本教程
1-语言基础习题
PASCAL语言函数集
Pascal教程 上机指导
Pascal程序基本组成与符号
PASCAL语法分析
Turbo Pascal图形编程教程
pascal语言语法大全
Pascal语言编译器的设计与实现