Pascal模拟测试五
2019-2020年初中组PASCAL语言信息学竞赛初赛模拟试题附参考答案
2019-2020年初中组PASCAL语言信息学竞赛初赛模拟试题附参考答案一、选择题：（选出每题正确的一个答案代码，填在横线上，每题1.5分，共30分）1、执行下列二进制算术加运算11001001+00100111（）。
A. 11101111B. 11110000C. 00000001D. 101000102、假设a1，a2，a3是布尔变量，且值均为True，则下列表达式中值为False的是______A. NOT a1 AND NOT a2B. a1 OR a2 AND a3C. (NOT a1 OR a2)AND (a2 OR a3)D. False OR a1 AND a2 OR NOT a33、若一个问题的求解既可以用递归算法，也可以用递推算法，则往往用_____算法。
A.先递归后递推B. 先递推后递归C.递归D.递推4、表达式8 MOD (2*(5-3*(4*(5 DIV 2))DIV 10))的值是_____A. 0B. 1C. 2D. 35、贪婪法是一种______的算法。
A.不求最优，只求满意B.只求最优C.求取全部可行解D.求取全部最优解6、称一种语言为低级程序语言是由于它_____。
A.离机器特性近B.离自然语言近C.编程难度低D.通用性强7、排序方法中，从未排序序列中依次取出元素与已排序序列(初始时为空)中的元素作比较，将其放入已排序序列的正确位置上的方法，称为_____.A. 归并排序B. 二分法排序C. 冒泡排序D.插入排序8、若进栈序列为3,5,7,9,进栈过程中可以出栈，则_____不可能是一个出栈序列。
A. 7,5,3,9B. 9,7,5,3C.7,5,9,3D. 9,5,7,39、中缀表达式(a-b)*(cd)的后缀表达式是_____.A. abcd*-B. ab-cdC. ab-*cdD. a-bcd *10、字符A、B、C依次进入一个栈，按出栈的先后顺序组成不同的字符串，至多可以组成多少个不同的字符串？_____A. 5B. 4C. 6D. 111、一个字长的二进制位数是_____A.8B.16C.32D.随计算机系统而不同的12、当a=1,b=3,c=5,d=4时，执行下面一段程序后，x的值为_____if(a<b) then if(c<d) then x=1else if(a<c) thenif(b<d) then x=2;else x=3;else x=6;else x=7;A. 1B.2C. 3D. 613、若一个存储器的周期为200ns，且每个周期可访问4个字节，则该存储器带宽为____bit/s。
初中生信息学奥林匹克竞赛初赛模拟试题(PASCAL语言)附参考答案
信息学竞赛初赛模拟试题(十一)(初中组PASCAL语言，两小时完成)♦♦请将正确答案在答卷上填写，在本试题卷上答题无效♦♦一、选择题(每题只有一个选项符合题目要求，多选无效，1.5*20=30分)1、当一个应用程序窗口被最小化后，该应用程序将()。
A)被终止执行B)继续在前台执行C)被暂停执行D)被转入后台执行2、在"替换"对话框中指定了查找内容但没有在"替换为"框中输入内容，则执行"全部替换"后，将()。
A)只进行查找，不进行替换B)不能执行，提示输入替换的内容C)每找到一个欲查内容，就提示用户输入替换的内容D)把所有找到的内容删除3、计算机网络最主要的功能在于()。
A)扩充存储容量B)提高计算速度C)传输文件D)共享资源4、在计算机领域中，通常用英文单词"BYTE〃来表示()A)字B)字长C)二进制位D)字节5、发现计算机病毒后，一种较为彻底的清除方法是()。
A)删除磁盘文件B)格式化磁盘C)用查毒软件处理D)用杀毒软件处理6、对于一个具有n个结点和e条边的无向图，若采用邻接表表示，则顶点表的大小为()，A)nB)n+1C)n-1D)n+e7、互联网址中公司的顶级域名一般是()。
A)NETB)GOVC)EDUD)COM8、在微机中，硬盘连同其驱动器属于()。
A)外(铺助)存储器B)输入设备C)输出设备D)主(内)存储器9、在全角状态下，输入的字母在屏幕上占有()个ASCII码字符的位置。
A)1个B)2个C)3个D)4个10、二进制数10011010和00101011进行逻辑乘运算(即"与"运算)的结果是()。
A)00001010B)10111011C)11000101D)1111111111、已知一棵二叉树的前序序列和中序序列分别为：ABDEGCFH和DBGEACHF，层次序列为()。
A)GEDHFBCAB)DGEBHFCAC)ABCDEFGHD)ACBFEDHG12、下列字符中，其ASCII码值最大的是()A)9B)DD)aD)y13、某顺序存储的表格，其中有90000个元素，已按关键项的值的上升顺序排列。
PASCAL语言基础总成(完整版)
PASCAL 语言基础及基础训练
第 3 页 共 48页
Run-time error 错误代码 at 错误发生地址 保存文件 四、 四、保存文件 把当前编辑的程序文件以当前名存盘，只需运行菜单命令[FILE][SAVE]（或 F2） ，即可。 关闭当前文件 五、 五、关闭当前文件 当前文件不想现在再编辑了，可把它关闭掉，即运行菜单命令[WINDOWS][CLOSE]（或 ALT+F3） ， 即可。 打开已有文件 六、 六、打开已有文件 欲打开一个已经存在的程序文件，运行菜单命令[FILE][OPEN]（或 F3） ，再按 TAB 键去选择或 不按 TAB 键而直接输入文件名即可。 练习 七、 七、练习 在集成环境中输入以下程序，程序的作用是计算圆的面积，圆的半径由用户从键盘输入，编辑 运行正确后请存盘： program area_of_cicle; 此行可以不输入
第三章、PASCAL 语言程序基本概念 第一节、PASCAL 程序的组成 我们仍以上述程序为例：[例 2、1] program area_of_cicle; const pi=3.1416; var s:real; r:integer; begin writeln(‘Please input radius :’); readln(r); s:=pi*r*r; writeln(‘s=’,s); end. 每一个 PASCAL 程序都由程序头部和程序主体组成，最后以“end.”作为整个程序的结束。 一、程序头部 程序头部毫无疑问是在程序的开头位置，以“program”这个词开始（但经常省略这一） ，以第
第三节、一个 PASCAL 程序 进入编辑状态： 一、 一、进入编辑状态： 选择菜单[FILE][OPEN]（今后涉及到菜单调用时， 均以此格式表示， 即选择 FILE 菜单中的 OPEN 功能）功能，打开一个程序文件，在输入文件名时，输入文件的主名即可进入程序编辑状态。这时 可用编辑功能健： 光标键：用以上下左右移动光标位置； INSERT：插入/改写状态切换； TAB；光标跳至下一制表位； CAPSLOCK：大小写切换； DELETE：删除光标位一字符； BACKSPACE：删除光标前一字符； CTRL+Y：删除光标处一行； HOME：光标跳至行首； END：光标跳至行未； PAGEUP：上翻一页； PAGEDOWN：下翻一页； ENTER：回车/换行； 编辑一个 PASCAL 程序： 二、 二、编辑一个 [例 1、1] 输出一句话的小程序：
Pascal百题练习
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块糖，请编程算出原来每位好友各有多少糖块。
帕斯卡定理五边形
帕斯卡定理五边形下载温馨提示：该文档是我店铺精心编制而成，希望大家下载以后，能够帮助大家解决实际的问题。
文档下载后可定制随意修改，请根据实际需要进行相应的调整和使用，谢谢!并且，本店铺为大家提供各种各样类型的实用资料，如教育随笔、日记赏析、句子摘抄、古诗大全、经典美文、话题作文、工作总结、词语解析、文案摘录、其他资料等等，如想了解不同资料格式和写法，敬请关注!Download tips: This document is carefully compiled by the editor. I hope that after you download them, they can help yousolve practical problems. The document can be customized and modified after downloading, please adjust and use it according to actual needs, thank you!In addition, our shop provides you with various types of practical materials, such as educational essays, diary appreciation, sentence excerpts, ancient poems, classic articles, topic composition, work summary, word parsing, copy excerpts,other materials and so on, want to know different data formats and writing methods, please pay attention!帕斯卡定理五边形，是一个有趣而又复杂的数学问题。
PASCAL题集
PASCAL题集1、给一个不多于三位的正整数,求出它是几位数,并分别打印出各位上的数字。
vara,b,c,d,e:integer;beginreadln(a);b:=a div 100;c:=(a div 10) mod 10;d:=a mod 10;if b<>0 then e:=3 else if c<>0 then e:=2 else e:=1;writeln(e);if (e=1) then writeln(d)else if (e=2) then writeln (c,' ',d)else writeln(b,' ',c,' ',d);end.2、编写程序求出下式中n的最大值2*2+4*4+6*6+''''''''''+n*n<1500var a,s:integer;begina:=0;s:=0;repeata:=a+2;s:=s+a*a;until s>=1500;writeln(a-2); readln;end.3、古印度国王要褒奖他的聪明能干的宰相达依尔(国际象棋的发明者),问他要什么.达依尔回答:“殿下只要在棋盘(横竖个8行8列,共64个格)的第一个格子中放1粒麦子,在第二个格子中放2粒,在第三格中放4粒,以后每个格子中放的麦粒数都是前一个的两倍.如此放满64格,我就满足了。
”请你计算出输入格数（麦粒数或体积）后的麦粒数和体积（格数和体积或格数和麦粒数）提示：1立方米麦子约为1.42乘以10的8次方varsum,t:double;i,j:longint;begint:=0;for i:=0 to 63 dobeginsum:=1/142000000;for j:=1 to i dosum:=sum*2;t:=t+sum;end;writeln(t:10:10);end. 答案：129906648406.4054、已知一对兔子，每个月可以生一对小兔，而小兔子过一个月后也可以生一对小兔，即兔子的对数是：第一个月1对，第二月2对，第三个月3对，第四个月5对，……假设兔子的生育期是12个月,并且不死, 问一年后,这对兔子有多少对活着的后代?program t0101;constn=12;vari,l,p,x:integer;beginp:=1;l:=2;for i:=3 to n dobeginx:=l+p;p:=l;l:=x;end;writeln('total:',x);readlnend. 答案：即数列1，2，3，5，8……，结果为233。
Pascal填空题试题详解1
Pascal填空题试题详解1—52作者：老胡1．Pascal语言的数据类型按其特点可以分为3大类，即简单类型、——、指针类型。
解答：本题答案是构造类型。
2．Pascal中整数类型数据包括正整数、负整数和——。
解答：本题正确答案为整数零。
3．Pascal语言中顺序类型是指整数类型、字符类型、布尔类型、枚举类型、——。
解答：本题正确答案为子界类型。
4．Pascal语言的5种基本运算是算术运算、——、逻辑运算、集合运算和赋值运算。
解答：本题正确答案为关系运算。
5．在Pascal语言中，有一个特殊的整数，用——表示。
它代表某一个计算机系统允许的最大整数值。
解答：在数学中，整数是一个无限集合。
但是计算机只能表示它的一个有限子集。
Pascal系统预定义了一个标准常量，它代表所使用计算机系统Pascal 允许使用的最大整数值，由具体的编译器决定。
本题正确答案为MAXINT。
6．枚举类型只能进行两种运算，即赋值运算和——。
解答：Pascal中算术运算和逻辑运算对枚举类型无意义。
本题正确答案为关系运算。
7．如果一个记录有固定和变体两部分，必须首先定义——部分。
解答：本题正确答案为固定。
8．枚举类型的值是有序号的，序号从——开始，自左到右，从小到大排列。
解答：本题正确答案为0。
9．在Pascal中，若i>j，则[i．．j]表示——。
解答：用子界方式表示集合中的元素时，子界的下界应不大于上界，否则集合为空集本题正确答案为“空集”。
10．在Pascal中，表达式[4..9]＝[4..6,7..9]的值为——。
解答：本题目是用不同子界表示集合元素，但所表示的是整数类型的同一范围。
所以结果为true。
本题正确答案为true。
11．变量说明如下VARCh1,Ch2:'A'..'F';week:(sun,mon,tue,wed,thu,fri,sat);且ch1:='D';Ch2:='G';week:=tue；则表达式ord(week) MOD (ord(ch2)-ord(ch1))的值是——。
Pascal语言编程
用海伦公式求三角形面积
program t2; var a,b,c,p,s:real; {定义实型变量} begin readln(a,b,c);{读数据} p:=(a+b+c)/2;{半周长} s:=sqrt(p*(p-a)*(p-b)*(p-c));{sqrt平方根} writeln(s:0:3); {:0表示小数点前按实际输出，:3表 示保留3位小数} end.
d007
求两数的整数商和余数
program d007; var a,b:integer; begin readln(a,b); writeln(a div b, a mod b); end.
1009:分离数
program y8; var a:integer; {整型变量} begin readln(a); writeln(a div 100);{整除100得出百位数} writeln((a div 10) mod 10); {mod求余数} writeln(a mod 10); end.
信息学奥赛
d003: 计算矩形的周长和面积
内容： 求矩形的周长和面积 输入说明： 一行两个整数 输出说明： 一行两个整数周长和面积 输入样例： 12 输出样例 ： r; begin
readln(a,b);
writeln(2*(a+b)); writeln(' ',a*b); end.
编制一程序，读入一个三位数的正整数，并反向输出 。例如输入为123，则输出321。 提示;readln(abc) writeln(cba)
用海伦公式求三角形面积
假设在平面内，有一个三角形，边长分别为a、b 、c，三角形的面积S可由以下公式求得：
而公式里的p为半周长（周长的一半）：
华容道五阶测试题目
华容道五阶测试题目
华容道是一种益智游戏，目标是通过移动木块，将特定的木块移动到特定的位置，从而使出口处的主角能够顺利离开迷宫。
五阶华容道是指在5x5的棋盘上进行游戏。
以下是一些五阶华容道的测试题目：
1. 将A、B、C、D四个木块移动到指定位置，使得主角能够从出口离开。
初始布局：
E E C A D
E B C A D
E B O O O
E B
F F F
E E E E F
其中，O表示出口，F表示障碍物，E表示空格。
2. 将A、B、C、D四个木块移动到指定位置，使得主角能够从最下方的入口进入并从右侧的出口离开。
初始布局：
O O O O O
F F F F F
E E E E E
E E E E E
D C B A E
其中，O表示入口，F表示障碍物，E表示空格。
3. 将A、B、C、D四个木块移动到指定位置，使得主角能够从左上角的入口进入并从右下角的出口离开。
初始布局：
I I I I F
I E E E F
I E C E F
I E D B F
I F F F O
其中，I表示入口，F表示障碍物，E表示空格。
这些题目只是五阶华容道中的一小部分，每个题目都有多种解法。
希望这些题目能提供一些挑战和乐趣！。
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) then s:=s+(a-600000)*0.015+100000*0.1+200000*0.05+200000*0.03;if (a>1000000) then s:=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，请把这三个数由小到大输出。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1、解方程（jfc.pas）
【问题描述】三元三次方程：
x3+y3=z2
请编程求出指定范围内的正整数解的个数。
【输入格式】输入文件为jfc.in
只有一行且只有一个正整数：n 表示 1 <= x , y , z <= n
【输出格式】输出文件为jfc.out
只有一行且只有一个正整数：不同的正整数解的个数
【输入样例】
5
【输出样例】
3
【数据规模】
100%的数据：1 <= n <= 3 000 内存<= 2560 KB 时间<=1秒
2、公牛的乘法(bullmath.pas)
【问题描述】
公牛数学比奶牛好。
它们可以把巨大的整数相乘得到完全准确的答案，当然要眼见为实，也许是牛吹牛呢。
农民约翰想验证一下。
请你帮助他检查牛们的运算结果。
阅读两个正整数（不超过40位），并计算它们的乘积（没有多余的前导零）。
不能使用一个特殊的库函数相乘。
【输入】
共2行，每行包含一个十进制数
【输出】
一行，一个数，表示乘积
【样例输入】
11111111111111
1111111111
【样例输出】
12345679011110987654321
3、又上锁妖塔(tower.in/tower.out/tower.pas)
【问题描述】
小D在X星买完了想要的东西,在飞往下一个目的地的途中,正无聊的他转头看了看身边的小A,发现小A正在玩<仙剑>,可是小A很奇怪,他一直在锁妖塔的周围转来转去,可是就是不进去,于是小D问他:”你在干什么?怎么不上去?”小A 说:”我在想怎么从锁妖塔外面爬上去”(倒…) 锁妖塔的建造很特别,塔总共有n 层,但是高度却不相同,这造成了小A爬过每层的时间也不同.小A会用仙术,每用一次可以让他向上跳一层或两层,但是每次跳跃后小A都将用完灵力,必须爬过至少一层才能再次跳跃(你可以认为小A需要跳两次一层才休息),小A想用最短的时间爬到塔顶,可是他不能找到时间最短的方案,所以请你帮他找到一个时间最短的方案让他爬到塔顶,小A只关心时间,所以你只要告诉他最短时间是多少就可以了.你可以最后跳到塔外即超过塔高.
【输入格式】
第一行一个数n (n<=10000),表示塔的层数.
接下来的n行每行一个数(<=100),表示从下往上每层的高度.
【输出格式】
一个数,表示最短时间
【样例输入】
5
3
5
1
8
4
【样例输出】
1
【数据规模】
对20%的数据,n<=10
对40%的数据,n<=100
对60%的数据,n<=5000
对100%的数据,n<=10000
(样例说明)
4、最小公倍数(lcm.pas/c/cpp)
【问题描述】
Taking their cue from the builders of the USA's Interstate Highway system, the cows have introduced the Interpasture Path numbering system. They have already numbered the N (2 <= N <= 25) pastures with the integers 1..N and now are numbering each path between two pastures with its own distinct Interpasture Path number in the range 1..2000
(e.g., I-9 and I-16).
In an example Interpasture Path map, four pastures numbered 1, 2, 3, and 4 are connected by Interpasture Paths I-3, I-6, I-9, and I-16:
4--< I-6>--2
/ /
< I-16> < I-9>
/ /
1--< I-3>--3
Bessie likes to walk from pasture 1 to pasture 2 on the nifty new Interpasture system. During each walk, she never visits the same pasture twice, so possible walks on the sample map above are 1-4-2 and 1-3-2.
Over the years, Bessie has developed an amazing mathematical skill that she likes to exercise. During each walk, she enjoys finding the greatest common factor (GCF) of the Interpasture Paths that she traverses. For instance, the walk designated 1-4-2
touches I-16 and I-6 which have the greatest common factor of 2 (since 2 properly divides into 16 and 6 but no larger integer does).
As she walks the pastures day after day, she takes all the possible routes from pasture 1 to pasture 2 and remembers each of the GCFs. After she has taken every possible walk once, she computes the least common multiple (LCM) of all the GCFs. For this example, the two GCF values are 2 and 3 (GCF(6,16)=2 and GCF(3,9)=3), so the LCM is 6.
For large networks of paths, Bessie might get tired of all the walking, but she really wants to know the LCM for every map. Calculate that number for her.
上面英文题目的意思就是：给出一个邻接矩阵，求出从编号为1的点到编号为2的点之间的所有路径所经过边长度的最大公约数的最小公倍数。
【输入】
第1行：一个整数N
第2到N+1行：表示路径的一个邻接矩阵
【输出】
一个整数，就是所求的最小公倍数LCM
【样例输入】
4
0 0 3 16
0 0 9 6
3 9 0 0
16 6 0 0
【样例输出】
6。