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 。