Pascal百题练习

1.测定素数(check.pas/c/cpp)*【描述】输入n个数，测定他们是不是素数【输入格式】两行，第一行为n，第二行有n个数（Xi），数与数之间用空格分开。

（1≤N≤1000）；（1≤Xi≤5000000）【输出格式】一行n个true或false，输出对应的数字是否是素数（TRUE和FALSE之间用空格隔开）【输入样例】59988123【输出样例】FALSE FALSE FALSE TRUE TRUE2.校门外的树(tree.pas/c/cpp)【描述】某校大门外长度为L的马路上有一排树，每两棵相邻的树之间的间隔都是1米。

我们可以把马路看成一个数轴，马路的一端在数轴0的位置，另一端在L 的位置；数轴上的每个整数点，即0，1，2，……，L，都种有一棵树。

由于马路上有一些区域要用来建地铁。

这些区域用它们在数轴上的起始点和终止点表示。

已知任一区域的起始点和终止点的坐标都是整数，区域之间可能有重合的部分。

现在要把这些区域中的树（包括区域端点处的两棵树）移走。

你的任务是计算将这些树都移走后，马路上还有多少棵树。

【输入格式】输入文件tree.in的第一行有两个整数L（1<=L<=10000）和M（1<=M<= 100），L代表马路的长度，M代表区域的数目，L和M之间用一个空格隔开。

接下来的M行每行包含两个不同的整数，用一个空格隔开，表示一个区域的起始点和终止点的坐标。

【输出格式】输出文件tree.out包括一行，这一行只包含一个整数，表示马路上剩余的树的数目。

【样例输入】5003150300100200470471【样例输出】298【数据限制】对于20%的数据，区域之间没有重合的部分；对于其它的数据，区域之间有重合的情况。

3.排队接水（water.pas/c/cpp）【描述】有n个人在一个水龙头前排队接水，假如每个人接水的时间为Ti，请编程找出这n个人排队的一种顺序，使得n个人的平均等待时间最小。

PASCAL练习题PASCAL练习题序号题目难度完成数1计算路程167 2摄氏温度转华氏温度165 3求一元二次方程的根265 4成绩评定266 5商场折扣268 6倒数数列和357 7阶乘和357 8求最大值和最小值362 9菲波拉契数列354 10求素数347 11百钱买百鸡363 12水仙花数362 13计算π的值355 14最大公约数和最小公倍数458 15完数461 16亲密数对455 17奖学金认定259 18计算年龄261 19汽车时速计算353 20猴子吃桃问题454 21验证哥德巴赫猜想435 22钞票兑换344 23成绩评定2225 24聪明的猪414 25插入排序47 26约瑟夫问题516 27不重复的随机数413 28侦察任务310 29猜数游戏218 30因式分解411 31砝码选择34 32电灯开闭36 33追查凶手34 34十进制转二进制315 35分糖216 36贮油点53 37运动会成绩统计45 38等式填空315 39验证尼科彻斯定理410 40回文字符串217 41中缀表达式转后缀表达式57 42二叉树的遍历313 43留学生应会的语言31 44绝对素数20 45互不相同的七位完全平方数30 46求数字的乘积根50 47纯粹素数30 58完全平方数40 49十六进制数转十进制数20 50楼梯的不同走法50 51计数排序30 52厄拉多赛筛法求素数20 53杨辉三角形30 54打印图形20 55扑克分发30 56统计单词个数40 57二叉排序树20 58按比例组数30 59数字三角形40 60最佳字符编码40 1.计算路程【题目描述】从键盘输入速度v和时间t，要求计算路程s。

2.摄氏温度转华氏温度【题目描述】读入摄氏温度c，将它转换成华氏温度f输出，写出程序。

已知：f=9/5*c+32 3.求一元二次方程的根【题目描述】输入a,b,c，求一元二次方程ax2+bx+c=0的根。

pascal语言试题及答案1. Pascal语言的创始人是谁？- A. Dennis Ritchie- B. Bjarne Stroustrup- C. Niklaus Wirth- D. Guido van Rossum答案： C2. 以下哪个选项不是Pascal语言的特性？- A. 结构化编程- B. 强类型- C. 面向对象- D. 编译型语言答案： C3. Pascal语言中，用于声明变量的关键字是什么？- A. var- B. let- C. def- D. declare答案： A4. 在Pascal中，以下哪个运算符用于比较两个变量是否不相等？ - A. =- B. <>- C. ==- D. !=答案： B5. Pascal语言中，以下哪个关键字用于定义函数？- A. function- B. procedure- C. define- D. method答案： A6. 在Pascal中，如何声明一个整型数组？- A. var arr: array[1..10] of integer;- B. var arr: integer[1..10];- C. var arr: integer array[1..10];- D. var arr: integer[10];答案： A7. Pascal语言中，以下哪个语句用于循环执行一段代码？ - A. loop- B. repeat- C. while- D. for答案： D8. 在Pascal中，以下哪个关键字用于定义过程？- A. function- B. procedure- C. subroutine- D. method答案： B9. Pascal语言中，以下哪个运算符用于取模运算？- A. %- B. mod- C. div- D. rem答案： D10. 在Pascal中，以下哪个关键字用于定义一个记录类型？ - A. record- B. struct- C. type- D. class答案： A。

pascal编程基础练习题一、不定项选择和填空题１、下列关于程序语言的叙述，不正确的是（）Ａ、编写机器代码不比编写汇编代码容易Ｂ、高级语言需要编译成目标代码或通过解释器解释后才能被CPU执行Ｃ、同样一段高级语言程序通过不同的编译器可能产生不同的可执行程序Ｄ、汇编代码可被CPU直接运行Ｅ、不同的高级语言语法略有不同２、下列哪一种程序设计语言是解释执行的（）Ａ、PascalＢ、GWBASICＣ、C++Ｄ、FORTRAN３、解释程序的功能是（）Ａ、将高级语言程序转换为目标程序Ｂ、将汇编语言程序转换为目标程序Ｃ、解释执行高级语言程序Ｄ、解释执行汇编语言程序４、下列中没有语法错误的PASCAL程序首都是（）Ａ、PROGRAM A1;Ｂ、PROGRAM A1(0utPut)Ｃ、PROGRAM (Input,OutPut);Ｄ、PROGRAM A1(Input OutPut);５、结构化程序的结构由三种基本结构组成，下面哪个不属于这三种基本结构（）Ａ、顺序结构Ｂ、输入输出结构构Ｃ、分支结构Ｄ、循环结构６、Pascal程序必须包括（）Ａ、程序首部、说明部分、语句部分Ｂ、程序首部、说明部分Ｃ、说明部分、语句部分Ｄ、程序首部、语句部分７、标准Pascal程序说明部分的正确顺序是（）Ａ、LABEL—CONST—V AR—TYPEＢ、V AR—CONST—LABEL—TYPE Ｃ、LABEL—CONST—TYPE—V ARＤ、CONST—V AR—TYPE—LABEL８、下面对Pascal程序组成结构的描述错误的是（）Ａ、程序体可以为空Ｂ、程序的注释部分只能写在程序中一条语句的最后Ｃ、程序首都的参数部分可有可无Ｄ、一个完整的PASCAL程序的主程序只能有一个９、要编写并执行—个PASCAL程序，—般的步骤是（）Ａ、①用编辑软件编写源程序②用PASCAL的编译程序把源程序转换成目标程序③用连接程序把目标程序转换为可执行程序④运行可执行程序Ｂ、①用编辑软件编写源程序②修改和调试源程序③用PASCAL的编译程序把源程序转换成可执行程序④运行可执行程序Ｃ、①用编辑软件编写源程序②用连接程序把源程序转换成可执行程序③试运行可执行程序④修改后再运行可执行程序Ｄ、①用编辑软件编写源程序②用连接程序把源程序转换为目标程序③用PASCAL的编译程序把目标程序转换为可执行程序④运行可执行程序１０、PASCAL源程序中不止确的注释语句是（）Ａ、用一对“{”和“}”括起来的字符串Ｂ、用一对“/*”和“*/”括起来的字符串Ｃ、用—对“(*”和“*)”括起来的字符串Ｄ、A) 或B)１１、以下正确的PASCAL实数是（）Ａ、0.56E2.5Ｂ、2.56E2Ｃ、.318E1Ｄ、34.E5Ｅ、E5Ｆ、3E-5Ｇ、.15Ｈ、15.１２、每个Pascal程序的分程序中都必须包括（）Ａ、变量说明、语句Ｂ、语句Ｃ、类型定义、变量说明、语句Ｄ、常量说明、变量说明、语句１３、下列中合法的Pascal标识符是（）Ａ、Char setＢ、RECORDＣ、AbsＤ、πＥ、A1B2C3 Ｆ、FOR Ｇ、2ab Ｈ、a[1]１４、设a、b、c为整型变量，并有以下程序段Read(a);Readln(b,c);Readln(c,b);Readln(a,b);writeln(a,b,c)若运行时输入：123＜ENTER＞456＜ENTER＞789＜ENTER＞其中＜ENTER＞表示回车符，则输出是（）Ａ、123Ｂ、147Ｃ、784１５、下列表达式中，其值为TRUE的是（）Ａ、150>=150Ｂ、100>150Ｃ、Abs(-200)<>200Ｄ、S ucc('A')<Succ('a')Ｅ、'ab'<'abc'Ｆ、Succ(False)=True Ｇ、0dd(35+1)=FaLse Ｈ、219<> 219１６、有变量说明：V AR i1,i2:Integer;r1,r2:Real;b1,b2:Boolean;设各变量均已赋值，下列中错误的赋值语句是（）Ａ、b2:=Ord(r1>r2)Ｂ、i2:=i1+r1Ｃ、b1:=i1=i2 Ｄ、b1: =b1+b2Ｅ、i2:=i1+i2 DIV i1Ｆ、i1:=i1/i2Ｇ、r2:=3/5*Sqr(r1+r2)Ｈ、r1:=r 2+r1１７、下面一段程序是用（）)语言书写的int funcl (int n){int i,sum=0;for (i = 1;i＜=n;i++)sum+= i*i;return sum;}Ａ、FORTRANＢ、PASCALＣ、CＤ、PROLOGＥ、BASIC１８、设全集E={1，2，3，4，5}，集合A={1,4}，B={l，2, 5}，C={2，4)，则集合(A∩B)∪～C为（）Ａ、空集Ｂ、{1}Ｃ、{3，5}Ｄ、{1，5}Ｅ、{1，3，5}１９、运算17 MOD 4的结果是（）Ａ、7Ｂ、3Ｃ、1Ｄ、4２０、已知a、b、c、d、e、f、g均为整数变量，其值分别为2、4、6、8、10、12、14，若输出结果为2 4681012 14则输出语句应是（）Ａ、Write(a:3,b:3);write(c:3,d:3,e:3);Write(f:3,g:3)Ｂ、Writeln(a:3,b:3);Write(c:3,d:3,e:3);Writeln(f:3,g:3)Ｃ、Writeln(a:3,b:3);Writeln(c:3,d:3,e:3);Writeln;Writeln(f:3,g:3);Ｄ、Write(a:3,b:3);Writeln;Write(c:3);Writeln(f:3,g:3);Write(f:3,g:3)２１、把整数7转换为字符‘7’的表达式是哪一个（）Ａ、Chr(7)-0rd('0')Ｂ、Chr(7-0rd(0))Ｃ、Chr(7+0rd('0'))Ｄ、Chr(7 +0rd(0))２２、下列类型定义中，合法的是（）Ａ、TYPE a=10..10;Ｂ、TYPE b=0..Sqr(10);Ｃ、TYPE c=1.0..10.0;Ｄ、TYPE d=10..5;２３、以下运算符中运算优先级最高的是（）Ａ、＋Ｂ、ORＣ、>=Ｄ、DIV２４、已知有如下说明：V ARa,b:Integer;c,d:Real;下面赋值语句合法的是（）Ａ、c:=a+bＢ、a:=Trunc(c)Ｃ、a:=a+b/cＤ、b:=a div d２５、设有变量说明：V AR s:(C,G,A,J,K);则函数Succ(A)的取值是（）Ａ、GＢ、3Ｃ、JＤ、B２６、表达式True AND NOT Odd(-202)<(7-3<=4)的值是（）Ａ、TrueＢ、FalseＣ、0Ｄ、1２７、下列常量说明中合法的是（）Ａ、CONST color=red..blue;Ｂ、CONST CONST=10*5;Ｃ、CONST x1:=3.9;Ｄ、CONST abc='abc';２８、已知a、b、c、d是同类型简单变量，且都已有互不相同的值，执行下列语句b:=a;a:=c;d:=a;d:=b;后，其值相等的变量是（）Ａ、a,dＢ、a,cＣ、c,bＤ、b,d２９、下面合法的常量是（）Ａ、.25Ｂ、"RED"Ｃ、'%'Ｄ、3E-2.5３０、设a、b、c、d、e均为整型变量，且s=13、b=2、c=10、d=3、e=2，则表达式a-b*c DIV d MOD e的值是：（）Ａ、13Ｂ、-7Ｃ、11Ｄ、0。

1、有一数字如下：65436543654365436543………循环排列，（1）输入一个数字n，输出第n个数字。

如输入3则输出为4，输入1则输出为6。

（2）输入一个数字n,在屏幕上输出如题数字，每行30个数字。

(3)输入一个数字n，输出所有数字4所在的位数。

如输入15，输出4所在的位置，即3 7 11 152、有一字符串如下：EDCBAEDCBAEDCBA……..循环排列，(1)输入一个整数n，输出第n位字符。

如输入3输出为C，输入1则输出为E。

(2)输入一个整数n，在屏幕上输出如题字母，每行30个字母。

(3)输入一个数字n，输出所有1-n范围内字母C所在的位数,场宽4。

如输入15，输出D所在的位置，即2 7 123、输入一字符，如该字符为小写字母，则转换成大写并输出；如该字符为大写字母，则转换成小写并输出，如果输入是数字则将该数字转成整数并输出该整数。

否则输出‟Error‟,即错误。

如输入a则输出为A，如输入为B则输出为b，如输入9则转成整数9并输出。

（提示：‟a‟≤小写字母≤‟z‟，‟A‟≤大写字母≤‟Z‟）4、输入三个数，判断这三个数能否作为边长组成三角形，如果能组成则输出TRUE，不能组成三角形则输出FALSE。

5、输入三个数，按从大到小的顺序输出。

如，输入15 20 16 ，输出为20 16 156、输入一个三位整数，输出一个新三位数，使其百位数最大，个位数最小。

如，输入315，输出531。

7、输入四个整数，输出四个数中的最大值和最小值。

（分两行输出）8、输入一个秒数，转换成小时、分、秒并输出。

如输入4500，输出为1:15:0。

9、有鸡兔同笼，现发现有头30个脚90只，试编程算出鸡兔各多少只并输出。

10、有五个好朋友相聚，第一个朋友带来很多糖块赠送给各位好友，使每人的糖块在原来的基础上增加了一倍，第二个朋友也向各位朋友分发糖块，使每人在已有糖块的基础上又增加了一倍，第三、第四、第五位朋友都照此办理，最终每人刚好都有32块糖，请编程算出原来每位好友各有多少糖块。

Pascal基本类型及表达式练习题姓名：张佳昱序号： 52 得分：一、选择题1、人们把以 A 为硬件基本部件的计算机称为第三代计算机。

A 晶体管B 中小规模集成电路C 大规模集成电路D ROM 和RAM2、新一代计算机最突出的特点是 A 。

A 采用大规模集成电路B 具有智能C 具有超高速D 能理解自然语言3、计算机和其他一切计算工具最本质的区别是 A 。

A 能自动运行B 存储容量大C 高精度和高速度D 具有逻辑判断功能4、计算机用于水电站厂房的设计属于计算机 B 。

A 自动控制B 辅助设计C 数值计算D 人工智能5、第一代计算机主要特征是逻辑部件采用 D 。

A 电子管B 晶体管C 中小规模集成电路D 大规模和超大规模集成电路6、根据计算机所采用的逻辑部件，目前计算机所处的时代是 D 时代。

A 电子管B 晶体管C 集成电路D 超大规模集成电路1、判断下列选项哪几个不是算术表达式（假设变量都已经被定义） AF 。

A） x B） 5+x C） 1.5+sqr(x) D） 5=4.3+0.7E） 100 F） x>y G） 5*sqrt(x)+4*abs(x)*exp(6+x)2、若要交换变量A和B的值，下列正确的语句组是 C 。

A） A:=B;B:=C;C:=A; B） C:=A;A:=B;B:=C;C） A:=B;B:=A; D） C:=A;B:=A;B:=C;3、已知R1，R2是实型变量，A，B是整型变量，下面正确的语句是 C 。

A） R1+1:=R2+A MOD B； B） R2:=R2+1；C） R1:=R2-A/B DIV （A-B）； D） A:=B+1.04、下列语法正确的关系表达式是 A 。

A） 1<x<20 B）’243’>200C） 11.37<=12 D）’A’<’B’ AND ‘C’<’D’5、以下运算符优先级最高的是 C 。

A） <= B） OR C） + D） DIV6、设有说明：CONST M=2；N=4；C1=R；C2=S；请选出值为False的表达式： CEF 。

1、百钱买百鸡问题。

中国古代数学家张丘建在他的《算经》中提出了著名的“百钱买百鸡问题”：鸡翁一，值钱五，鸡母一，值钱三，鸡雏三，值钱一，百钱买百鸡，问翁、母、雏各几何？2、求 (34)2121131388553322111++++++++的前二十项的和。

3、计算......2912211611117141211++++++++当第i 项的值<10-4时结束。

4、求s n =a+aa+aaa+aaaa+…+aa...aaa(n 个a)，其中a 是一个由随机数产生的1~9(包括1、9)之间的一个正整数，n 是一个由随机数产生的5~10(包括5、10)之间的一个数。

显示a 和n ，并求s n 。

5、输出下列图形。

1222333334444444555555555666666666667777777777777888888888888888999999999999999996、输出下列图形。

AAAAAAAAAAAAAAAAAABBBBBBBBBBBBBBBBCCCCCCCCCCCCCCDDDDDDDDDDDDEEEEEEEEEEFFFFFFFFGGGGGGHHHHII7、我国有13亿人口，按人口年增长0.8%计算，多少年后我国人口超过26亿。

8、键入一个字符串（串长不超过20），输出相应字符组成的等边三角形。

如：输入：“CHINA ”输出：9、数的统计。

一个数“含有0”是指这个数至少有某一位数字为0。

小明对那些“含有0”的自然数很感兴趣，想挑出来进行研究。

那么，1～N 当中“含有0”的自然数有多少个？小明想在1秒钟内得到答案，你能帮他做到吗？输入：N （1≤N ≤100000000）样例输入：105输出：1510、整数排序。

对给定的N （1≤N ≤100）个1到50之间的正整数用一个数组存放后进行从小到大排序，然后再将其中重复出现的数进行删除，只保留一个，使得剩下的数中任何两个都不相同且连续存储在原数组中。

1、输出如下图形。

2、编写一程序，验证角谷猜想。

所谓的角谷猜想是："对于任意大于1的自然数n，若n为奇数，则将n变为3*n+1，否则将n变为n的一半。

经过若干次这样的变换，一定会使n变为1。

"Program ex_2(input,output);3、有一堆100多个的零件，若三个三个数，剩二个；若五个五个数，剩三个；若七个七个数，剩五个。

请你编一个程序计算出这堆零件至少是多少个？4、一辆快车和一辆慢车开往同一地点，快车票价为18元，慢车票价为13. 5元，共售出400张，共计5940元，求快车票和慢车票各多少张?.5、求出能被5整除的所有四位数的和。

Program ex_5(input,output);vari,h:longint;beginfor i:=1005 to 9995 dobeginif i mod 5=0 then inc(h,i);end;write(h);end.6、在下面式子中的二个□内填入一个合适的同样的数字，使等式成立。

□3*6528=3□*8256 这个数为47、有一个三位数，它的各位数字之和的11倍恰好等于自身，请编程求出这个三位数。

8、在自然数中，如果一个三位数等于自身各位数字之立方和，则这个三位数就称为是水仙花数。

如:153=13+53+33，所以153是一个水仙花数。

求所有的水仙花数。

Program ex_8(input,output);vara,b,c,d:integer;beginfor d:=100 to 999 do dbegina:=d div 100;b:=d div 10 mod 10 ;c:=d-a*100-b*10;if a*a*a+b*b*b+c*c*c=d then write(d:6);end;end.9、编程序打印出下列图案：(1)平行四边形(2)等腰三解形(3)菱形****** * ******* *** ********* ***** *********** ******* ********* ********* *Program ex9_1(input,output);BeginWriteln(’ * * * * * ’:10);Writeln(’ * * * * * ’:9);Writeln(’ * * * * * ’;8);End,10、编程打印出如下图案：122233333444444455555555511、有三种明信片:第一种每套一张，售价2元；第二种每套一张，售价4元；第三种每套9张，售价2元。

小学组Pascal语言试题（一）一、单项选择。

（每小题1.5分，共15分）1.下面是某同学定义的变量名，合符Pascal语法的是（）。

A．integer B. x1 B. 2x D. x*y2．假定所有变量均为实型，算式的正确Pascal表达式是（）。

A.(u+a)/((b-v)/(c-w)+u*d)B. (u+a)/(b-v)/(c-w)+u*dC. u+a/b-v/c-w+u*dD. (u+a)/((b-v/c-w)+u*d)3. 有如下的变量说明var x,y,z:integer;a:real;则下面的赋值语句中正确的是（）A．x=y div 7; B. x:=y/z; C. a:=x*y; D. x+y:=z;4. 设a,b,c,d均为整型变量，对于下面的程序段a:=0;b:=0;readln(a,b);read(c);readln(d);若从键盘输入：12 3 45 6 7其中，表示“回车”，则a,b,c,d中的数应为下面哪一组？（）A.1,2,3,4B.1,2,3,5C.1,2,5,6D.1,0,3,55. 设n为整型变量，且n:=1997，下面能将n的十位数字（即右边第2位数字）分离出来的语句是（）。

A. d:=n mod 100B. d:=n div 100;C. d:=n div 100 mod 10;D. d:=n mod 100 div 106.“判断一个整数x是另一整数y的整数倍”的pascal表达式是（）。

A．x=2*y B. x/y=2 C. x mod y=0 D. x mod y=17. Pascal表达式“2008 div 5 mod -2”的结果是：A. 8B. -1C. 0D. 18. 设实型变量pi已赋值为3.14159，下面不能输出3.14的语句是( )。

A. write(pi:0:2);B. writeln(pi:1:2);C. write(pi:2:2);D. writeln(pi:2);9．下列程序段的输出结果是（）。

1、扫描识别SCAN.BAS/SCAN.PAS/SCAN.C/SCAN.CPP【问题描述】“扫描识别”你知道是怎么回事吧？它的意思就是：先用扫描仪把纸上的文字扫描成一个图片，再用识别软件把那个图片中的文字识别出来，最后生成一个文本文件。

这对于需要把大量的纸稿录入成电子文档的人来说，当然是非常方便的。

以现有的技术，扫描效果是比较理想的，但识别效果还不十分另人满意，经常会出现错误，尤其是当两个字形状特别接近的时候，而且，这种错误是很难用眼睛看出来的。

我们的纸稿上有一个数字串，识别之后得到的字符串保存在输入文件中，这个串可能有识别错误。

已知，可能出现的错误有如下几种：1、把数字0错误地识别为大写字母O；2、把数字1错误地识别为小写字母l；3、把数字2错误地识别为大写字母Z；4、把数字5错误地识别为大写字母S；5、把数字6错误地识别为小写字母b；6、把数字8错误地识别为大写字母B；7、把数字9错误地识别为小写字母q。

你的改正方案是：如果字符串中出现了上述字母，请替换为原来的数字。

最后把改正之后的数字串输出。

【输入文件】文件名：SCAN.IN文件中只有一个字符串，表示识别后得到的字符串。

串的长度不超过100。

【输出文件】文件名：SCAN.OUT文件中只有一个数字串，表示改正后的数字串。

【样例输入】321lO88BqS【样例输出】32110888952、寻找2的幂CLOSE.BAS/CLOSE.PAS/CLOSE.C/CLOSE.CPP【问题描述】数学上把叫2的幂，如4、8、16 32等。

给定一个整数，请输出距离它最近的那个2的幂是多少。

如果有两个距离相同，输出那个小的。

【输入文件】文件名：CLOSE.IN文件中只有一个整数。

数据范围<=1000000000000000【输出文件】文件名：CLOSE.OUT文件中只有一个整数，表示距离最近的那个2的幂。

【样例输入】17【样例输出】163、循环的零（3.pas）请编程求1×2×3×……×N所得的数末尾有多少个0？（N由键盘输入 N〈10000〉【输入样例】：10【输出样例】：24、小青蛙回来了IAMBACK.BAS/IAMBACK.PAS/IAMBACK.C/IAMBACK.CPP【问题描述】关于小青蛙爬井的故事，你应该早就听过了：井深10尺，小青蛙从井底向上爬，每个白天向上爬3尺，每个晚上又滑下来2尺，然后问你第几天它能爬上来。

说明：本练习题一共10题，均选自正式考试题目，有较高的难度，供给大家参考使用。

有的是需要大家读懂程序，写出程序运行结果；有的是需要大家把程序补充完整；有的是需要大家自己编写程序。

1、program Program1;var a,b,c,d,sum : longint;beginread(a,b,c,d);a := a mod 23;b := b mod 28;c := c mod 33;sum := a * 5544 + b * 14421 + c * 1228 - d;sum := sum + 21252; sum := sum mod 21252;if (sum = 0 ) then sum := 21252;writeln(sum);end.输入：283 102 33 20输出__838___2、program progam1;varu: array [0..3] of integer;a, b, c, x, y, z: integer;beginread(u[0], u[1], u[2], u[3]);a := u[0] + u[1] + u[2] + u[3] - 5;b := u[0] * (u[1] - u[2] div u[3] + 8);c := u[0] * u[1] div u[2] * u[3];x := (a + b + 2) * 3 - u[(c + 3) mod 4];y := (c * 100 - 13) div a div (u[b mod 3] * 5);if((x+y) mod 2 = 0) then z := (a + b + c + x + y) div 2;z := (a + b + c – x - y) * 2;writeln(x + y - z);end.输入：2 5 7 4输出： 263 。

3、varn : longint;function g(k : longint) : longint;beginif k <= 1 then g := kelse g := (2002 * g(k - 1) + 2003 * g(k - 2)) mod 2005;end;beginread(n);writeln(g(n));end.输入：2005输出：34、.Program ex402;constm:array[0..4] of integer=(2,3,5,7,13);var i,j:integer; t: longint; beginfor i:=0 to 4 do begint:=1;for j:=1 to m[i]-1 do t:=t*2;t:=(t*2-1)*t; write (t,' '); end;writeln;end.输出:___33550336 13_5、念数字：编一个“念数字”的程序，它能让计算机完成以下工作：当你输入一个０至99之间的数后，计算机就会用汉字拼音印出这个数的念结束。

问题1【问题】甲乙丙丁戊五个人在运动会上分获百米、二百米、跳高、跳远和铅球冠军，有四个人猜测比赛结果：A说：乙获铅球冠军，丁获跳高冠军。

B说：甲获百米冠军，戊获跳远冠军。

C说：丙获跳远冠军，丁获二百米冠军。

D说：乙获跳高冠军，戊获铅球冠军。

其中每个人都只说对一句，说错一句。

求五人各获哪项冠军。

【算法】用123,4,5分別代表百米、二百米、跳高、跳远和铅球5个项目，用a,b,c,d,e分别代表五人。

如b=3表示乙获跳高冠军。

用多重循环穷举出來。

【答案】甲乙丙丁戊1 2 4 3 5【参考程序】var a,b,c ,d,e:byte;beginfo r a:=l to 5 dofor b:=l to 5 dofor c:=l to 5 dofor d:=lt o 5 do begine :=15-a-b-c-d ;if (ord(b=5)+ord(d=3)=l)and(ord(a =l)+ord(e=4)=l) and(or d(c=4)+ord(d =2)=1) and(ord(b=3)+or d(e=5)=l) an d (a*b*c*d*e =120) thenwriteln('a:：6‘b:；b,'c:',c,'d:',d /e:',e);end;end.问题2【问题】5家工厂的产品在一次评比中分获1 , 2, 3, 4, 5,在公布结果前，己知E 厂产品肯定不是第二、三名，五厂代表猜测评比结果，A厂的代表说：E厂一定能获得第一名。

B厂的代表说：我厂的产品可能获第二名。

C厂的代表说：A厂的产品质量最次。

D厂的代表说：C厂的产品不是最好的。

E厂的代表说：D厂的产品会获得第一名。

公布结果后，证明只有产品获第一名和第二名的两个厂的代表猜对了。

求5个厂产品各获第几名。

【答案】AB C D E5 2 13 4【参考程疗:】v ar a,b,c,d,e :byte;beginfor a:=l to 5 dof or b:=l to 5 dofor c :=1 to 5 dofor d:=l to 5 do be gine:=15-a-b-c-d;and (a*b*c *d*e=120) th enif(ord(e=l)+ord(b=2)+or d(a=5)+ord d=l)=2) and(ord((e=l)and ((a=l)or (a=2)))+ord((b=2)and ((b=l)or (b=2)))+ord((a=5)and ((c=l)or (c=2)))+)and((d=l)or(d=2)))+ord((d=l ) and ((e=l)or (e=2)))=2) the nwriteln('a :*z a/ b:',b / c:\cj d ::d,' e:',e );end;end.问题3逻辑判断\v谁是小偷\a问题3 \a\v谁获冠军？\a问题1 \a\v猜测产品质量评奖\a问题2 \a问题3【问题】有A、B、C、D四名偷窃嫌疑犯，其中一人是小偷，审问中，A说："我不是小偷〃，B说："C是小偷〃，C说：“小偷肯定是D〃，D说："C在冤枉人〃，有三人说真话，一人说假话，问到底谁是小偷？【参考程序】va r thief:char;begi nf or thief:='A ' to D doi >'A')+ord(th ief='C')+ord (thief='D')+ord(thief 3 the n writeln('The Thief is : \thief);end.问题4字母塔【问题】输出由字母组成的“字母塔〃。

Pascal练习题100道1 题目：有1、2、3、4个数字，能组成多少个互不相同且无重复数字的三位数？都是多少？var i,j,a,b,c:integer;beginfor i:=1 to 4 dofor j:=1 to 4 dofor a:=1 to 4 dofor b:=1 to 4 dobeginif (i<>j) and (i<>a) and (i<>b) and (j<>a) and (j<>b) and (a<>b) then writeln(i,j,a,b);end;end.2 题目：企业发放的奖金根据利润提成。

利润(i)低于或等于10万元时，奖金可提10%；利润高于10万元，低于20万元时，低于10万元的部分按10%提成，高于10万元的部分，可可提成7.5%；20万到40万之间时，高于20万元的部分，可提成5%；40万到60万之间时高于40万元的部分，可提成3%；60万到100万之间时，高于60万元的部分，可提成1.5%，高于100万元时，超过100万元的部分按1%提成，从键盘输入当月利润i，求应发放奖金总数？vara:longint;s:real;beginreadln(a);if a<100000 then s:=a*0.1;if a>100000 thenbeginif (a>100000) and (a<=200000) then s:= s + (a-100000)*0.075 + 100000*0.1;if (a>200000) and (a<=400000) then s:=s+(a-200000)*0.05+100000*0.1+100000*0.075;if (a>400000) and (a<=600000) then s:=s+(a-400000)*0.03+100000*0.1+200000*0.05;if (a>600000) and (a<=1000000) thens:=s+(a-600000)*0.015+100000*0.1+200000*0.05+200000*0.03;if (a>1000000) thens:=s+(a-1000000)*0.01+100000*0.1+200000*0.05+200000*0.03+400000*0.015;end;writeln(s:5:2);end.3 题目：一个整数，它加上100后是一个完全平方数，再加上168又是一个完全平方数，请问该数是多少？var i:longint;a,b:real;beginfor i:=1 to 1000000 dobegina:=sqrt(i+100);b:=sqrt(i+268);if ((a*a)=(i+100)) and ((b*b)=(i+268)) then writeln(i);end;end.4 题目：输入某年某月某日，判断这一天是这一年的第几天？var a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a,b,c,d:integer;beginread(a,b,c);a1:=0;a2:=31;a3:=59;a4:=90;a5:=120;a6:=151;a7:=181;a8:=212;a9:=243;a10:=273;a11:=304;a12: =334;if (b=1) then d:=a1 elseif (b=2) then d:=a2 elseif (b=3) then d:=a3 elseif (b=4) then d:=a4 elseif (b=5) then d:=a5 elseif (b=6) then d:=a6 elseif (b=7) then d:=a7 elseif (b=8) then d:=a8 elseif (b=9) then d:=a9 elseif (b=10) then d:=a10 elseif (b=11) then d:=a11 elseif (b=12) then d:=a12;d:=d+c;if (a mod 1000=0) and (c mod 400=0) and (b>3) then d:=d+1;if (a mod 1000<>0) and (c mod 4=0) and (b>3) then d:=d+1;writeln(d);end.5 题目：输入三个整数x,y,z，请把这三个数由小到大输出。

Pascal试卷一、选择题下列各题A)、B)、C)、D)四个选项中，只有一个是正确的，请选出。

(1) 下面是对PASCAL程序组成结构的四条描述，其中错误的是A) PASCAL程序必须有程序首部B) 程序的注释部分只能写在程序中一条语句的最后C) 程序首部的参数部分可有可无D) 一个完整的PASCAL程序的主程序只能有一个(2) 设a，b，c为整型变量，且有a:=5;b:=2，下面能使c的值为1的正确语句是A) c:=(a－2)/b; B) c:=a MOD (b＋2.0); C) c:=a DIV (b＋1); D) c:=(a－2) DIV (b/1);(3) 设有常量定义:CONST a=0;b=22768;下面对常量引用正确的是。

A) Readln(a); B) a:=a－1; C) PROCEDURE p(c:b..a);D) VAR c：a..b;(4) 下面函数值等于FALSE的是。

A) Odd(Trunc(－7.49)) B) Round((Abs(－9.5)))<10C) NOT(TRUE<FALSE) D) Ord(Chr(Pred(8)))>=7(5) 设有说明VAR color:(red,green,yellow,blue);a:Boolean;下面语句正确的是。

A) color:=’green’;B) Writeln(green);C) Writeln(color);D) IF red<blue THEN a:=TRUE;(6) 设n是整型变量，m是如下定义的子界型变量：TYPEmytype=－20..－10;VARm:mytype;下面赋值语句中不正确的是。

A) n:=m B) n:=m＋1.0 C) n:=Abs(m) D) n:=n＋m(7) 下列哪个表达式无语法错误?A) 70<30B) 70>30 AND 70>15 C) 15<30<50 D) 70 NOT 70>20(8) 标准PASCAL程序说明部分的正确顺序是。

Pascal 语言练习题一、Pascal 语言1. Pascal语言规定,程序一律以保留字___________开始,作为程序标志。

5. 结构化程序设计的3种基本结构是_________、_________、_________。

9. 表达式PRED(CHR(ORD(′E′)+1))的值为___________。

11. 将一万分之一写成Pascal数的形式应为___________。

14. Pascal语言的数据类型按其特点可分3大类,即_____________类型,___________类型和___________类型。

15. 将65526.0034写成Pascal数的形式应为___________。

22. 表达式ORD(′6′)>=ORD(6)的值是___________。

二、基本语句和顺序结构1. 请写出把256.0赋给整型变量I的赋值语句是___________。

2. 设I为整型变量,L为布尔型变量(l:boolean),odd函数是判断一个数是否为奇数，如odd(5)=true,语句L:=ODD(I) OR ODD(I+1);执行后L的值为___________。

3. 以下程序的运行结果为___________。

PROGRAMEX(OUTPUT);VARA,B,C,N,SUM:INTEGER;BEGINN:=126;A:=N DIV 100;B:=(N-A*100) DIV 10;C:=N-A*100-B*10;SUM:=A+B+C;WRITELN(′SUM=′,SUM:3)END.4. 有以下程序:PROGRAM P1(input,output);VAR ch:char;BEGINREADLN(ch);writeln(pred(pred(ch)),pred(ch),ch,succ(ch) ,succ(succ(ch)))END.假设输入字母C,则输出为___________。

6. 表达式trunc(-sqrt(sqr(17 MOD 5)*2*(15 DIV 2)+sqr(1／2)))的值是__________。

Pascal练习一1. 工人每工作一小时可得工资80元，求工作130小时的工资。

进入Qpascal，并打入以下程序：１program Wages (input, output);２var h, r, w : integer;３begin４h := 130;５r := 80;６w := h * r;７writeln (w)８end.a)程序中三个变量代表甚么资料？b)将程序编译（Make-Compile）后，执行程序（Run-Go），写下屏幕所看到输出。

c) 如果将行7改为…Total wages = ‟，如下列所示：writeln ( …Total wages = ‟, w )将程序编译（Make-Compile）后，执行程序（Run-Go），写下屏幕所看到输出。

d)试在行６和行７之间加多两程序语句，使程序产生以下的输出。

Total working hours = 130Hourly rate = 80Total wages =10400writeln(…Total working hours= ‟, h);writeln(…Hourly rate= ‟, r);e)用有意义的变量名称，将(d)部份的程序重写。

将程序储存于Ａ磁盘。

Pascal练习二1. 计算某学生在三次考试所得的平均分。

进入Qpascal，并打入以下程序：1 program AverageMark (input, output);2 var Exam1, Exam2, Exam3 : integer;3 begin4 Exam1 := 65;5 Exam2 := 80;6 Exam3 := 72;7 Average := (Exam1 + Exam2 + Exam3) / 3;8 writeln (… The average mark is ‟, Average)9 end.a) 程序中四个变量代表甚么资料？b) i) 执行程序时, 计算机显示器显示出一程序错误讯息, 这讯息是甚么?Unknown Identifier …Average‟ii)程序有甚么错误?在程序说明部分欠缺了变量…Average‟ 的宣告。

PASCAL练习题（3）姓名班级1、下列语法正确的关系表达式是。

（）A. 1<x<20B. ‟243‟>200C. 11.37<=12D. ‟A‟<‟B‟ AND …C‟<‟D‟2、以下运算符优先级最高的是。

（）A. <=B. ORC. +D. DIV3、设有说明：CONST M=2；N=4；C1=R；C2=S；请选出值为False的表达式：（）A. C2=‟S‟B. 2*M+NC. Ord(C1)+1>Ord(C2)D. M MOD N=ME. NOT (C1=C2)F. Pred(Succ(C1))>=C14、若已知A=1.0，B=2.0,下面运行的结果是。

（）PROGRAM TT (INPUT,OUTPUT);VAR A,B,C:Real; A. 3.0BEGIN B. 2.0Readln(A,B); C. 1.0If A>B then D. –1.0Writeln(A);ElseC:=B-A;Writeln(C);End.5、当X在5<X<=21和60<=X AND <80范围内时Y为True，否则Y为False的表达式是。

（）A． If (x>5) And (x<=21) Or (x>=60) And (x<80) Then Y:=True Else Y:=False;B. If (x>5) Or (x<=21) Or (x>=60) Or (x<80) Then Y:=True Else Y:=False;C. If (x>5) And (x<=21) And (x>=60) And (x<80) Then Y:=True Else Y:=False;D. If x>5 And x<=21 Or x>=60 And x<80 Then Y:=True Else Y:=False;6、分析下面程序段，执行后所得到的输出是。

Pascal练习题一、条件语句练习1、某车站行李托运收费标准是：30公斤或30公斤以下，收费每公斤2.5元，超过30公斤的行李，按每公斤3.5元收费。

试编程序，从键盘输入行李重量，输出托运费。

2、编写一个程序，输入三个整数，按从大到小的顺序打印出来。

3、读入一个字母，如果它在字母表的前半部，则输出其后继的字母，如果它在字母表的后半部，则输出其前趋的字母。

4、输入三个数，判断以这三个数为边能否组成一个三角形，若不能，则给出信息，若能，则输出其特征（等边、等腰、直角）和三角形的面积。

二、循环练习一0、在你前面有一个长长的阶梯，如果你每步跨2阶，那么最后剩1 阶；如果你每步跨3阶，那么最后剩2 阶；如果你每步跨5阶，那么最后剩4 阶；如果你每步跨6阶，那么最后剩5 阶；如果你每步跨7阶，那么正好走完，一阶不剩，问你这条阶梯最少有多少阶？1、计算S=1-1/2+1/3-1/4+1/5+……+1/99的值。

2、獐十八（斤），兔三斤，鸳鸯二两五不动秤，九十九只一百斤，獐、兔、鸳鸯各多少？3、Armstrong数是指一个n位自然数，其各位数字之n次幂的和等于该数。

求出所有三位数的Armstrong数。

如153=13+53+33。

4、有一个四位数①它是一个完全平方数②千位数和百位数相等，十位数和个位数相等。

求这个四位数。

5、有N盏灯放在一排，从1到N依次编号，有N个人也从1到N依次编号，第一个人将灯全部打开，第二个人将凡是2的倍数的灯全部关闭，第三个人将凡是3的倍数的灯作相反处理，第4、5、……、N个人都把自己编号的倍数的灯作相反处理。

问第N个人走过后，哪些灯是开着的？(要求不用数组)6、小猴子摘了一堆桃，第一天吃了一半，还嫌不过瘾，又多吃了一个；第二天又将剩下的桃子吃了一半加一个；以后天天如此，到第十天，小猴一看，只剩一个桃子了。

问最初有多少个桃子。

7、卖金鱼的人将缸里的金鱼分五次全部卖出:第一次卖出全部金鱼的二分之一加二分之一条,第二次卖出剩余金鱼的三分之一加三分之一条,第三次卖出剩余金鱼的四分之一加四分之一条,第四次卖出剩余金鱼的五分之一加五分之一条,现还剩下11条金鱼,问这渔缸里原有多少条金鱼?三、循环练习二1、有A、B、C三个实习生采集到一块矿样，分别对它判断如下：A说：这种矿不是铁，也不是铜；B说：这种矿不是铁，是锡；C说：这种矿不是锡，是铁；经鉴定得知，该矿样是铜、铁、锡中的一种，且三人中，有一人两个判断都正确，另一人的两个判断都错，第三人的判断一对一错，指出是什么矿石，三人判断的对错情况。