Free Pascal 典型题目解析.docx
- 文档编号:11614661
- 上传时间:2023-03-28
- 格式:DOCX
- 页数:17
- 大小:50.38KB
Free Pascal 典型题目解析.docx
《Free Pascal 典型题目解析.docx》由会员分享,可在线阅读,更多相关《Free Pascal 典型题目解析.docx(17页珍藏版)》请在冰豆网上搜索。
FreePascal典型题目解析
FreePascal典型题目解析
解析人:
704班应炜
试题网址:
1.键盘输入两数(整形),输出两数和。
输入:
1248
输出:
60
var
a,b,c:
longint;
begin
read(a,b);
c:
=a+b;
write(c);
end.
2.求圆的周长和面积。
输入:
10.0
输出:
62.80314.00
const
pi=3.1415;
var
r,c,s:
real;
begin
read(s);
c:
=2*r*pi;
s:
=r*r*pi;
write(c:
0:
2,’‘,s:
0:
2);//保留2位小数,并空一格输出
end.
3.计算1+2+3+……+n的和
输入:
100
输出:
5050
var
i,n,s:
longint;
begin
read(n);
s:
=0;
fori:
=1tondo//注意,do后面没有封号
s:
=s+i;
write(s);
end.
4.求两数较大者。
输入:
158
输出:
15
var
a,b:
longint;
begin
read(a,b);
ifa>bthenwrite(a);
ifa end. 5.求梯形或矩形(长方形)的面积 矩形: 输入: 10050 输出: 5000 var a,b,s: integer; begin read(a,b); s: =a*b; write(s); end. 梯形: 输入: 123 输出: 4.50 var a,b,h,s: real; begin read(a,b,h); s: =(a+b)*h/2; write(s: 0: 2); end. 6.计算阶乘! 。 输入: 5 输出: 120 var n,i: longint; s: int64; begin readln(n); s: =1; fori: =2tondo s: =s*i; writeln(s); end. 7.求100-999中的水仙花数,(若三位数abc,abc=a^3+b^3+c^3,则称abc为水仙花数。 如153,1^3+5^3+3^3=1+125+27=153,则153是水仙花数) var a,b,c: integer; begin fora: =1to9do forb: =0to9do forc: =0to9do if(a*100+b*10+c)=a*a*a+b*b*b+c*c*c thenwriteln(a*100+b*10+c) end. 8.典型练习题。 (1)计算12+22+32+42+……+1002的和 (2)输出1~100中所有100的整奇数 (3)求1000-9999中的水仙花数 (4)计算立方体的体积 9.第十七届全国信息学奥林匹克竞赛初赛试题。 第十七届全国青少年信息学奥林匹克联赛初赛试题 (普及组Pascal语言两小时完成) ●●全部试题答案均要求写在答卷纸上,写在试卷纸上一律无效●● 一、单项选择题(共20题,每题1.5分,共计30分。 每题有且仅有一个正确选项。 ) 1、在二进制下,1101001+()=1110110。 A、1011B、1101C、1010D、1111 2、字符“0”的ASCII码为48,则字符“9”的ASCII码为()。 A、39B、57C、120D、视具体的计算机而定 3、一片容量为8GB的SD卡能存储大约()张大小为2MB的数码照片。 A、1600B、2000C、4000D、16000 4、摩尔定律(Moore'slaw)是由英特尔创始人之一戈登·摩尔(GordonMoore)提出来的。 根据摩尔定律,在过去几十年以及在可预测的未来几年,单块集成电路的集成度大约每()个月翻一番。 A、1B、6C、18D、36 5、无向完全图是图中每对顶点之间都恰有一条边的简单图。 已知无向完全图G有7个顶点,则它共有()条边。 A、7B、21C、42D、49 6、寄存器是()的重要组成部分。 A、硬盘B、高速缓存C、内存D、中央处理器(CPU) 7、如果根结点的深度记为1,则一棵恰有2011个叶结点的二叉树的深度最少是()。 A、10B、11C、12D、13 8、体育课的铃声响了,同学们都陆续地奔向操场,按老师的要求从高到矮站成一排。 每个同学按顺序来到操场时,都从排尾走向排头,找到第一个比自己高的同学,并站在他的后面。 这种站队的方法类似于()算法。 A、快速排序B、插入排序C、冒泡排序D、归并排序 9、一个正整数在二进制下有100位,则它在十六进制下有()位。 A、7B、13C、25D、不能确定 10、有人认为,在个人电脑送修前,将文件放入回收站中就是已经将其删除了。 这种想法是()。 A、正确的,将文件放入回收站意味着彻底删除、无法恢复 B、不正确的,只有将回收站清空后,才意味着彻底删除、无法恢复 C、不正确的,即使将回收站清空,文件只是被标记为删除,仍可能通过恢复软件找回 D、不正确的,只要在硬盘上出现过的文件,永远不可能被彻底删除 11、广度优先搜索时,需要用到的数据结构是()。 A、链表B、队列C、栈D、散列表 12、在使用高级语言编写程序时,一般提到的“空间复杂度”中的“空间”是指()。 A、程序运行时理论上所占的内存空间 B、程序运行时理论上所占的数组空间 C、程序运行时理论上所占的硬盘空间 D、程序源文件理论上所占的硬盘空间 13、在含有n个元素的双向链表中查询是否存在关键字为k的元素,最坏情况下运行的时间复杂度是()。 A、O (1)B、O(logn)C、O(n)D、O(nlogn) 14、生物特征识别,是利用人体本身的生物特征进行身份认证的一种技术。 目前,指纹识别、虹膜识别、人脸识别等技术已广泛应用于政府、银行、安全防卫等领域。 以下不属于生物特征识别技术及其应用的是()。 A、指静脉验证B、步态验证C、ATM机密码验证D、声音验证 15、现有一段文言文,要通过二进制哈夫曼编码进行压缩。 简单起见,假设这段文言文只由4个汉字“之”、“乎”、“者”、“也”组成,它们出现的次数分别为700、600、300、200。 那么,“也”字的编码长度是()。 A、1B、2C、3D、4 16、关于汇编语言,下列说法错误的是()。 A、是一种与具体硬件相关的程序设计语言 B、在编写复杂程序时,相对于高级语言而言代码量较大,且不易调试 C、可以直接访问寄存器、内存单元、以及I/O端口 D、随着高级语言的诞生,如今已完全被淘汰,不再使用 17、()是一种选优搜索法,按选优条件向前搜索,以达到目标。 当探索到某一步时,发现原先选择并不优或达不到目标,就退回一步重新选择。 A、回溯法B、枚举法C、动态规划D、贪心法 18、1956年()授予肖克利(WilliamShockley)、巴丁(JohnBardeen)和布拉顿(WalterBrattain),以表彰他们对半导体的研究和晶体管效应的发现。 A、诺贝尔物理学奖 B、约翰·冯·诺依曼奖 C、图灵奖 D、高德纳奖(DonaldE.KnuthPrize) 19、对一个有向图而言,如果每个节点都存在到达其他任何节点的路径,那么就称它是强连通的。 例如,右图就是一个强连通图。 事实上,在删掉边()后,它依然是强连通的。 A、aB、bC、cD、d 20、从ENIAC到当前最先进的计算机,冯·诺依曼体系结构始终占有重要的地位。 冯·诺依曼体系结构的核心内容是()。 A、采用开关电路B、采用半导体器件 C、采用存储程序和程序控制原理D、采用键盘输入 二、问题求解(共2题,每题5分,共计10分) 1、每份考卷都有一个8位二进制序列号。 当且仅当一个序列号含有偶数个1时,它才是有效的。 例如,00000000、01010011都是有效的序列号,而11111110不是。 那么,有效的序列号共有________个。 2、定义字符串的基本操作为: 删除一个字符、插入一个字符和将一个字符修改成另一个字符这三种操作。 将字符串A变成字符串B的最少操作步数,称为字符串A到字符串B的编辑距离。 字符串"ABCDEFG"到字符串"BADECG"的编辑距离为________。 三、阅读程序写结果(共4题,每题8分,共计32分) 1、 Var n,m,i,ans: Integer; Begin Readln(n,m); ans: =0; i: =n; Whilei<=mDo Begin ans: =ans+i; Inc(i); End; Writeln(ans); End. 输入: 1020 输出: __________________ 2、 Var map,tel: String; i: Integer; Begin map: ='22233344455566677778889999'; Readln(tel); Fori: =1ToLength(tel)Do If(tel[i]>='0')AND(tel[i]<='9') ThenWrite(tel[i]) Else If(tel[i]>='A')AND(tel[i]<='Z') ThenWrite(map[Ord(tel[i])-Ord('A')+1]); End. 输入: CCF-NOIP-2011 输出: __________________ 3、 Const SIZE=100; Var n,i,sum,x: Integer; a: Array[1..SIZE]OfInteger; Begin Readln(n); FillChar(a,SizeOf(a),0); Fori: =1TonDo Begin Read(x); Inc(a[x]); End; i: =0; sum: =0; Whilesum<(nDIV2+1)Do Begin Inc(i); sum: =sum+a[i]; End; Writeln(i); End. 输入: 11 45664332321 输出: __________________ 4、 Varn,m: Integer; Functionsolve(n,m: Integer): Integer; Vari,sum: Integer; Begin Ifm=1Then Begin solve: =1; Exit; End; sum: =0; Fori: =1Ton-1Do sum: =sum+solve(i,m-1); solve: =sum; End; Begin Readln(n,m); Writeln(solve(n,m)); End. 输入: 74 输出: __________________ 四、完善程序(前11空,每空2分,后2空,每空3分,共计28分) 1、(子矩阵)输入一个n1*m1的矩阵a,和n2*m2的矩阵b,问a中是否存在子矩阵和b相等。 若存在,输出所有子矩阵左上角的坐标;若不存在输出“Thereisnoanswer”。 Const SIZE=50; Var n1,m1,n2,m2,i,j,k1,k2: Integer; a,b: Array[1..SIZE,1..SIZE]OfInteger; good,haveAns: Boolean; Begin Readln(n1,m1); Fori: =1Ton1Do Forj: =1Tom1Do Read(a[i][j]); Readln(n2,m2); Fori: =1Ton2Do Forj: =1Tom2Do ①; haveAns: =FALSE; Fori: =1Ton1-n2+1Do Forj: =1To②Do Begin ③; Fork1: =1Ton2Do Fork2: =1To④Do Ifa[i+k1-1][j+k2-1]<>b[k1][k2]Then good: =FALSE; IfgoodThen Begin Writeln(i,'',j); ⑤; End; End; IfNOThaveAnsThen Writeln('Thereisnoanswer'); End. 2、(大整数开方)输入一个正整数n(1≤n<10100),试用二分法计算它的平方根的整数部分。 Const SIZE=200; Type hugeint=Record len: Integer; num: Array[1..SIZE]OfInteger; End; //len表示大整数的位数;num[1]表示个位、num[2]表示十位,以此类推 Var s: String; i: Integer; target,left,middle,right: hugeint; Functiontimes(a,b: hugeint): hugeint; //计算大整数a和b的乘积 Var i,j: Integer; ans: hugeint; Begin FillChar(ans,SizeOf(ans),0); Fori: =1Toa.lenDo Forj: =1Tob.lenDo ①: =ans.num[i+j-1]+a.num[i]*b.num[j]; Fori: =1Toa.len+b.lenDo Begin ans.num[i+1]: =ans.num[i+1]+ans.num[i]DIV10; ②; Ifans.num[a.len+b.len]>0 Thenans.len: =a.len+b.len Elseans.len: =a.len+b.len-1; End; times: =ans; End; Functionadd(a,b: hugeint): hugeint; //计算大整数a和b的和 Var i: Integer; ans: hugeint; Begin FillChar(ans.num,SizeOf(ans.num),0); Ifa.len>b.len Thenans.len: =a.len Elseans.len: =b.len; Fori: =1Toans.lenDo Begin ans.num[i]: =③; ans.num[i+1]: =ans.num[i+1]+ans.num[i]DIV10; ans.num[i]: =ans.num[i]MOD10; End; Ifans.num[ans.len+1]>0 ThenInc(ans.len); add: =ans; End; Functionaverage(a,b: hugeint): hugeint; //计算大整数a和b的平均数的整数部分 Var i: Integer; ans: hugeint; Begin ans: =add(a,b); Fori: =ans.lenDownTo2Do Begin ans.num[i-1]: =ans.num[i-1]+(④)*10; ans.num[i]: =ans.num[i]DIV2; End; ans.num[1]: =ans.num[1]DIV2; Ifans.num[ans.len]=0 ThenDec(ans.len); average: =ans; End; Functionplustwo(a: hugeint): hugeint; //计算大整数a加2后的结果 Var i: Integer; ans: hugeint; Begin ans: =a; ans.num[1]: =ans.num[1]+2; i: =1; While(i<=ans.len)AND(ans.num[i]>=10)Do Begin ans.num[i+1]: =ans.num[i+1]+ans.num[i]DIV10; ans.num[i]: =ans.num[i]MOD10; Inc(i); End; Ifans.num[ans.len+1]>0 Then⑤; plustwo: =ans; End; Functionover(a,b: hugeint): Boolean; //若大整数a>b则返回1,否则返回0 Var i: Integer; Begin If(⑥)Then Begin over: =FALSE; Exit; End; Ifa.len>b.lenThen Begin over: =TRUE; Exit; End; Fori: =a.lenDownTo1Do Begin Ifa.num[i] Begin over: =FALSE; Exit; End; Ifa.num[i]>b.num[i]Then Begin over: =TRUE; Exit; End; End; over: =FALSE; End; Begin Readln(s); FillChar(target.num,SizeOf(target.num),0); target.len: =Length(s); Fori: =1Totarget.lenDo target.num[i]: =Ord(s[target.len-i+1])-⑦; FillChar(left.num,SizeOf(left.num),0); left.len: =1; left.num[1]: =1; right: =target; Repeat middle: =average(left,right); Ifover(⑧) Thenright: =middle Elseleft: =middle; Untilover(plustwo(left),right); Fori: =left.lenDownTo1Do Write(left.num[i]); Writeln; End. CCFNOIP2011普及组(Pascal语言)参考答案与评分标准 一、单项选择题(共20题,每题1.5分,共计30分) 1 2 3 4 5 6 7 8 9 10 B B C C B D C B C C 11 12 13 14 15 16 17 18 19 20 B A C C C D A A A C 二、问题求解(共2题,每题5分,共计10分) 1.128 2.3 三、阅读程序写结果(共4题,每题8分,共计32分) 1.165 2.22366472011 3.3 4.20 四、完善程序(前11空,每空2分,后2空,每空3分,共计28分) (说明: 以下各程序填空可能还有一些等价的写法,各省可请本省专家审定和上机验证,不一定上报科学委员会审查) 1.①read(b[i][j]) ②m1-m2+1 ③good: =true ④m2 ⑤haveAns: =true 2.①ans.num[i+j-1] ②ans.num[i]: =ans.num[i]mod10; ③ans.num[i]+a.num[i]+b.num[i]; ④ans.num[i]mod2(或ans.num[i]and1) ⑤inc(ans.len)(或ans.len: =ans.len+1) ⑥a.len ⑦ord('0')(或48) ⑧times(middle,middle),target
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Free Pascal 典型题目解析 典型 题目 解析