pascal集合练习

1、输入a，b两个变量的值，打印输出a+b的横式与竖式。

2、编写程序，任意输入一个三位正整数，然后倒序输出。

比如输入的是285 ，输出的就该是582。

3、请看图3-2，判断任意一点A（x,y）是否在圆环内。

如果在的值。

提示：首先推导出判别式为2<=x2+y2<=254、某服装店对售货员发放奖金的办法是：日营业额在1000元以下的，只能拿到基本工资，没有奖金；超过1000元的，奖金为超出部分的2％。

编写程序输入营业额，计算并输出奖金。

5、编写程序计算y的值。

Sqrt(a+b)＋sin(a-b) a>0,b>0Y＝ 1 a=0,b=0a2+b2其他6、从键盘输入三个整数，输出最大数max和最小数min。

7、已知三角形的三条边长为a，b，c，求三角形面积。

提示：用海沦公式求三角形面积s=sqrt(p*(p-a)*(p-b)*(p-c)) p=(a+b+c)/28、输入年号、月份，输出该月的天数。

1、3、5、7、8、10、12月为31天，4、6、9、11月为30天，2月平年28天，润年29天。

润年判别式为：（y mod 4=0）and (y mod 100<>0) or (y mod 400=0)9、模拟一个有加、减、乘除运算的简单计算器。

当输入一个实型数，再输入一个运算符，再输入一个实型数后马上输出运算结果。

比如：输入3.5*4.0后程序运行结果应该是14.0。

10、求n！（即1*2*..*n），n由键盘输入。

11、求1-1/2+1/3-1/4…+1/99-1/100的值。

12、利用双重循环编写出打印出右边数字方阵的程序。

1 2 3 4 5 62 3 4 5 6 73 4 5 6 7 85 6 7 8 9 106 7 8 9 10 1113、写程序打印右图。

11 2 11 2 3 2 11 2 3 4 3 2 11 2 3 4 5 4 3 2 11 2 3 4 5 6 5 4 3 2 114、编程打印出右图12 34 5 67 8 9 101112 13 14 1515、打印输入的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.s=1+3+5+7……..+992.s=1+2+2^3+2^5+………….+2^633.s=1-1/2+1/3-1/4+1/5…………….-1/1004.s=1*3*5*7………..*17*195.s=1+2+4+8+1024+20486.s=1*2*3+2*3*4+3*4*5+n(n+1)(n+2)7.s=1!+2!+3! (20)8.有一个整数,如果加上100恰好为某数的平方,如果加上156恰好为另一数的平方,求这个数.9.产生100个0到29之间的随机函数,利用紧凑格式打印出这组值,选出其中的素数,并把这些素数按大小排列。

10、有一个五位数，若在它后面写上一个7，得一个六位数A，若在它前面写上一个7，得一个六位数B，B是A的五倍，编一程序，计算出这个五位数是多少？11、从键盘上输入10个自然数，从中分别计算出十位数是1、2、3、4、5……..9的自然数的个数，打印出来。

12、编一程序，把9个自然1-9随意放到二维数组中，并把这个数组按列的上升顺序排序，显示出排序前、后数组。

如：排序前 5 7 3 1 4 72 1 6 2 5 88 9 4 3 6 913、求从1到100之间的3和7的倍数来，分别算出它们数值的和。

14、找出100-999之间的“水仙花”数，所谓“水仙花”数，是指一个三位数，其各位数字的立方和等于该数本身，例如：153=1^3+5^3+3^3。

15、观察下面的序号和算式，编程填出（）里的数，并把这个算式打印出来。

序号算式11+2+3=623+5+7=1535+8+11=2447+11+15=3359+14+19=42( ) ( )+( )+7959=( )16、用100元钱买100只鸡，母鸡3元一只，小鸡1元3只，公鸡每只5元，问各应买多少只？17、把一元钞票换成一分、二分、五分硬币（每种至少一枚），有哪些种换法？18、编辑打出四位数，ABCD中满足下述关系的数：（ab+cd）(ab+cd)=abcd19、用1、2、3、4……9九个数（不能重复）组成下列式子：（）*（）-（）=96/（）（+（）=（）求出各种可能方案。

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语言试题竞赛时间：2014年10月12日14:30~16:30选手注意：●试题纸共有8页，答题纸共有2页，满分100分。

请在答题纸上作答，写在试题纸上的一律无效。

●不得使用任何电子设备（如计算器、手机、电子词典等）或查阅任何书籍资料。

一、单项选择题（共20题，每题1.5分，共计30分；每题有且仅有一个正确选项）1.以下哪个是面向对象的高级语言（）。

A. 汇编语言B. C++C. FortranD. Basic2.1TB代表的字节数量是（）。

A. 2的10次方B. 2的20次方C. 2的30次方D. 2的40次方3.二进制数00100100和00010101的和是（）。

A. 00101000B. 001010100C. 01000101D. 001110014.以下哪一种设备属于输出设备（）。

A. 扫描仪B. 键盘C. 鼠标D. 打印机5.下列对操作系统功能的描述最为完整的是（）。

A. 负责外设与主机之间的信息交换B. 负责诊断机器的故障C. 控制和管理计算机系统的各种硬件和软件资源的使用D. 将源程序编译成目标程序6.CPU、存储器、I/O设备是通过（）连接起来的。

A. 接口B. 总线C. 控制线D. 系统文件7.断电后会丢失数据的存储器是（）。

A. RAMB. ROMC. 硬盘D. 光盘8.以下哪一种是属于电子邮件收发的协议（）。

A. SMTPB. UDPC. P2PD. FTP9.下列选项中不属于图像格式的是（）。

A. JPEG格式B. TXT格式C. GIF格式D. PNG格式10.链表不具有的特点是（）。

A. 不必事先估计存储空间B. 可随机访问任一元素C. 插入删除不需要移动元素D. 所需空间与线性表长度成正比11.下列各无符号十进制整数中，能用八位二进制表示的数中最大的是（）。

A. 296B. 133C. 256D. 19912.下列几个32位IP地址中，书写错误的是（）。

Pascal基础题100道合集（全）Pascal基础题100道合集(全).txt一个人一盒烟一台电脑过一天一个人一瓶酒一盘蚕豆过一宿。

永远扛不住女人的小脾气，女人永远抵不住男人的花言巧语。

1题目：有1、2、3、4个数字，能组成多少个互不相同且无重复数字的三位数？都是多少？ var i,j,a,b,c:integer; beginfor i:=1 to 4 do for j:=1 to 4 do for a:=1 to 4 do for b:=1 to 4do beginif (i<>j) and (i<>a) and (i<>b) and (j<>a) and (j<>b) and (a<>b) thenwriteln(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 then beginif (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) then s:=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 do begina:=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 else if (b=2) then d:=a2 else if (b=3) then d:=a3else if (b=4) then d:=a4 else if (b=5) then d:=a5 else if (b=6)then d:=a6 else if (b=7) then d:=a7 else if (b=8) then d:=a8else if (b=9) then d:=a9 else if (b=10) then d:=a10 else if (b=11) then d:=a11 else if (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 mod1000<>0) and (c mod 4=0) and (b>3) then d:=d+1; writeln(d); end. 5题目：输入三个整数x,y,z，请把这三个数由小到大输出。

第十九届全国青少年信息学奥林匹克联赛初赛提高组Pascal 语言试题竞赛时间：2013 年10 月13 日14:30~16:30选手注意：●试题纸共有12 页，答题纸共有2 页，满分100 分。

请在答题纸上作答，写在试题纸上的一律无效。

●不得使用任何电子设备（如计算器、手机、电子词典等）或查阅任何书籍资料。

一、单项选择题（共15 题，每题1.5 分，共计22.5 分；每题有且仅有一个正确选项）1. 一个32 位整型变量占用（）个字节。

A. 4B. 8C. 32D. 1282. 二进制数11.01 在十进制下是（）。

A. 3.25B. 4.125C. 6.25D. 11.1253. 下面的故事与（）算法有着异曲同工之妙。

从前有座山，山里有座庙，庙里有个老和尚在给小和尚讲故事：‚从前有座山，山里有座庙，庙里有个老和尚在给小和尚讲故事：‘从前有座山，山里有座庙，庙里有个老和尚给小和尚讲故事....’‛A. 枚举B. 递归C. 贪心D. 分治4. 1948 年，（）将热力学中的熵引入信息通信领域，标志着信息论研究的开端。

A. 冯·诺伊曼（John von Neumann）B. 图灵（Alan Turing）C. 欧拉（Leonhard Euler）D. 克劳德·香农（Claude Shannon）5. 已知一棵二叉树有2013 个节点，则其中至多有（）个节点有2 个子节点。

A. 1006B. 1007C. 1023D. 10246. 在一个无向图中，如果任意两点之间都存在路径相连，则称其为连通图，至少要删去其中的（）条边。

A. 2B. 3C. 4D. 57. 斐波那契数列的定义如下：F1 = 1, F2 = 1, F n = F n – 1 + F n – 2 (n ≥ 3)。

如果用下面的函数计算斐波那契数列的第n 项，则其时间复杂度为（）。

funtion F(n : longint) : longint;beginif n <= 2 thenF := 1elseF := F(n - 1) + F(n - 2);end;A. O(1)B. O(n)C. O(n2)D. O(F n)8. 二叉查找树具有如下性质：每个节点的值都大于其左子树上所有节点的值、小于其右子树上所有节点的值。

成功学校集训队选拔赛试题第二轮1. Cantor表（cantor.pas/c/cpp）【问题描述】现代数学的著名证明之一是Georg Cantor证明了有理数是可枚举的。

他是用下面这一张表来证明这一命题的：我们以Z字形给上表的每一项编号。

第一项是1/1，然后是1/2，2/1，3/1，2/2，…【输入】整数N（1≤N≤10000000）【输出】表中的第N项【样例输入】7【样例输出】1/4- 1 -2. 回文数（huiwen.pas/c/cpp）【问题描述】若一个数（首位不为零）从左向右读与从右向左读都一样，我们就将其称之为回文数。

例如：给定一个10进制数56，将56加56（即把56从右向左读），得到121是一个回文数。

又如：对于10进制数87：STEP1：87+78 = 165 STEP2：165+561 = 726STEP3：726+627 = 1353 STEP4：1353+3531 = 4884在这里的一步是指进行了一次N进制的加法，上例最少用了4步得到回文数4884。

写一个程序，给定一个N（2<=N<=10，N=16）进制数M，求最少经过几步可以得到回文数。

如果在30步以内（包含30步）不可能得到回文数，则输出“Impossible！”【输入】两行，第一行N（2<=N<=10，N=16），表示进制；第二行M。

【输出】一行，STEP=最少的步数【样例输入】87【样例输出】STEP=43. 装箱问题（pack.pas/c/cpp）【问题描述】有一个箱子容量为v(正整数，o≤v≤20000)，同时有n个物品(o≤n≤30)，每个物品有一个体积(正整数)。

要求从n 个物品中，任取若千个装入箱内，使箱子的剩余空间为最小。

【输入】第一行，一个整数，表示箱子容量；第二行，一个整数，表示有n个物品；接下来n- 2 -行，分别表示这n个物品的各自体积。

【输出】一个整数，表示箱子剩余空间。

求值(qiuzhi.pas)输入n （n<=10000）个数，输出n 个数的最大值、最小值和平均值。

【输入文件】qiuzhi.in 。

第一行为n ，第二行有n 个正整数x （x<=10000）,每两个数之间有一个空格。

【输出文件】qiuzhi.out 。

第一行：最大值。

第二行：最小值。

第三行：平均值（小数点后保留3位有效数字）。

【样例输入】：34 5 6【样例输出】：645.000余数(yushu.pas)已知两个正整数A 和B ，其中A 、B 都小于32767,求A/B 的值，精确到小数点后N(1<=N<=200)位。

【输入文件】yushu.in 。

第一行为A 和B ，之间用空格分隔，第二行为N 。

【输出文件】yushu.out 。

一行，为最后的结果。

【样例输入】：10 82【样例输出】：1.25棋盘(qipan.pas)输入三个自然数n,i,j(2<=n<=10,1<=i<=n,1<=j<=n).n 表示有一个n 行n 列的棋盘格子，（i,j ）表示棋盘中格子的位置如：n=4,i=2,j=3表示了棋盘中的第二行第三列的格子，如下图：第一列 第二列 第三列 第四列(2,3)表示该格为第2行第3列。

要求编制一个程序，根据输入的n,i,j 的值，输出与格子(i,j)在同一行、同一列、同一对角线上的所有格子位置。

例如：当n=4,i=2,j=3时，输出的结果是：(2,1)(2,2)(2,3)(2,4) {同一行格子的位置}(1,3)(2,3)(3,3)(4,3) {同一列格子的位置}(1,2)(2,3)(3,4) {左上到右下对角线上的格子位置}(4,1)(3,2)(2,3)(1,4) {左下到右上对角线上的格子位置}第一行 第二行 第三行 第四行【输入文件】qipan.in，一行，n、i、j，三个数分别用空格分隔。

【输出文件】qipan.out，四行，同上例。

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 。

pascal 练习题Pascal练习题Pascal是一种流行的编程语言，被广泛应用于科学计算、算法设计和软件开发等领域。

为了提高编程能力和熟练掌握Pascal语言的特性，练习题是一种非常有效的学习方法。

本文将介绍一些Pascal练习题，并探讨它们的解决方法和应用场景。

一、计算圆的面积和周长编写一个Pascal程序，根据用户输入的半径，计算并输出圆的面积和周长。

这个练习题可以帮助我们熟悉Pascal的基本语法和数学计算。

解决这个问题的关键是理解圆的面积和周长的计算公式，并正确地应用到程序中。

二、查找最大值和最小值给定一个整数数组，编写一个Pascal程序，找出数组中的最大值和最小值，并输出它们。

这个练习题可以帮助我们熟悉Pascal的数组操作和条件判断。

解决这个问题的关键是遍历数组，比较每个元素的值，并使用变量记录最大值和最小值。

三、猜数字游戏编写一个Pascal程序，实现一个猜数字的游戏。

游戏开始时，随机生成一个0到100之间的整数，玩家需要通过输入猜测的数字来猜出正确的答案。

程序会根据玩家的猜测给出提示，直到猜对为止。

这个练习题可以帮助我们熟悉Pascal的随机数生成和条件判断。

解决这个问题的关键是使用随机数生成器生成一个随机数，并与玩家的猜测进行比较。

四、斐波那契数列编写一个Pascal程序，计算并输出斐波那契数列的前N项。

斐波那契数列是一个非常经典的数列，每一项都是前两项的和。

这个练习题可以帮助我们熟悉Pascal的循环和递归。

解决这个问题的关键是使用循环或递归的方式计算数列的每一项，并将结果输出。

五、排序算法给定一个整数数组，编写一个Pascal程序，实现排序算法对数组进行排序，并输出排序后的结果。

常见的排序算法包括冒泡排序、插入排序和快速排序等。

这个练习题可以帮助我们熟悉Pascal的排序算法和数组操作。

解决这个问题的关键是理解排序算法的原理和实现方式，并正确地应用到程序中。

练习题不仅可以帮助我们巩固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、程序代码如下：program exe1 (input ，output) ；varh ， k ： integer ；beginfor h ：＝ 1 to 8 do beginwrite( ' '： 20-h)；for k ：＝ 1 to 2*h-1 do write(' * ')；writeln；end；end.2、编程计算半径为R的圆的面积和周长程序代码如下：Program Exe2； {程序首部 }Const Pi=Var R，S，C: Real； {变量说明部分 }BeginWrite ('R=')； {提示输入半径 }Readln(R)； {输入半径值 }S:=Pi*R*R；｛利用圆面积公式s=Πr2面积｝C:=2*Pi*R；｛利用圆周长公式c=2πr求周长｝Writeln('S='，S)； {输出结果 }Writeln('C='，C)；Readln；｛等待输入回车键｝End.3、编程在屏幕上显示“Hello World!”。

程序代码如下：Program exe3;BeginWriteln( ‘ Hello World!’);Readln;End.4、下面是一道猜数的趣味程序，程序运行后，由计算机随机地产生一个100以内的整数，用户有十次猜数的机会，并且计算机会根据你猜的数给你相应的提示。

程序代码如下：program caishu (input ，output) ；varx，n，k ：integer；beginrandomize；x：＝random( 100) ；repeatwrite('Please input a number(0- 100) : ' ) ；readln( k) ；n：＝n+l;if k=x then writeln( 'You are right ! ')；if k>x then writeln( 'Too big. Please try again!' ) ；if k<x then writeln( 'Too small. Please try again!') ；until (k=x) or (n= 10) ；if ( n=10) and ( k<>x) then writeln( ' You are fail. The number is ：' ，x) ；end.四、练习：工人每工作一小时可得工资80元，求工作130小时的工资。

一、填空题(每空1分，共14分)1 如果希望将参数作为过程处理的结果传递至过程外，那么这种参数应作为（变量参数）。

2 一个PASCAL程序由程序首部与（分程序）两部分组成，以“.”结束。

【解】答案为：分程序。

正确的PASCAL程序结构是：程序首部分程序.3 设有说明var a,b,c,d,e:integer则对于待输入数据12345678执行下列语句后，d=___________。

readln(a,b,d);readln;readln(c,d)【解】第一个读语句读去了2行(第1、2行)第二个读语句读去了1行(第3行)第三个读语句是读第4行上的数据，即：7→C；8→d，因此d=8。

这里要注意readln的作用。

此题的readln若都换成read，情况就不同了。

4 动态变量与静态变量的关键区别在于动态变量_____________。

【解】答案为：不需(在分程序的说明部分)明显说明。

分析：动态变量是无法由说明部分明确说明的，它是随机产生的。

5 程序中的错误一般分为语义错误、_____________与___________三类。

【解】语法错误。

逻辑错误。

分析：语法错误是指程序或其成分(各说明，语句等)不合乎语法，如实在参数表与相应形参表不一致等。

语义错误是指程序或其成份语义有错，如除法的除数为零等。

逻辑错误是指程序未能真实反映算法，或算法本身就有错误。

例如，把a+b错写成a*b等。

6 succ(round(38.5/5))－(ord('D')－ord('A'))mod 4 =______________【解】正确答案为6。

这里要注意表达式的运算顺序以及succ、ord和mod运算的含义。

7 PASCAL语言的标准简单类型是整型、实型、_________与字符型，标准构造类型是_______【解】布尔型(boolean型)正文文件类型(text型)。

此题的标准构造类型容易被忽视，它是用类型标识符text标记的。

（1）把N个数存放在数组a中，当前集合为a中所有数。

（2）把当前集合最中间的数定为标准数K，把a分为两个子集，左边子集S1为小于等于K的数，右边子集S2为大于等于K的数。

这一操作是这样完成的：（A）、设定集合中间的数作为标准数K，设定指针I、J，I指向集合第一个数，J指向集合最后一个数；（B）、把I向右移（I：=I+1），直到找到一个a[I]>=K;（C）、把J向左移（J：=J-1），直到找到一个a[J]<=K，则交换a[I]与a[J]的位置，并把I后移（I：=I+1）；把J前移（J：=J-1）；（D）、重复B、C直到I=J。

（3）依次把S1、S2作为当前集合，以第一个数作为标准数K，重复第2步，直到S1、S2及其产生的子集元素个数为1。

详细过程举例如下：原序：[26 5 37 78 23 89 42 50 16 90]一：[16 5 23] [78 37 89 42 50 26 90]二：[5][16 23][26 37 42][89 50 78 90]三：[5][16][23][26][37 42][50] [89 78 90]四：[5][16][23][26][37 42][50] [78] [89 90]五：[5][16][23][26][37 42][50] [78] [89][ 90]var a :array[1..100] of integer;i,j,x:integer;procedure ss(l,r:integer);var y,i,j,k,h:integer;begini:=l;j:=r;k:=a[(l+r)div 2];while i< j do beginwhile (a[i]<k)and(i<r)do inc(i);while (a[j]>k)and(j>l)do dec(j);if i<=j thenbeginh:=a[i];a[i]:=a[j];a[j]:=h;inc(i);dec(j);end;end;if l<j then ss(l,j);if r>i then ss(i,r);end;beginrandomize;for i:=1 to 10 do a[i]:=random(100);for i:=1 to 10 do write(a[i],' ');ss(1,10);for i:=1 to 10 do write(a[i],' '); end.。

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尺，然后问你第几天它能爬上来。