PASCAL上机练习题

第一章初识Pascal语言

【上机练习】

1. 输入三个数，计算并输出它们的平均值以及三个数的乘积，写出程序。

2. 输入圆的半径R，求圆的面积和周长。

3. 加法计算器：编程由键盘输入两个整数a和b，将它们的和输出到屏幕上。

4. 某梯形的上底、下底和高分别为8，12，9，求该梯形的面积。

5. 已知图圆柱体的高为12，底面圆的半r径为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求一元二次方程ax2+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,……, an=an-1+an-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+..+NN

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 RK = 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个数中。

JAVA练习题含答案-answers to practice 2

Multiple Choice 1)Which operator is used to concatenate two strings? (a)+ (b)– (c)* (d)/ Answer: A (see page 35) 2)Which operator returns the remainder of integer division? (a)% (b)/ (c)* (d)none of the above Answer: A (see page 26) 3)What is the value of the variable c in the statements that follow? String phrase = "Make hay while the sun is shining."; char c = phrase.charAt(10); (a)w (b)h (c)i (d)None of the above Answer: B (see page 40) 4)The escape sequence the represents the new-line character is: (a)\r (b)\t (c)\n (d)\\ Answer: C (see page 43) 5)The syntax that declares a Java named constant named SALES_TAX is: (a)double SALES_TAX = 7.50; (b)public double SALES_TAX = 7.50; (c)public static double SALES_TAX = 7.50; (d)public static final double SALES_TAX = 7.50; Answer: D (see page 47)

第十六届青少年信息学奥林匹克联赛初赛试题(附答案)

第十六届全国青少年信息学奥林匹克联赛初赛试题 （普及组Pascal语言两小时完成） 一、单项选择题（共20题，每题1.5分，共计30分。每题有且仅有一个正确选项。） 1.2E+03表示（）。 A.2.03 B.5 C.8 D.2000 2.一个字节（byte）由（）个二进制组成。 A.8 B.16 C.32 D.以上都有可能 3.以下逻辑表达式的值恒为真的是（）。 A.P∨（┓P∧Q）∨(┓P∧┓Q) B.Q∨（┓P∧Q）∨（P∧┓Q） C.P∨Q∨（P∧┓Q）∨（┓P∧Q） D.P∨┓Q∨（P∧┓Q）∨(┓P∧┓Q) 4.Linux下可执行文件的默认扩展名是()。 A.exe https://www.wendangku.net/doc/55472450.html, C.dll D.以上都不是 5.如果树根算第1层，那么一颗n层的二叉树最多有（）个结点。 A.2n-1 B.2n C.2n+1 D.2n+1 6.提出“存储程序”的计算机工作原理的是（）。 A.克劳德?香农 B.戈登?摩尔 C.查尔斯?巴比奇 D.冯?诺依曼 7.设X、Y、Z分别代表三进制下的一个数字，若等式XY+ZX=XYX在三进制下成立，那么同样在三进制下，等式XY*ZX=()也成立。 A.YXZ B.ZXY C.XYZ D.XZY 8.Pascal语言、C语言和C++语言都属于（）。 A.面向对象语言 B.脚本语言 C.解释性语言 D.编译性语言 9.前缀表达式“+3*2+512”的值是（）。 A.23 B.25 C.37 D.65 10.主存储器的存取速度比中央处理器(CPU)的工作速度慢的多，从而使得后者的效率受到影响。而根据局部性原理，CPU所访问的存储单元通常都趋于一个较小的连续区域中。于是，为了提高系统整体的执行效率，在CPU中引入了()。 A.寄存器 B.高速缓存 C.闪存 D.外存 11.一个字长为8位的整数的补码是11111001，则它的原码是（）。 A.00000111 B.01111001 C.11111001 D.10000111 12.基于比较的排序时间复杂度的下限是（），其中n表示待排序的元素个数。 A.O(n) B.O(n log n) C.O(log n) D.O(n2) 13.一个自然数在十进制下有n位，则它在二进制下的位数与（）最接近。 A.5n B.n*log210 C.10*log2n D.10n log2n 14.在下列HTML语句中，可以正确产生一个指向NOI官方网站的超链接的是（）。 A.欢迎访问NOI网站 B.欢迎访问NOI网站 C.http://www.noi,cn D.欢迎访问NOI网站 15．元素R1、R2、R3、R4、R5入栈的顺序为R1、R2、R3、R4、R5。如果第1个出栈的是R3，那么第5个出栈的不可能是()。 A.R1 B.R2 C.R4 D.R5 16.双向链表中有两个指针域llink和rlink，分别指向该结点的前驱及后继。设p指向链表

NOIP2013初赛提高组Pascal试题及答案汇总

第十九届全国青少年信息学奥林匹克联赛初赛 提高组Pascal 语言试题 竞赛时间：2013 年10 月13 日14:30~16:30 选手注意： ●试题纸共有12 页，答题纸共有2 页，满分100 分。请在答题纸上作答，写在试题纸上 的一律无效。 ●不得使用任何电子设备（如计算器、手机、电子词典等）或查阅任何书籍资料。 一、单项选择题（共15 题，每题1.5 分，共计22.5 分；每题有且仅有一个正确选项） 1. 一个32 位整型变量占用（）个字节。 A. 4 B. 8 C. 32 D. 128 2. 二进制数11.01 在十进制下是（）。 A. 3.25 B. 4.125 C. 6.25 D. 11.125 3. 下面的故事与（）算法有着异曲同工之妙。 从前有座山，山里有座庙，庙里有个老和尚在给小和尚讲故事：?从前有座山，山里有座庙，庙里有个老和尚在给小和尚讲故事：‘从前有座山，山里有座庙，庙里有个老和尚给小和尚讲故事....’? A. 枚举 B. 递归 C. 贪心 D. 分治 4. 1948 年，（）将热力学中的熵引入信息通信领域，标志着信息论研究的开端。 A. 冯·诺伊曼（John von Neumann） B. 图灵（Alan Turing） C. 欧拉（Leonhard Euler） D. 克劳德·香农（Claude Shannon） 5. 已知一棵二叉树有2013 个节点，则其中至多有（）个节点有2 个子节点。 A. 1006 B. 1007 C. 1023 D. 1024 6. 在一个无向图中，如果任意两点之间都存在路径相连，则称其为连通 图，至少要删去其中的（）条边。

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. 输入10个正整数，计算它们的和，平方和； 2. 输入20个整数，统计其中正、负和零的个数； 3. 在1——500中，找出能同时满足用3除余2，用5除余3，用7除余2的所有整数； 4. 输出1——999中能被3整除，且至少有一位数字是5的数； 5. 输入20个数，求出它们的最大值、最小值和平均值。 6. 甲、乙、丙三人共有384本书，先由甲分给乙、丙，所给书数分别等于乙、丙已有的书数，再由乙分给甲、丙，最后由丙分给甲、乙，分法同前，结果三人图书数相等。编程求甲、乙、丙三人原各有书多少本？ 7. 某养金鱼爱好者，决定出售他的金鱼。第一次卖出了全部金鱼的一半加2分之一条金鱼；第二次卖出剩金鱼的三分之一加三分之一条金鱼；第三次卖出剩金鱼的四分之一加四分之一条金鱼；第四次卖出剩金鱼的五分之一加五分之一条金鱼，最后还剩11条。问原来有多少条金鱼？（每次卖的金鱼都是整数条） 8. 猴子吃桃子问题：猴子第一天摘下若干个桃子，当即吃了一半还不过瘾，又多吃了一个；第二天又将剩下的桃子吃掉一半又多吃了一个；以后每天早上都吃了前一天剩下的一半零一个。到了第十天想再吃时，见只剩下一个桃子，求第一天共摘了多少个桃子？ 9. 从键盘输入整数l，统计出边长为整数的周长为l的不等边三角形的个数。 10. 输入三个整数，以这三个数为边长，判断是否构成三角形；若构成三角形，进一步判断它们构的是：锐角三角形或直角三角形或钝角三角形。 11. 1*2*3*...*1000结果是一个很大的数，求这个数末尾有多少个连续的零。 12. 任意输入两个整数，求这两个整数的最大公约数，并求这两个整数的最小公倍数。 13. 一个整数的立方可以表示为两个整数的平方差，如19853=19711052-19691202。 编程：输入一个整数N，自动将其写成N3=X2-Y2。 14. 求100以内的所有素数。纯粹素数是这样定义的：一个素数，去掉最高位，剩下的数仍为素数，再去掉剩下的数的最高位，余下的数还是素数。这样下去一直到最后剩下的个位数也还是素数。求出所有小于3000的四位的纯粹素数。 15. 验证回文数的猜测：左右对称的自然数称回文数。如121，4224，13731等，有人猜测：从任意一个两位或两位以上的自然数开始，将该数与它的逆序数（如1992的逆序数是2991）相加，得到一个新数，再用这个新数与它的逆序数相加，不断重复上述操作，经过若干步的逆序相加之后，总可以得到一个回文数，例如：从1992开始，1992+2991=4983；4983+3894=8877；8877+7788=16665；16665+56661=73326；73326+62337=135663；135663+366531=502194；502194+491205=993399。经过七步就得到了回文数。 设计一个程序，由计算机在局部范围内验证回文数的猜测，并将寻找回文数的每一个步骤都显示出来。16. 已知一个正整数的个位数为7，将7移到该数的首位，其它数字顺序不变，则得到的新数恰好是原数的7倍，编程找出满足上述要求的最小自然数。 17. 任意一个大于9的整数减去它的各位数字之和的差，一定能被9整除。 18. 有一个六位数，其个位数字7，现将个位数字移至首位（十万位），而其余各位数字顺序不变，均后退一们，得到一个新的六位数，假如旧数为新数的4倍，求原来的六位数。 19. 任意给定平面上三个点A（X1，Y1），B（X2，Y2），C（X3，Y3），试判断这三个点能否构成三角形。能则求出它的面积。 20. 将1至9这几个数字排成3x3方阵，并使每一横行的三个数字组成一个三位数。如果要使第三行的三位数是第一行的两倍，第三行的三位数是第一的三倍，应怎样排法？编程找出所有排法。 21. 一个合数（质数的反数），去掉最低位，剩下的数仍是合数，再去掉剩下的数的最低位，余留下来的数还是合数，这样反复，一直到最后公剩下的一位数仍是合数；我们把这样的数称为纯粹合数。求所有的三位纯粹合数。 22. 输入一个大于1的整数，打印出它的素数分解式。如输入75，则打印："75=3*5*5"。 23. 某自然数n的所有素数的平方和等于n，（1<100），请找出二个这样的自然数n。

Pascal百题练习

1、有一数字如下：65436543654365436543………循环排列， （1）输入一个数字n，输出第n个数字。 如输入3则输出为4，输入1则输出为6。 （2）输入一个数字n,在屏幕上输出如题数字，每行30个数字。 (3)输入一个数字n，输出所有数字4所在的位数。 如输入15，输出4所在的位置，即3 7 11 15 2、有一字符串如下：EDCBAEDCBAEDCBA……..循环排列， (1)输入一个整数n，输出第n位字符。 如输入3输出为C，输入1则输出为E。 (2)输入一个整数n，在屏幕上输出如题字母，每行30个字母。 (3)输入一个数字n，输出所有1-n范围内字母C所在的位数,场宽4。 如输入15，输出D所在的位置，即2 7 12 3、输入一字符，如该字符为小写字母，则转换成大写并输出；如该字符为大写字母，则转换成小写并输出，如果输入是数字则将该数字转成整数并输出该整数。否则输出?Error?,即错误。 如输入a则输出为A，如输入为B则输出为b，如输入9则转成整数9并输出。 （提示：?a?≤小写字母≤?z?，?A?≤大写字母≤?Z?） 4、输入三个数，判断这三个数能否作为边长组成三角形，如果能组成则输出TRUE，不能组成三角形则输出FALSE。

5、输入三个数，按从大到小的顺序输出。 如，输入15 20 16 ，输出为20 16 15 6、输入一个三位整数，输出一个新三位数，使其百位数最大，个位数最小。 如，输入315，输出531。 7、输入四个整数，输出四个数中的最大值和最小值。（分两行输出） 8、输入一个秒数，转换成小时、分、秒并输出。 如输入4500，输出为1:15:0。 9、有鸡兔同笼，现发现有头30个脚90只，试编程算出鸡兔各多少只并输 出。 10、有五个好朋友相聚，第一个朋友带来很多糖块赠送给各位好友，使每人的糖块在原来的基础上增加了一倍，第二个朋友也向各位朋友分发糖块，使每人在已有糖块的基础上又增加了一倍，第三、第四、第五位朋友都照此办理，最终每人刚好都有32块糖，请编程算出原来每位好友各有多少糖块。 11、假设邮局规定寄邮件时若每件重量在1公斤内（含1公斤）以每公斤1.5元 收取邮费，超过部分按每公斤0.8元收取邮费。编程输入邮件重量，输出应收邮费。 12、输入考试成绩，如果获得80分以上为A等，60到79分为B等，60分以下 为C等。编程输入分数，输出相应等级。（用IF和CASE两种方法）

pascal试题不高兴的津津

pascal试题不高兴的津津 津津上初中了。妈妈认为津津应该更加用功学习，所以津津除了上学之外，还要参加妈妈为她报名的各科复习班。另外每周妈妈还会送她去学习朗诵、舞蹈和钢琴。但是津津如果一天上课超过八个小时就会不高兴，而且，上得越久就会越不高兴。假设津津不会因为其它事不高兴，并且她的不高兴不会持续到第二天。请你帮忙检查一下津津下周的日程安排，看看下周她会不会不高兴；如果会的话，哪天最不高兴。 输入格式 输入包括七行数据，分别表示周一到周日的日程安排。每行包括两个小于10的非负整数，用空格隔开，分别表示津津在学校上课的时间和妈妈安排她上课的时间。 输出格式 输出包括一行，这一行只包含一个数字。如果不会不高兴则输出0，如果会则输出最不高兴的是周几(用1, 2,3,4,5,6,7分别表示周一，周二，周三，周四，周五，周六，周日)。如果有两天或两天以上不高兴的程度相当，则输出时间最靠前的—天。 var t1,t2:integer;//读入的时间 max,day:integer;//最不高兴的上课总时长，与对应的日期(1到7） i:integer;//用于循环 //程序主体: begin max:=0; day:=0; //初始化:最大值=0，日期=0即没有不高兴 for i:=1 to 7 do //对于每一行数据 begin readln(t1,t2);//每次读入t1,t2，即两个上课时间值; if (t1+t2>8) and (t1+t2>max)//如果第i天不高兴且总时间超过之前出现过的最大值 then //则更新最大值与相应日期 begin max:=t1+t2; day:=i; end; end; writeln(day);//输出day end.

NOIP2004普及组初赛pascal试题及答案

2004年第十届全国青少年信息学奥林匹克联赛初赛试题 （普及组 Pascal语言二小时完成） 一、选择一个正确答案代码（A/B/C/D/E）填入每题的挂号内 1．美籍匈牙利数学家冯·诺依曼对计算机科学发展所做出的贡献是：（） A、提出理想计算机数学模型，成为计算机科学理论基础 B、是世界上第一个编写计算机程序的人 C、提出存储程序工作原理，并设计出第一台具有存储程序功能的计算机EDV AC D、采用集成电路作为计算机的主要功能部件 E、指出计算机性能将以每两年翻一番的速度向前发展 2．下列哪个不是CPU（中央处理单元）（） A、Intel Itanium B、DDR SDRAM C、AMD Athlon64 D、AMD Opteron E、IBM Power 5 3、下列网络中常用的名字缩写对应的中文解释错误的是（） A、WWW(World Wide Web)：万维网 B、URL（Uinform Resource Locator）：统一资源定位器 C、HTTP（Hypertext Transfer Protocol）：超文本传输协议 D、FTP (File Transfer Protocol)：快速传输协议 E、TCP （Transfer Control Protocol）：传输控制协议 4、下面哪个部件对于个人桌面电脑的正常运行不是必需的（） A、cpu B、显卡（图形卡） C、光驱 D、主板 E、内存 5、下列哪个软件属于操作系统软件（） A、Microsoft Word B、金山词霸 C、Foxmail D、WinRAR E、Red Hat Linux 6、下列哪个不是计算机存储设备（）、 A、文件管理器 B、内存 C、高速缓存 D、硬盘 E、U盘 7、下列说法中错误的是（） A、CPU的基本功能就是执行指令 B、CPU访问内存的速度快于访问高速缓存的速度 C、CPU的主频是指CPU在1秒内完成的指令周期数 D、在一台计算机内部，一个内存地址编码对应唯一的一个内存单元 E、数据中线的宽度决定了一次传递数据量的大小 8、彩色显示器所显示的五彩斑斓的色彩，是由红色，蓝色和（）色混合而成的 A、紫色 B、白色 C、黑色 D、绿色 E、橙色 9、用静电吸附磨粉后转移到纸张上，是那种输出设备的工作方式（） A、针式打印机 B、喷墨打印机 C、激光打印机 D、笔式绘图仪 E、喷墨绘图仪 10、一台计算机如果要利用电话线上网，就必须配置能够对数字信号和模拟信号进行互相转换的设备，这种设备是（） A、调制解调器 B、路由器 C、网卡 D、网关 E、网桥 11、下列哪个不是数据库软件的名称（） A、MYSQL

NOIP2013提高组初赛Pascal试题

NOIP2013提高组初赛Pascal试题

第十九届全国青少年信息学奥林匹克联赛初赛 提高组Pascal语言试题 竞赛时间：2013年10月13日14:30~16:30 选手注意： ●试题纸共有12页，答题纸共有2页，满分100 分。请在答题纸上作答，写在试题纸上的一律无效。 ●不得使用任何电子设备（如计算器、手机、电子词典等）或查阅任何书籍资料。 一、单项选择题（共15题，每题 1.5分，共计22.5分；每题有且仅有一个正确选项） 1 . 一个32位整 型变量占用（）个字 节。 A . 4 B. 8 C . 32 D. 128 2 . 二进制数11.01 在十进制下是（）。 A . 3.25 B. 4.12 5 C . 6. 25 D. 11.125 3 . 下面的故事与（）算法有着异曲同工之妙。 从前有座山，山里有座庙，庙里有个老和尚在给小和尚讲故事：?从前有座山，山里有座 庙，庙里有个老和尚在给小和尚讲故事：‘从前有座山，山里有座庙，庙里有个老和尚给小和尚 讲故 事....’? A . 枚举B. 递归 C . 贪心 D. 分治

4. 1948 年，（ ）将热力学中的熵引入信息通信领域，标志着信息论研究的开端。 A . 冯·诺伊曼（John von Neumann ） B . 图灵（Alan Turing ） C . 欧拉 （Leonhard Euler ） D . 克劳德·香农（Claude Shannon ） 5. 已知一棵二叉树有 2013 个节点，则其中至多有（ ）个节点有 2 个子节点。 A . 1006 B. 1007 C . 10 23 D. 1024 6. 在一个无向图中，如果任意两点之间都存在路径相连，则称其为连通 图。右图是一个有 5 个顶点、8 条边的连通图。若要使它不再是连通 图，至少要删去其中的（ ）条边。 A. 2 B. 3 C. 4 D. 5 7. 斐波那契数列的定义如下：F 1 = 1, F 2 = 1, F n = F n – 1 + F n – 2 (n ≥ 3)。如果用下面的函数计 算斐波 那契数列的第 n 项，则其时间复杂度为（ ）。 funtion F (n : longint ) : longint ; begin CCF NOIP2013 初赛提高组 Pascal 语言试题 第 1 页，共 10 页

pascal基础练习

1．倒字母金字塔 输入n(n<=26)，输出n行的字母金字塔。 【样例输入】 3 【样例输出】 ABCBA ABA A 2．猴子吃桃 猴子第一天摘下若干个桃子，当即吃了一半还不过瘾，又多吃了一个；第二天又将剩下的桃子吃掉一半又多吃了一个；以后每天早上都吃了前一天剩下的一半零一个。到了第n 天想再吃时，见只剩下一个桃子，求第一天共摘了多少个桃子？ 【样例输入】2 【样例输出】4 说明：到第2天早晨只剩下1个，表示共摘了4个桃子。 3．素因式分解 任何一个大于1的自然数可以分解成它的素数因子的乘积，而且这个素数分解式是唯一的（唯一定理）。输入一个大于1的正整数，输出该素数分解式。 【样例输入1】100 【样例输出1】100=2*2*5*5 【样例输入2】7 【样例输出2】7=7 4．纯粹合数 一个合数，去掉最低位，剩下的数仍是合数，再去掉剩下的数的最低位，留下来的数还是合数，这样反复，一直到最后仅剩下的一位数还是合数，我们把这样的数称为纯粹合数。求10000以内的所有纯粹合数。 5．立方数拆分 一个整数n（n<=2000）的立方可以表示为两个整数的平方差。输入一个整数，输出它是由哪两个整数的平方差。 【样例输入1】2 【样例输出1】3 1 样例1说明：23=32-12 【样例输入2】1985 【样例输出2】1971105 1969120 课后练习： 1．输入n，计算s(保留2位小数)。已知s=1/(1×2)+ 1/(3×4)+ 1/(5×6) +……+1/( (n-1)×n)。 【样例输入】2 【样例输出】0.50

2．纯粹素数 纯粹素数是这样定义的：一个素数，去掉最高位，剩下的数仍为素数，再去掉剩下的数的最高位，余下的数还是素数。这样下去一直到最后剩下的一位数也还是素数。求出所有小于10000的四位的纯粹素数。 3．角谷猜想 对于任意大于1的自然数n，若n为奇数，则将n变为3*n+1，否则将n变为n的一半。经过若干次这样的变换，一定会使n变为1。输入n，输出经过多少次可以变为1，并输出中间的每个数。 【样例输入】 3 【样例输出】 3 10 5 16 8 4 2 1 7

pascal语言笔试试题答案

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的值

小学组Pascal语言试题

小学组Pascal语言试题（一） 一、单项选择。（每小题1.5分，共15分） 1.下面是某同学定义的变量名，合符Pascal语法的是（）。 A．integer B. x1 B. 2x D. x*y 2．假定所有变量均为实型，算式的正确Pascal表达式是（）。 A.(u+a)/((b-v)/(c-w)+u*d) B. (u+a)/(b-v)/(c-w)+u*d C. u+a/b-v/c-w+u*d D. (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); 若从键盘输入： 1 2 3 4 5 6 7 其中，表示“回车”，则a,b,c,d中的数应为下面哪一组？（） A.1,2,3,4 B.1,2,3,5 C.1,2,5,6 D.1,0,3,5 5. 设n为整型变量，且n:=1997，下面能将n的十位数字（即右边第2位数字）分离出来的语句是（）。 A. d:=n mod 100 B. d:=n div 100; C. d:=n div 100 mod 10; D. d:=n mod 100 div 10 6.“判断一个整数x是另一整数y的整数倍”的pascal表达式是（）。 A．x=2*y B. x/y=2 C. x mod y=0 D. x mod y=1 7. Pascal表达式“2008 div 5 mod -2”的结果是： A. 8 B. -1 C. 0 D. 1 8. 设实型变量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．下列程序段的输出结果是（）。 Var x,s:integer; Begin x:=2005; s:=0; while x<>0 do begin s:=s+x mod 10; x:=x div 10;

NOIP2017普及组初赛试题(Pascal)-信息学竞赛

第二十三届全国青少年信息学奥林匹克联赛初赛 普及组 pascal语言试题 竞赛时间：2017 年 10 月 14 日 14:30~16:30 选手注意： 试题纸共有 7 页，答题纸共有 2 页，满分 100 分。请在答题纸上作答，写在试题纸上的一律无效。 不得使用任何电子设备（如计算器、手机、电子词典等）或查阅任何书籍资料。 一、单项选择题（共 20 题，每题 1.5 分，共计 30 分；每题有且仅有一个正确选项） 1. 在 8 位二进制补码中，10101011 表示的数是十进制下的（）。 A. 43 B. -85 C. -43 D. -84 2. 计算机存储数据的基本单位是（）。 A. bit B. Byte C. GB D. KB 3. 下列协议中与电子邮件无关的是（）。 A. POP3 B. SMTP C. WTO D. IMAP 4. 分辨率为 800x600、16 位色的位图，存储图像信息所需的空间为（）。 A. 937.5KB B. 4218.75KB C. 4320KB D. 2880KB 5. 计算机应用的最早领域是（）。 A. 数值计算 B. 人工智能 C. 机器人 D. 过程控制 6. 下列不属于面向对象程序设计语言的是（）。 A. C B. C++ C. Java D. C# 7. NOI 的中文意思是（）。 A. 中国信息学联赛 B. 全国青少年信息学奥林匹克竞赛 C. 中国青少年信息学奥林匹克竞赛 D. 中国计算机协会 8. 2017 年 10 月 1 日是星期日，1999 年 10 月 1 日是（）。 A. 星期三 B. 星期日 C. 星期五 D. 星期二

Pascal练习题及答案

一、熟悉Pascal的集成环境，了解主菜单的各项功能 二、完成下面程序的输入、编译、运行、保存，并注意观察程序的运行结果 1、程序代码如下： program exe1 (input ，output) ； var h ，k ：integer ； begin for h ：＝ 1 to 8 do begin write( ' '：20-h)； for k ：＝1 to 2*h-1 do write(' * ')； writeln； end； end. 2、编程计算半径为R的圆的面积和周长 程序代码如下： Program Exe2；{程序首部} Const Pi=3.14 Var R，S，C: Real；{变量说明部分} Begin Write ('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; Begin Writeln( ‘ Hello World!’); Readln; End. 4、下面是一道猜数的趣味程序，程序运行后，由计算机随机地产生一个100

以内的整数，用户有十次猜数的机会，并且计算机会根据你猜的数给你相应的提示。 程序代码如下： program caishu (input ，output) ； var x，n，k ：integer； begin randomize； x：＝random( 100) ； repeat write('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 kx) then writeln( ' You are fail. The number is ：' ，x) ； end. 三、上机时要注意的操作步骤 四、练习：工人每工作一小时可得工资80元，求工作130小时的工资。 １program Exe (input, output); ２var h, r, w : integer; ３begin

2012PASCAL小学试题

第十届绍兴市少儿信息学竞赛 复赛试题 (2012年5月26日下午1:30-4:00) 一、题目一览 中文题目名称号码分类排队线段覆盖汉诺塔 英文题目名称number queue cover hanoi 输入文件名number.in queue.in cover.in hanoi.in 输出文件名number.out queue.out cover.out hanoi.out 每个测试点时限1秒1秒1秒1秒 测试点数目10101010 每个测试点分值10101010 二、比赛目录结构示例 选手比赛时，需在本机为每题建立对应的题目目录，目录名称与题目英文名称相同。选手根据题目要求，将自己提交的源程序，放在该题的题目目录下。 每位选手把自己提交的源程序连同要求的目录结构，存入D盘根目录中。(只递交源程序，测试时以源程序为准) 例如：假设试卷中有cashier、dune、manhattan三题，选手sx1001使用Pascal 答题，其最终提交的文件为cashier.pas、dune.pas、manhattan.pas，则该选手提交的目录结构如下所示： |---sx1001/ |---cashier/ |---cashier.pas |---dune/ |---dune.pas |---manhattan/ |---manhattan.pas 三、特别提醒 1、务必看清题目，严格按照所要求的格式输入、输出。 2、比赛开始前应先检查本机能否正常使用，如有问题可向监考老师提出。比赛结束后应及时离开机房，但注意不要关机。

第一题号码分类 number.pas 问题描述： 小明有来自A、B、C三城市的n个朋友，现在要将他们的电话号码按A、B、C的顺序分类输出，但相同地区的号码则仍按原序输出。已知各城市电话号码的第一位是不同的：A城为8，B城为5，C城为2。 输入文件： 输入文件number.in，共二行。第一行有一个正整数n（n<=100），表示朋友的数目。第二行是n个八位电话号码（号码间以空格相隔）。 输出文件： 输出文件number.out，共三行。格式如下： A：A城朋友的电话号码（以空格相隔，如没有A城的，则空着） B：B城朋友的电话号码（以空格相隔，如没有B城的，则空着） C：C城朋友的电话号码（以空格相隔，如没有C城的，则空着） 样例： 输入： 3 855520882282655882222205 输出： A：8555208882222205 B： C：22826558

小学Pascal练习题

一、编程实现： （1）：输入x,y的值,用程序实现输出时x为y的值，y为x的值。(test1) （2）：输入一个三位数，输出它的相反数。如：输入234，输出432。 （3）：从键盘输入一个数x，计算表达式3*x-6的值，并在屏幕输出结果。(test3) （4）：输入20个数，统计其中正数、负数和零的个数。 要求：程序名ex 统计个数变量：num1（正），num2（负），num3（零） 循环变量：i （5）：用当循环语句（while）编程计算1×2×4×6×8×……×20的积。(test5) （6）：李冬期末考试考语文、数学、英语三门课程，编程求他期末考试的总分和平均分(test6) （7）：随机产生互不相同的两位数20个，并按从小到大的顺序排列。 （8）：新年联欢会，来宾聚一堂，互相碰一杯，903响，问有多少人，饮酒在会上？（9）：编程求1~100以内所有质数的和。 （10）：编程判断某个年份是否是闰年。输入年份（变量名称：year），若是闰年，则在屏幕上显示Yes，否则输出No (test10 （11）：小明有一本书，第一天看了全书的一半，第二天又看了剩余的2/3，还有10页没看完，问全书共有几页？ （12）：一本1000页的书，黄强第一天看了10页。以后每天比前一天多看3页，编程求出黄强最后一天看了多少页。 （13）：兄弟三人岁数和是30，大哥的岁数减2，二哥的岁数加2，弟弟的岁数乘以2 ，结果三人的岁数相同，求三人的岁数各是多少？ （14）：求1+5+9+13+…101的和。 （15）：剧场中有1000个座位，已知第一排有30个座位，以后每排增加2 个座位，1000个座位最多能排几排？最后剩余不够一排的座位有几个？如果按前边的排法再补全一排，整个剧场有多少个座位？ （16）：爸爸比儿子大30岁，四年后爸爸的年龄将是儿子的四倍，问爸爸和儿子各是多少岁？（17）：用数组形式求1-100以内所有奇数的和。 （18）：编程模拟投掷硬币100次正反面各出现的次数。 （19）：编程求出所有十位数字与个位数字之和等于百位数字的三位数。 （20）：随机生成20个两位数的整数，并按从大到小的顺序输出。 （21）：编程模拟中福彩票双色球号码产生的程序。基本要求是红球号码范围为1-33，共产生6 个。蓝球号码范围为1-16，共产生1 个。编程输出结果如下：2 6 8 20 24 30 -5 （22）：输入三个数，输出三个数中最大的一个。 （23）：输出1 1+ 1 2+ 2 3+ 3 5+ 5 8+ 8 13+ 13 21+ 21 34……前20项之和。 （24）：由键盘输入正整数N（N≤100），求1到N之间所有的5的倍数之和S。 例：输入：N＝10输出：S＝15（因为1～10之间只有5和10是5的倍数）（25）：一光滑墙壁高X尺，有一个小虫从墙底部向上爬，每分钟爬Y尺。但每爬一分钟后都要休息一分钟，在休息期间又下滑一尺。编程：输入X和Y，计算该小虫最少几分钟可爬到顶端。 如：输入：X，Y＝4,2 输出：5 二、写出程序的运行结果 1．PROGRAM exam(Input,Output);

pascal 练习题

1．阶梯教室设备利用 （REZ.PAS） 问题描述： 我们现有许多演讲要在阶梯教室中举行。每一个演讲都可以用唯一的起始和终止时间来确定，如果两个演讲时间有部分或全部重复，那么它们是无法同时在阶级教室中举行的。现在我们想要尽最大可能的利用这个教室，也就是说，我们需要在这些演讲中选择一些不重复的演讲来举行使得他们用的总时间尽可能的长。我们假设在某一演讲结束的瞬间我们就可以立即开始另一个演讲。 任务： 请写一个程序： ●在文本文件REZ.IN中读入所有演讲的起始和终止时间； ●计算最大的可能演讲总时间； ●把结果输出到文本文件REZ.OUT中。 输入格式（REZ.IN）： 文本文件REZ.IN的第一行包括一个正整数n，n ≤ 10000，为所有的演讲的数目。以下的n行每行含有两个由空格隔开的整数p和k，0 ≤ p < k ≤ 30000。这样的一对整数表示一个演讲由时间p开始到时间k结束。 输出格式（REZ.OUT）： 在文本文件REZ.OUT输出唯一的一个整数，为最长的演讲总时间。 输入输出样例： 输入（REZ.IN）： 12 1 2 3 5 0 4 6 8 7 13 4 6 9 10 9 12 11 14 15 19 14 16 18 20 输出（REZ.OUT）： 16 2．棋盘数图形 （chessbod.PAS/c/exe）

设有一个N*M方格的棋盘（l<=N<=100,1<=M<=100）(30％) 求出该棋盘中包含有多少个正方形、多少个长方形（不包括正方形）。 例如：当N=2, M=3时： 正方形的个数有8个：即边长为1的正方形有6个； 边长为2的正方形有2个。 长方形的个数有10个： 即2*1的长方形有4个： 1*2的长方形有3个： 3*1的长方形有2个： 3*2的长方形有1个： 程序要求：输入(chessbod.in)：N，M 输出(chessbod.out)：正方形的个数与长方形的个数 如上例：输入：2 3 输出：8 10 3.税收与补贴问题 (revorfin.pas/c/exe) 问题描述： 每样商品的价格越低，其销量就会相应增大。现已知某种商品的成本及其在若干价位上的销量（产品不会低于成本销售），并假设相邻价位间销量的变化是线性的且在价格高于给 定的最高价位后，销量以某固定数值递减。（我们假设价格及销售量都是整数）对于某些特殊商品，不可能完全由市场去调节其价格。这时候就需要政府以税收或补贴的方式来控制。（所谓税收或补贴就是对于每个产品收取或给予生产厂家固定金额的货币） 问题求解： 你是某家咨询公司的项目经理，现在你已经知道政府对某种商品的预期价格，以及在各种价位上的销售情况。要求你确定政府对此商品是应收税还是补贴的最少金额（也为整数），才能使商家在这样一种政府预期的价格上，获取相对其他价位上的最大总利润。 总利润=单位商品利润*销量 单位商品利润=单位商品价格-单位商品成本（-税金or +补贴） 输入： 输入的第一行为政府对某种商品的预期价，第二行有两个整数，第一个整数为商品成本，第二个整数为以成本价销售时的销售量，以下若干行每行都有两个整数，第一个为某价位时的单价，第二个为此时的销量，以一行-1，-1表示所有已知价位及对应的销量输入完毕， 输入的最后一行为一个单独的整数表示在已知的最高单价外每升高一块钱将减少的销量。 输出： 输出有两种情况：若在政府预期价上能得到最大总利润，则输出一个单独的整数，数的正负表示是补贴还是收税，数的大小表示补贴或收税的金额最小值。若有多解，取绝对值最小的输出。