Pascal语言配套练习
）
第一章 初识Pascal 语言
【上机练习】
1. 输入三个数，计算并输出它们的平均值以及三个数的乘积，写出程序。
2. 输入圆的半径R ，求圆的面积和周长。
3. 加法计算器：编程由键盘输入两个整数a 和b ，将它们的和输出到屏幕上。
4. 某梯形的上底、下底和高分别为8，12，9，求该梯形的面积。
( 梯形面积公式为 S=
5. 已知图圆柱体的高为12，底面圆的半径为7，求圆柱体表面积。
6. 进入Fp ，调试以下程序：
program ex1_6;
var
s : string;
begin
write(‘Please input your name ’);
readln(s);
writeln(s,’ is the best.’);
end.
第二章 顺序结构
【上机练习2.4】
1.已知某梯形的上底A=13，下底B=18，高H=9，求它的面积S 。
2.已知某圆的半径R=139，求该圆的周长C 与面积S ？
3.输入长方形的边长a,b ，计算它的面积和周长，输出。
4.读入摄氏温度c ，写程序将它转换成华氏温度f 输出。已知f=9c/5+32
5.输入三个字符，输出每个字符的序号，然后反向输出这三个字符。(求序号用ORD 函数)
6.输入一个三位自然数，把这个数的百位与个位数对调，输出对调后的自然数。
7.键盘输入两个实数，经过取整操作后，将其整数部分交换值后输出。
【上机练习2.7】
1.有三个小朋友甲乙丙。甲有50粒糖果，乙有43粒糖果，丙有13粒糖果。现在他们做一个游戏。从甲开始，将自己的糖分三份，自己留一份，其余两份分别给乙与丙，多余的糖果自己吃掉，然后乙与丙也依次这样做。问最后甲、乙、丙三人各有书多少粒糖果？
2.交换两个变量的值：由键盘输入两个正整数A 和B ，编程交换这两个变量的值。
3.编写程序把一个三位整数反转，例如358反转成853。
4.某车棚存有自行车和三轮车共65辆，它们的轮子数合计为150个，求该棚内存有的自行车和三轮车各是多少辆？
5.五位好朋友相聚。第一位朋友带来了很多糖块赠送给各位朋友，使每人的糖块在各自原有的基础上翻了一倍；接着第二位好友也同样向每人赠送糖块，他同样使每人的糖块在各人已有的数量上翻了一倍；第三、第四、第五位好友都照此办理。经过这样的赠送之后，每人的糖块恰好都为32块。问各位好友原先的糖块数分别是多少?
6.从键盘输入a 、b 、c 求一元二次方程ax 2
+bx+c=0的两个实数根(不考虑无解的情况)。
【上机练习3.2】
1、假设邮局规定寄邮件时若每件重量在1公斤以内(含1公斤)，按每公斤1.5元计算邮费，如果超过1公斤时，其超出部分每公斤加收0.8元。请编程序计算邮件收费。
2、输入三个正整数，若能用这三个数作为边长组成三角形，就计算并输出该三角形的面积，否则输出Can't。(组成三角形的条件为：任意两边之和大于第三边)
3、输入一个三位数的整数，将数字位置重新排列，组成一个尽可大的三位数。例如：输入213，重新排列可得到尽可能大的三位数是321。
4、输入一个整数，打印出它是奇数还是偶数。
5、某服装公司为了推销产品，采取这样的批发销售方案:凡订购超过100套的，每套定价为50元，否则每套价格为80元。编程由键盘输入订购套数，输出应付款的金额数。
6、从键盘读入一个数，判断它的正负。是正数，则输出?+?，是负数，则输出?-?。
7、判断两个数a，b，输出较大数的平方值。
8、某市的士费起步价8元，可以行使3公里。3公里以后，按每公里1.6元计算，输入的士的公里数，请你计算顾客需付费多少元？
【上机练习3.3】
1．输入某学生成绩，根据成绩的好坏输出相应评语。如果成绩在90分以上，输出评语：优秀（outstanding）。如果成绩在60分到90分之间，输出评语：良好（satisfactory）。如果成绩不足60分，输出评语：不及格（unsatisfactory）。
2．输入三角形的三边，判断它是否是直角三角形。
3．给一个不多于三位的正整数，求出它是几位数，并分别打印出各位上的数字。
4．对一批货物征收税金。价格在1万元以上的货物征税5%，在5000元以上，1万元以下的货物征税3%，在1000元以上，5000元以下的货物征税2%，1000元以下的货物免税。编写一程序，读入货物价格，计算并输出税金。
5．输入三角形的三个边，判断它是何类型的三角形（等边DB？等腰DY？一般YB？）。
6．输入三个数，按由大到小顺序打印出来。
7．将字母A、B、C 、D或a、b、c、d对应输出1、2、3、4，其余的字符输出5。
8．输入三个数a，b，c，打印出最大者．
【上机练习3.5】
1．从键盘读入两个数，比较其大小，把大数置于x，小数置于y，请设计该程序。
2．函数的表达式如下：
0 (x<0)
x (0≤x<10)
y= 10 (10≤x<20)
-0.5x+20 (20≤x<40)
-2x+40 (40≤x)
编写程序，当输入x后输出y的值。
【上机练习4.1】
1.计算n！，其中n由键盘输入。
2.计算100之内所有的奇数之和。
3.求菲波拉契数列a0,a1,a2,……a20。a0=0,a1=1,a2=a1+a0,a3=a2+a1,……,
a n=a n-1+a n-2;如0,1,1,2,3,5,8,13,21,……
4.求20个数中的最大值和最小值。
5.求s=1+2+3+4+…+10
6.求s=1+1/2+1/3+…+1/100
7.按字母表的顺序，从字母A到Z顺序打印输出。
8.输入10个数，打印出最大和最小的数。
【上机练习4.2】
1、用WHILE循环完成如下3题：
①求s=1+2+3+4+…+10
②求s=1+1/2+1/3+…+1/100
③求π的值。
已知π/4=1 – 1/3 +1/5 – 1/7 + 1/9 - ……，要求最后一项小于10-6为止。
2、输入任一的自然数A,B,求A,B的最小公倍数。
3、Faibonacci数列前几项为:0,1,1,2,3,5,8,…,其规律是从第三项起,每项均等于前两项之和。求前
30项,并以每行5个数的格式输出。
4、小球从100高处自由落下,着地后又弹回高度的一半再落下。求第20次着地时,小球共通过多少路程?
5、鸡兔同笼,头30,脚90, 求鸡兔各几只？
【上机练习4.3】
1.用REPEAT循环完成如下3题：
①求s=1+2+3+4+…+10
②求s=1+1/2+1/3+…+1/100
③求π的值。
已知π/4=1 – 1/3 +1/5 – 1/7 + 1/9 - ……，要求最后一项小于10-6为止。
2.读一组实数,遇零终止,打印其中正、负数的个数及各自的总和。
3.计算sin（x）=X-X3/3！+X5/5！-X7/7！+……直到最后一项绝对值小于10-7时停止计算，x由键盘输入。
4.用辗转相除法求两个自然数的最大公约数。
5.找出被2、3、5除时余数为1的最小的十个数。
6.将一根长为369cm的钢管截成长为69cm和39cm两种规格的短料。在这两种规格的短料至少各截一根的前提下,如何截才能余料最少。
【上机练习4.4】
1、求s=1!+2!+3!+ (10)
2、求s=1+1/2!+1/3!+…+1/10!
3、求s=11+22+33+..+N N
4、把一张一元钞票换成一分，二分和五分的硬币，每种至少一枚。问有哪几种换法？
5、输入一个整数，若是素数，输出?YES?，否则输出?NO?
6、任给一个自然数n，求出这个自然数不同因数的个数。
如：n=6时，因为1，2，3，6这四个数均是6的因数，故输出为total=4。
7、输入二个正整数，求出它们的最大公约数和最小公倍数。
8、输入一列图形（字母金字塔）
a
a b
a b c
. .
a b c …… y z
9、1-100之间的所有素数（素数是大于1，且除1和它本身外，不能被任何其它整数所整除的整数）。(4.28)
10、哥德巴赫猜想（任何充分大的偶数都可由两个素数之和表示）。将4-100中的所有偶数分别用两个素数之和表示。输出为：
4=2+2
6=3+3
….
100=3+97
11、某人想将手中的一张面值100元的人民币换成10元、5元、2元和1元面值的票子。要求换正好40张，且每种票子至少一张。问：有几种换法？应适当考虑减少重复次数。
12、百鸡问题：一只公鸡值5元，一只母鸡值3元，而1元可买3只小鸡。现有100元钱，想买100只鸡。问可买公鸡、母鸡、小鸡各几只？
13、编写一程序，验证角谷猜想。所谓的角谷猜想是：?对于任意大于1的自然数n，若n为奇数，则将n 变为3*n+1，否则将n变为n的一半。经过若干次这样的变换，一定会使n变为1。?
14、有一堆100多个的零件，若三个三个数，剩二个；若五个五个数，剩三个；若七个七个数，剩五个。请你编一个程序计算出这堆零件至少是多少个？
第五章数组数型
【上机练习5.1】
1、国际象棋盘中，第1格放1粒米，第2格放2粒米，第3格放4粒米，第4格放8粒米，第5格放16
粒米，．．．．．．问：16个格子总共可以放多少粒米？
【分析】第i个格子可放多少粒米：2i–1
2、输出斐波列契数列的前N项（5个1行）
0 1 1 2 3 5 8 13 21 ．．．．．．．．．．
3、输入N个整数，找出最大数所在位置，并将它与第一个数对调位置。
4、将一个数组中的所有元素倒序存放。
【分析】A[1]←→A[N] A[2] ←→A[N-1]…… A[I] ←→A[J]
I 从1开始，每交换1次，I 加1；直到 I = N DIV 2
5、读入n个数，打印其中的最大数及其位置号。
6、有52张朴克牌，使它们全部正面朝上。从第2张牌开始，把凡是2的倍数位置上的牌翻成正面朝下；接着从第3张牌开始，把凡是3的倍数位置上的牌正面朝上的翻成正面朝下，正面朝下的翻成正面朝上；接着从第4张牌开始，把凡是4的倍数位置上的牌按比规律翻转；依此类推，直到第1张要翻的牌是第52张为止。统计最后有几张牌正面朝上，并打印出它们的位置。
7、N只猴子选大王，选举办法如下：从头到尾1、2、3报数，凡报3的退出，余下的从尾到头1、2、3报数，凡报3退出；余下的又从头到尾报数，还是报3的退出；依此类推，当剩下的两只猴子时，取这时报数报1的为王。若想当猴王，请问当初应占据什么位置？
8、围绕着山顶有10个洞，一只狐狸和一只兔子各住一个洞。狐狸总想吃掉兔子。一天兔子对狐狸说：?你想吃我有一个条件，先把洞从1～10编上号，你从10号洞出发，先到1号洞找我；第二次隔1个洞找我，第三次隔2个洞找我，以后依此类推，次数不限。若能找到我，你就可以饱餐一顿。不过在没有找到我以前不能停下来。?狐狸满口答应就开始找了，它从早到晚找了1000次洞，累得昏了过去也没有找到兔子。请问，免子躲在几号洞里？【答案】2，4，7，9
【上机练习5.2】
1、输入一个二维数组，找出其中最小的数，输出它的值以及所在行号和列号。
2、输入M行N列数组，将第I行与第J行元素对调（I，J < M）。
3、输入4×4方阵，分别求两条对角线上元素之和。
4、矩阵的转置：
A: B:
1 2 3 转置为 1 4 7 10
4 5 6 2 5 8 11
7 8 9 3 6 9 12
10 11 12
5、给一维数组输入M个整数，假设M=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
6、建立如下矩阵： 2 3 4 5
3 4 5 6
4 5 6 7
5 6 7 8
注意：一般情况下，给二维数组赋初值，都是找A [ I,J ]与I和J的函数关系，对于任意的A [ I ,J ] =I+J。 FOR I:=1 TO N DO
FOR J:= 1 TO N DO
A [I,J] =I+J；
7、设数组a是有n个元素的整数数组，从中找出最大和子序列。
8、打印杨辉三角形的前10行。
第六章函数与过程
函数课堂练习
1.编程找出由键盘任意输入二个整数中的最大数。
2.编程找出由键盘任意输入三个整数中的最大数。
3.求从键盘任意输入两个自然数的最大约数。
4.求从键盘任意输入三个自然数的最大约数。
5.求从键盘任意输入两个自然数的最小公倍数。
6.用函数求1+2+3……+n的和（n<=100）。
【上机练习6.1】
1.编程求C R K = K！/（R！（K-R）！）（K > R > 0）
2.求正整数2和100之间的完全数。
完全数：因子之和等于它本身的自然数，如6=1+2+3 ；
3.如果一个自然数是素数,且它的数字位置经过对换后仍为素数,则称为绝对素数,例如13。试求出所有二位绝对素数
4.编程求5！+7！+9！+11！的值。
5.哥德巴赫猜想的命题之一是:大于6 的偶数等于两个素数之和。编程将6～100所有偶数表示成两个素数之和。
6.编写程序计算表达式：Y = x2 + SH(x)，SH(x)是双曲正弦函数
【提示】在Fp中没有SH()函数，需要由用户自已定义，由数学知识知：SH(x)=( e x – e –x)/2。
过程课堂练习
1.编程找出由键盘任意输入三个整数中的最大数的过程。
2.输入三个不同的整数，按由小到大排列，用过程编程。
3.用不带参数的过程和带参数的过程分别编写一个程序，实现变量x和y的值相互交换。
4.设计一个过程(数组参数),将数组中的元素从小到大排列。
5.编一过程完成二分查找（假设已有一按升序排列的数组）。
【上机练习6.2】
1.输入自然数n，求前n个合数（非素数），其素因子仅有2，3，或5。
2.自然数a的因子是指能整除a的所有自然数，但不含a本身。例如12的因子为：1,2,3,4,6。若自然数a的因子之和为b，而且b的因子之和又等于a，则称a,b为一对?亲和数?。求最小的一对亲和数(a<>b)。
3.求前n个自然数的平方和，要求不用乘法。例如：3的平方不用3*3，可用3+3+3。
4.如果一个数从左边读和从右边读都是同一个数，就称为回文数。例如6886就是一个回文数，求出所有的既是回文数又是素数的三位数。
5.任何大于2的自然数都可以写成不超过四个平方数之和。如：8=22＋22；14=12＋22＋32
由键盘输入自然数N（2 < N < 2000），输出其不超过四个平方数之和的表示式。
6.哥德巴赫猜想的扩展：任何一个大于7的奇数总可以分解为三个素数之和。编写程序求7—2000以内所有奇数的分解形式（只需一种分解）。例如：7=2+2+3 ，11=3+3+5， 19=3+3+13 等。
【上机练习6.4】
1、用递归的方法求1+2+3+……+N的值。
2、用递归函数输出斐波那契数列第n项。0,1，1，2，3，5，8，13……
3、输入一个非负整数，输出这个数的倒序数。例如输入123，输出321。
4、用递归算法将数组A中的N个数倒序输出。
5、用递归方法求N个数中的最大数及其位置。
6、用递归算法将一个十进制数X转换成任意进制数M（M<=16）。
7、用递归算法实现二分查找即：有20个已经从小到大排序好的数据，从键盘输入一个数X，用对半查找方法，判断它是否在这20个数中。
Pascal语言编程基础程序
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 语言精要 基本概念：标识符、保留字、常量、变量、运算符、表达式、标准数据类型 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 分别用不相同的名字
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语言_复习题_FXT352064_1112
《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语言编译器的设计与实现
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
PASCAL语言简介
第一个程序 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（字类型）。每一种类型相应的整数取值范围以及所占用的内存字节数见下表：
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 语句； 语句；
1-语言基础习题
《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语言函数集
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程序基本组成与符号 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语法分析
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!" < 第七课：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语言概述与预备知识 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) 第一章 PASCAL语言基础 (1) 第一节程序的组成与上机调试运行 (2) 第二节常量、变量与数据类型 (3) 第三节表达式与标准函数 (6) 第四节赋值语句、输入与输出语句 (9) 习题 (12) 第二章程序的三种基本结构 (15) 第一节顺序结构 (15) 第二节选择结构 (15) 第三节循环结构 (17) 习题 (20) 第三章数组 (22) 第一节一维数组 (22) 第二节二维数组及应用 (25) 习题 (26) 第四章字符与字符串操作 (29) 第一节字符和字符数组 (29) 第二节字符串变量 (29) 第三节字符串应用举例 (31) 习题 (33) 第五章函数与过程 (35) 第一节自定义函数 (35) 第二节自定义过程 (38) 第四节递归 (42) 第五节递归与回溯 (45) 习题 (50) 第一部分 PASCAL语言程序设计 第一章 PASCAL语言基础 Pascal语言是瑞士苏黎士工科大学的Niklans Wirth（沃思）1971年发表的，是为了纪念17世纪法国著名哲学和数学研究者Blaisc Pascal而将它命名为Pascal程序设计语言。Pascal语言是信息学奥赛中普遍使用的程序设计语言。 第一节程序的组成与上机调试运行 一、程序的组成 我们先看一道例题。 例1-1 输入两个整数a和b，计算a和b的和（a+b）。 【参考程序】 program a1(input,output); //程序首部 var a,b,c:integer; //程序说明部分，a,b,c被说明为整型变量 begin //程序执行部分，下面是程序的内容 write('a='); //在屏幕上输出一个字符串“a=”，输出完后不换行 read(a); //从键盘输入一个数值赋给变量a write('b='); //在屏幕上输出一个字符串“b=”，输出完后不换行 read(b); //从键盘输入一个数值赋给变量b c:=a+b; //计算a+b的和，并将这个和赋值给变量c writeln(a,'+',b,'=',c); //输出a+b=c的等式，输出完后换行 end. //程序结束 【样例输入】 a=10 b=30 【样例输出】 10+30=40 由上可以看出，一个Pascal程序由以下三部分组成： （1）由Program 引导的一行是Pascal程序的首部。 程序首部指出了源程序的名称，是由用户自己给出的，该例子称为a1。程序名后用括号括住的两个参数input与output，通常表示程序运行中的标准输入和输出文件，程序首部以分号结束。 （2）Pascal程序的第二部分是说明部分。 说明部分要求列出程序中引用的全部常量、变量、转移标号、类型、过程和函数的有关说明。若变量c在说明部分没有说明，后边的语句c:=a+b在执行时；翻译软件便能指出其错误并提醒用户加以改正，程序中每个语句都以分号表示结束。 （3）程序的第三个部分是用BEGIN和END括住的一串语句，称为程序的执行部分。有的书中将说明部分和执行部分合称为程序体。 二、PASCAL语言编辑软件的基本操作 下面我们以Free Pascal 1.10系统为例来学习一下Pascal语言编辑软件的使用。 1.Free Pascal的启动 在运行程序目录下(一般是c:\pp\bin\go32v2)运行启动程序fp.exe，即可启动系统。屏幕上出现如图1-1所示的集成环境。 图1-1 2.Free Pascal系统集成开发环境(IDE)简介 最顶上一行为主菜单，中间蓝色框内为编辑窗口，在编辑窗口内可以进行程序的编辑，最底下一行为提示行，显示出系统中常用命令的快捷键，如将当前编辑窗口中文件存盘的命令快捷键为F2，打开磁盘文件命令F3，等等。 girl873 pascal语言笔试题及答案 楼 2013-01-21 pascal语言笔试题及答案 一、单选题（每小题2分，共60分） 1、在结构化程序设计中所说的程序的三种基本结构是指（）。 a）主函数、函数、过程 b）顺序、选择、循环 c）程序首部、说明部分、语句部分 d） while、repeat、for 2、以下各组运算中运算优先级最低的一组是（）。 a) +，-，or b) *, / c) div, mod, and d) >=, in 3、数学表达式sin(60o)的正确pascal表达式是 ( )。 a) sin(60) b) sin(3.14159*60) c) sin(3.14159*60/180) d) sin(60*3.14159/360) 4、下列表达式中正确的是 ( )。 a) 8/2 mod 2 b) not(1=0) and (32) c) \a\+2 d) 2+false 5、当n为任意正奇数时，值总为true的表达式是( )。 a) n mod 2=０ b) n div 2=1 c) n-(n div 2)=１ d) n-trunc(n/2)*2=1 6、表达式pred(chr(ord(\a \)+4))的值是 ( )。 a) \c \ b) \d c) 69 d) 70 7、下列表达式值为5的是( )。 a) pred(8 div 2) b) abs(round(23/4)) c) succ(trunc(22/(26 mod 7))) d) ((8 mod 5)*3+1) div 3 8、下面变量说明中错误的是（）。 a) var s:set of char; b) var s:set of integer; c) var s:set of 1..100; d) var s:set of (sun,mon,tue,wed,thu,fri,sa t); 9、不能作为for语句循环控制变量的是下列哪种类型变量（）。 a)整型 b) 布尔型 c) 实型 d) 字符型 10、至少被执行一次的循环语句是（）。 a) for语句 b) repeat-until语句 c) while语句 d) for、repeat-until和while语句 11、下面关于for循环不正确的叙述是（）。 A)在循环体中不能改变循环控制变量的值 B)在执行过程中初值和终值不会改变 c)分为递增型和递减型两种 d)循环控制变量不必在程序的说明部分说明 12、设m，n均为整数类型变量，且两者的数值均不大于1000。下面语句 m:=m+n; n:=m-n; m:=m-n;执行后，产生的结果是（）。 a）m，n的值保持不变 b）m，n的值进行了交换 c）m，n的值均为原来m的值 d）m，n的值均为原来n的值 要求： 1．程序的结构 2．了解：常量变量运算符表达式标准数据类型 3．学会安装TP并做简单的操作。 PASCAL基本程序结构和概念 标识符保留字常量变量运算符表达式标准数据类型 例1： 为了明显起见先举一个最简单的PASCAL程序例子： 例2： Program ex11; Begin Writeln(‘Hello World!’); ReadLn; End. [例3]已知一辆自行车的售价是300元，请编程计算a辆自行车的总价是多少？ 解：若总售价用m来表示，则这个问题可分为以下几步处理： ①从键盘输入自行车的数目a； ②用公式m=300*a 计算总售价； ③输出计算结果。 Pascal程序： Program Ex12; {程序首部} Var a,m : integer; {说明部分} Begin {语句部分} Write(‘a=’); ReadLn(a); {输入自行车数目} M := 300*a; {计算总售价} Writeln(‘M=’,m);{输出总售价} ReadLn; {等待输入回车键} End. [例4] 输出两个自然数相除的商和余数。 解:设被除数、除数、商和余数，分别为A，B，C，D，均为变量，且都是整数类型。题中未给出具体的自然数A、B，可采用键盘输入方式。 ①给出提示，从键盘输入a, b； ②显示两数相除的数学形式； ③求出a除以b的商c； ④求出a除以b的余数d； ⑤紧接等式后面输出显示商和余数。 Pascal程序: Program Ex14； Var a,b,c,d : integer； Begin Write('INPUT A，B：')；｛给出提示信息｝ Readln(a，b)；｛输入a，b｝ Writeln；｛输出一空行｝ Write(a，'/'，b，'=')；｛输出等式之后不换行｝ c:=a div b；｛整除运算，取商的整数部分｝ d:=a mod b；｛相除求余运算，取商的余数部分｝ Writeln(C，'…'，d)；{输出后自动换行} Readln {等待输入回车键} End. 例5：从键盘读入4个数据，逆序输出 program pname; const n=4; type ar=array [1..4] of integer; var i:integer; a:ar; begin for i:=1 to n do read(a[i]); readln; for i:=n downto 1 do write(a[i]:4); writeln; end. [例1.6]自然数的立方可以表示为两个整数的平方之差，比如43=102－62，请输出自然数1996的这种表示形式。(这里的43用自乘三次的形式4*4*4表示；102也用自乘二次的形式10*10表示) 解:此题没有现成的计算公式能直接利用，但可以自行推出处理方法或构建适当的运算公式，按着构想的处理方案编排出各步骤。 设这个自然数为N，两个平方数分别为X，Y，将问题表示为求N3=X2—Y2pascal语言语法大全
Pascal语言编译器的设计与实现
Pascal基本教程
PASCAL语言程序设计
pascal语言笔试试题答案
PASCAL基本程序结构和概念