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的根。

2015年2月慈溪青少年宫寒假班期末上机竞赛试题说明：1．严格按题目要求的输入、输出格式读写数据，否则不得分。

2．请在D盘根目录下建立以自己考号命名的文件夹，并把需要提交的文件(即每一题的源文件和编译后的可执行文件)保存在此文件夹内。

3．竞赛结束后速离开考场，不要关机。

第一题：得分计算器(t1.pas)【问题描述】学校举行校园歌曲演唱赛，共设7个评委，去掉一个最高分，去掉一个最低分，其余评委的平均分即为选手的最终得分。

试编程，输入7个评委的分数后，输出选手的最终得分。

(顶格输出，保留一位小数)【输入文件】输入文件为t1.in，共1行，输入7个评委的分数。

【输出文件】输出文件为t1.out，输出文件只有1行，即为此选手的最终得分。

【样例输入】8 6 7.5 5 8.5 9 7【样例输出】7.4第二题：圣经数(t2.pas)【问题描述】人们把l 5 3叫做“圣经数”，因为1 5 3具有一个有趣的性质：任写一个3的倍数，把各位数字的立方(一个数的立方=三个该数相乘的结果，如53=5*5*5=125)相加，得出和，再把和的各位数字立方相加，如此反复进行，最后则必然出现l 5 3。

例如：2 4是3的倍数，按照上述规则，进行变换的过程是：24→23+43→72→73+23→351→3 3+5 3+13→153经过3次变换，153出现了!请编一程序，输入某一3的倍数，输出变换成153所需要的次数。

【输入文件】输入文件为t2.in，从文件的第一行读入某一3的倍数。

【输出文件】输出文件为t2.out，输出文件只有一行，即为变换成153所需要的次数。

【样例输入】12【样例输出】5第三题：一万天纪念日(t3.pas)【问题描述】“一万天以后的我”征文活动即将开始。

小马的同学都想知道自己出生后第一万天纪念日的日期(出生日算第0天)。

同学们的生日为YY年MM月DD日，小马希望编一程序，输入某同学的生日YY，MM，DD后，即可输出一万天纪念日日期。

PASCAL程序设计语言基础一、选择题1、PASCAL程序的执行部分是_______。

A、程序体B、语句C、程序说明部分和语句部分D、整个程序2、标准PASCAL程序说明部分的正确顺序是________。

A、label-->const-->var-->typeB、var-->const-->label-->typeC、label-->const-->type-->varD、const-->var-->type-->label3、下列______是合法的标识符。

A、A23456B、X*YC、BEGIND、H(X)4、下列______是非法的标识符。

A、A17B、A_17C、3XD、P5Q5、下列_____不是保留字。

A、newB、programC、divD、var6、下面_______是PASCAL数。

A、73e4B、-e4C、36.74-e6D、1,742,2587、下面________是实数。

A、90B、0.0C、‘0’D、08、下面有效的PASCAL字符型数据是________。

A、‘This isB、6C、YD、''''9、下列常量定义中正确的是______。

A、const d=40 or d=100;B、const s:0.5;C、const s=2.15;D、const s:=(2>5);10、下列变量说明中，不合法的是______。

A、var a=real;B、var r:real;C、var red:integer;D、var i1,i2:integer;11、下列函数值是整型的是______。

A、CHR(23)B、ORD(FALSE)C、SUCC(FALSE)D、ODD(98)12、下列函数值不可能是布尔类型的是_______。

A、ODD(X)B、ORD(X)C、PRED(X)D、SUCC(X)13、设x是实型变量，下列表达式能将x四舍五入后保留两位小数的是______。

2016暑期上机练习(一)1．数字统计(two.pas/c/cpp)【问题描述】请统计某个给定范围[L, R]的所有整数中，数字2 出现的次数。

比如给定范围[2, 22]，数字2 在数2中出现了1次，在数12中出现1 次，在数20 中出现1 次，在数21 中出现 1 次，在数22 中出现2 次，所以数字2 在该范围内一共出现了6次。

【输入】输入文件名为two.in。

输入共1 行，为两个正整数L 和R，之间用一个空格隔开。

【输出】输出文件名为two.out。

输出共1 行，表示数字2 出现的次数。

【数据范围】1 ≤L ≤R≤10000。

2.接水问题(water.pas/c/cpp)【问题描述】学校里有一个水房，水房里一共装有m 个龙头可供同学们打开水，每个龙头每秒钟的供水量相等，均为1。

现在有n 名同学准备接水，他们的初始接水顺序已经确定。

将这些同学按接水顺序从1到n 编号，i号同学的接水量为w i。

接水开始时，1 到m号同学各占一个水龙头，并同时打开水龙头接水。

当其中某名同学j 完成其接水量要求w j后，下一名排队等候接水的同学k马上接替j 同学的位置开始接水。

这个换人的过程是瞬间完成的，且没有任何水的浪费。

即j 同学第x 秒结束时完成接水，则k 同学第x+1 秒立刻开始接水。

若当前接水人数n’不足m，则只有n’个龙头供水，其它m−n’个龙头关闭。

现在给出n名同学的接水量，按照上述接水规则，问所有同学都接完水需要多少秒。

【输入】输入文件名为water.in。

第 1 行2 个整数n 和m，用一个空格隔开，分别表示接水人数和龙头个数。

第 2 行n 个整数w1、w2、……、wn，每两个整数之间用一个空格隔开，wi表示i 号同学的接水量。

【输出】输出文件名为water.out。

输出只有一行，1 个整数，表示接水所需的总时间。

【输入输出样例1解释】第 1 秒，3 人接水。

第 1秒结束时，1、2、3 号同学每人的已接水量为 1，3 号同学接完水，4 号同学接替 3 号同学开始接水。

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语言考试及答案一、选择题（每题2分，共20分）1. Pascal语言中，以下哪个是合法的变量名？A. 2variableB. variable2C. _variableD. variable-2答案：B2. 在Pascal语言中，以下哪个是正确的字符常量？A. 'A'B. "A"C. '123'D. "123"答案：A3. Pascal语言中，以下哪个是正确的整型常量？A. 123B. 123.0C. 123.5D. 0x1A答案：A4. Pascal语言中，以下哪个是正确的布尔型常量？A. trueB. TrueC. TRUED. 1答案：C5. Pascal语言中，以下哪个是正确的数组声明？A. var a: array [1..10] of integer;B. var a: array [1..10] of int;C. var a: array [10..1] of integer;D. var a: array [1..10] of real;答案：A6. Pascal语言中，以下哪个是正确的函数声明？A. function max(a, b: integer): integer;B. function max(a, b: integer): real;C. function max(a, b: integer): string;D. function max(a, b: integer): boolean;答案：A7. Pascal语言中，以下哪个是正确的过程声明？A. procedure swap(var a, b: integer);B. procedure swap(a, b: integer);C. procedure swap(a, b: integer): integer;D. procedure swap(a, b: integer): real;答案：A8. Pascal语言中，以下哪个是正确的条件语句？A. if a > b then begin a := b; b := a; end;B. if a > b then a := b; b := a;C. if a > b then a := b; b := a; end;D. if a > b then begin a := b else b := a; end;答案：A9. Pascal语言中，以下哪个是正确的循环语句？A. repeat a := a + 1; until a > 10;B. repeat a := a + 1; while a > 10;C. repeat a := a + 1; while a > 10;D. repeat a := a + 1; until a > 10;答案：A10. Pascal语言中，以下哪个是正确的文件操作语句？A. var f: file of integer;B. var f: text;C. var f: file;D. var f: file of real;答案：B二、填空题（每题2分，共20分）1. Pascal语言中，整型常量的范围是________。

pascal语言考试及答案一、选择题（每题2分，共20分）1. Pascal语言中，以下哪个是正确的字符串声明？A. var s: string(10)B. var s: stringC. var s: string[10]D. var s: string(20)答案：B2. 在Pascal语言中，以下哪个是合法的变量名？A. 2variableB. variable2C. _variableD. variable!答案：B3. Pascal语言中，以下哪个是正确的数组声明？A. var arr: array[1..10] of integer;B. var arr: array[10..1] of integer;C. var arr: array[1..10] of real;D. var arr: array[1..10, 1..10] of integer;答案：A4. Pascal语言中，以下哪个是正确的函数声明？A. function sum(a, b: integer): integer;B. function sum(a, b: integer): real;C. function sum(a, b: integer): string;D. function sum(a, b: integer): boolean;答案：A5. Pascal语言中，以下哪个是正确的条件语句？A. if a > b then writeln('a is greater');B. if a > b: writeln('a is greater');C. if a > b then begin writeln('a is greater'); end;D. if a > b then writeln('a is greater') end;答案：C6. Pascal语言中，以下哪个是正确的循环语句？A. repeat writeln('Hello'); until a > b;B. while a > b do writeln('Hello');C. for i := 1 to 10 do writeln('Hello');D. for i := 1 downto 10 do writeln('Hello');答案：C7. Pascal语言中，以下哪个是正确的过程声明？A. procedure print;B. procedure print(a: integer);C. procedure print(a: integer): integer;D. procedure print(a: integer): real;答案：B8. Pascal语言中，以下哪个是正确的枚举类型声明？A. type color = (red, green, blue);B. type color = red, green, blue;C. type color = integer;D. type color = (1, 2, 3);答案：A9. Pascal语言中，以下哪个是正确的集合声明？A. var s: set of 1..10;B. var s: set of integer;C. var s: set of [1..10];D. var s: set of real;答案：A10. Pascal语言中，以下哪个是正确的记录声明？A. type point = record x, y: integer; end;B. type point = record x, y: real; end;C. type point = record x, y: string; end;D. type point = record x, y: boolean; end;答案：A二、填空题（每题2分，共20分）1. Pascal语言中，用于声明整型变量的关键字是________。

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。

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 。