一道pascal编程题，求大师解答。题目：1,2两队进行篮球比赛，比赛共48分钟，要你来记分，现在你突然对两支队伍领先持续的总时间感兴趣。 第一行包含一个整数N(1_百度作业帮
一道pascal编程题，求大师解答。题目：1,2两队进行篮球比赛，比赛共48分钟，要你来记分，现在你突然对两支队伍领先持续的总时间感兴趣。 第一行包含一个整数N(1
一道pascal编程题，求大师解答。题目：1,2两队进行篮球比赛，比赛共48分钟，要你来记分，现在你突然对两支队伍领先持续的总时间感兴趣。 第一行包含一个整数N(1
假设每次得分所得的分值均为1。程序如下：var
no:array[1..200]
tr:array[1..200]
s:string[7];
t1m,t1s,t2m,t2s:
score1,score...Pascal百题练习75-第3页
上亿文档资料，等你来发现
Pascal百题练习75-3
64、求两个自然数M和N的最小公倍数；65、小会议室里有几条相同的长凳,有若干人参加开；66、某动物饲养中心用1700元专款购买小狗(每；67、某整数X加上100就成为一个完全平方数,如；68、某次同学聚会,老同学见面个个喜气洋洋,互相；69、输入年、月、日，输出该天是一年中第几天，该；70、输入年、月、日和天数，输出该天经过指定天数；如输入
64、求两个自然数M和N的最小公倍数。（如果求三个或更多个数的最小公倍数呢？应如何解决）65、小会议室里有几条相同的长凳,有若干人参加开会。如果每条凳子坐6人,结果有一条凳子只坐有3人;如果每条凳子坐5人,就有4人不得不站着。求会议室里有多少人开会,有多少条长凳?66、某动物饲养中心用1700元专款购买小狗(每只31元)和小猫(每只21元)两种小动物。要求专款专用,正好用完, 应当如何购买?请输出所有方案。67、某整数X加上100就成为一个完全平方数,如果让X加上168 就成为另一个完全平方数。求X?68、某次同学聚会,老同学见面个个喜气洋洋,互相握手问好。参加此次聚会者每人都与老同学握了一次手,共握903次,试求参加聚会的人数？69、输入年、月、日，输出该天是一年中第几天，该天距年底还有几天；70、输入年、月、日和天数，输出该天经过指定天数后的日期；如输入 20 输出为71、输入时、分和一个分钟数，输出经过该分钟数的时间如输入5时30分，180分，输出经过180钟后的时间，即8时30分。72、编程求1平方+2平方+...+n平方（用for、repeat、while三种方法解）73、编程求1+1/2+1/3+...+1/n（用for、repeat、while三种方法解）74、编程求1-1/2+1/3-1/4+1/5-1/6...+1/n（用for、repeat、while三种方法解）75、编程求1-2+3-4+5-6+..+ n（用for、repeat、while三种方法解）76、编程计算1+(1+1/2)+(1+1/2+1/3)+ (1+1/2+1/3+1/4)...+(1+1/2+...+1/n)（用for、repeat、while三种方法解）77、求100+97+……+4+1的值（用for、repeat、while三种方法解）78、找出1－N中能被5整除且至少有一位数字是5的所有整数的个数.N&3276779、编程求正整数M与N之间的所有素数的个数.（M&=N）80、现有1,2,3,4,5……n整数分多列排列，其中每列放x个，（1）输入n、x，编程输出n在第几排第几列。如输入16
6（2）输入n、x，编程在屏幕上输出如下排列的数字1
15 81、算算以?.?结束的一串字符中含有多少个大写的英文字母。82、输入整数n,输出数中各位数之和。如输入3541，输出为13，输入125，输出8 83、输出100 以内的全部素数，要求每行显示5 个。 84、A、B两个自然数的和、差、积、商四个数加起来等于243，求A、B两数。85、求两个自然数M和N的最大公约数。 86、从键盘输入一个整数X（X不超过10000），若X的各位数字之和为7的倍数，则打印“Yes”，否则中打印“No”。87、算算以?#?结束的一串字符中字母A、B、C各有几个（不区分大小写）
输入一字符串如ABcdAbCD#，输出A
288、输出如下数字图形12
11 12 1314 15 16
18 19 20 21 2289、输出如下图形：
#######*********90、编程计算1*3+3*5+5*7+7*9+…+99*10191、Faibonacci数列前几项为: 0,1,1,2,3,5,8,…,其规律是从第三项起, 每项均等于前两项之和。求前30项,
并以每行5个数，场宽6的格式输出。92、给出某整数N,将N写成因数相乘的形式。如: N=12,输出: 12=1*2*2*3.93、求满足条件 N！≤ 100000 的最大值N94、给出一个正整数N（1≤N≤100），即可得到一个由N 个正整数组成的从1开始的如下数列：1，2，3，4，……N-2,N-1,N，且可求出从1开始的这N个数的全部各个数位上的数字之和。 例如：当N=12时，这12个数是：1，2，3，4，5，6，7，8，9，10，11，12。则这12个数的数字之和为： S=1+2+3+4+5+6+7+8+9+1+0+1+1+1+2=5195、小明坐公交车去学校，他从公交站台上车后，数了一下车上的人数。此后公交车每次到站，小明都数一下有多少名乘客上车，小明下车之前，又数了一下车上剩下的乘客的数目，问期间有多少名乘客下车。输入数据的第一行是一个整数N（1≤N≤100），表示小明坐车经过了多少站。按下来N 行每行包含一个整数x（0≤x≤10），表示在这一站有多少名乘客上车。此后还有一行包含两个整数A（0≤A≤20）和B（0≤N≤20），分别表示小明上车时车上乘客的数目和他下车时车上乘客的数目。输出数据只有一行，是小明坐车期间下车的乘客数目。【样例输入】35678 9 【样例输出】1795编程序打印出下列图案：平行四边形
等腰三解形
菱形******
***********
*96编程打印出如下图案：122233333444444497题目描述小亮是个数学迷，这天他看着发钟发呆，忽然想到一个数学问题：在某一时刻，时针和分针的夹角会是多少度？输入一行：三个整数，h ( 0 &= h & 24 )，m ( 0 &= m & 60 )，s ( 0 &= s & 60 )。分别表示时、分、秒。 输出一行：一个整数，表示这一时刻时针和分针夹角的度数。所有的夹角度数都在[0-180]范围内，输出夹角的大小的整数部分。样例输入1 0 0样例输出3098题目描述 有一头成年母牛，当年年初生一头小母牛。每头小母牛在从出生那一年算起的第四年的年初成年（算当年，实际指三年后），也能生一头小母牛（哇，全生母牛，这样公牛就不怕找不到媳妇了），问n年后共有多少头母牛（母牛全是长生不老的，且无灾无病，成年后永久保持生育能力――每年都能生一头小母牛）。输入一行：一个整数n（0 & n &= 55）。输出一行：一个整数，表示n年后母牛一共的头数。样例输入4样例输出6提示输出解释――第一年时，一只成年母牛生下一只小母牛，第一年有2只母牛；第二年时，这只成年母牛又生下一只小母牛，第二年有3只母牛；第三年时再生一只，第三年有4只母牛；第四年时再生一只，同时第一年生的小母牛成年了，也生下一只小母牛，一共有6只母牛。 数据规模――30%的数据满足n&=6；100%的数据满足n&=55。99题目描述 某人摘下一些桃子，第一天卖掉一半，又吃了一个，第二天卖掉剩下的一半，又吃了一个，以后各天都是如此处理，到第n天发现只剩下一只桃子，试编写程序计算一共摘的桃子个数。 输入一行：一个整数n（1 & n &= 1000）输出一行：一个整数，表示一开始的桃子个数。样例输入2样例输出4提示数据规模―― 30%的数据满足n & 31；60%的数据满足n & 63；100%的数据满足n &= 1000。 100
S=1+2+3+…n
输入一个数据k，求s&=k时的n的最大值。包含各类专业文献、高等教育、中学教育、应用写作文书、专业论文、Pascal百题练习75等内容。　
　Free Pascal练习题_五年级数学_数学_小学教育_教育专区。Free Pascal练习题1...2. 百鸡问题:一只公鸡值 3 元,一只母鸡值 1 元,而 1 元可买 3 只小鸡... 　pascal语言基础练习题_IT/计算机_专业资料。pascal语言基础练习题算法...{取百位数} if i=a*a*a+b*b*b+c*c*c then writeln(i:6); ... 　12、百鸡问题:一只公鸡值 5 元,一只母鸡值 3 元,而 1 元可买 3 只小鸡...每套Pascal语言试题 4页 免费 Pascal语言7 15页 1下载券 Pascal语言配套练习 6... 　Pascal 循环练习题及解_IT/计算机_专业资料。Pascal 循环练习题及解Pascal 循环练习题及解 (1) ?1.编程求出 1!+2!+3!+……….+n!的值 program jjb(inpu... 　freepascal过程练习题_IT认证_资格考试/认证_教育专区。Freepascal 过程练习题 1、 输入三个不同的整数,按由小到大排序。 输入样例: 213 输出样例: 123 2、 ... 　pascal习题PASCAL 基础训练题目及题解 【execans.2 为深度优先搜索,广度优先搜索类,及技巧性题目题解】 【题目 1】N 皇后问题(八... 　pascal初级班练习题 3页 2财富值 Pascal基础练习题 2页 免费 Pascal冲刺练习题 13页 免费 第2讲_pascal练习题 5页 免费 Free Pascal练习题 5页 免费 pascal程... 　Pascal语法基础习题_电脑基础知识_IT/计算机_专业资料。很全面的语法基础习题,分章节整理的。Pascal 语法基础习题第一题:下列哪些常量是对的,哪些是错误的,错在哪?... 　PASCAL程序设计习题 2页 免费 pascal 习题 完善程序 27页 免费 PASCAL竞赛辅导习题二 19页 1下载券 Pascal上机习题 6页 免费 pascal练习题 16页 免费喜欢...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—VAR—TYPE　　Ｂ、VAR—CONST—LABEL—TYPE
　　Ｃ、LABEL—CONST—TYPE—VAR　　Ｄ、CONST—VAR—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)
　　　　若运行时输入：
　　　　　1　2　3＜ENTER＞
　　　　　4　5　6＜ENTER＞
　　　　　7　8　9＜ENTER＞
　　　　其中＜ENTER＞表示回车符，则输出是（　）
　　　Ａ、123　　Ｂ、147　　Ｃ、784
　１５、下列表达式中，其值为TRUE的是（　）
　　Ａ、150&=150　　　Ｂ、100&150　　　　　　　Ｃ、Abs(-200)&&200　　Ｄ、Succ('A')
　　Ｅ、'ab'&'abc'　　Ｆ、Succ(False)=True 　　Ｇ、0dd(35+1)=FaLse
　Ｈ、219&&219
　１６、有变量说明：
　　　　　VAR i1,i2:I
　　　　　　　r1,r2:R
　　　　　　　b1,b2:B
　　　　设各变量均已赋值，下列中错误的赋值语句是（　）
　　Ａ、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:=r2+r1
　１７、下面一段程序是用（　）)语言书写的
　　　　int funcl (int n){
　　　　　int i,sum=0;
　　　　　for (i = 1;i＜=n;i++)
　　　　　　sum+= i*i;
　　　　　　
　　Ａ、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　4
　　　　　6　8　10
　　　　 12 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);WWriteln(f:3,g:3);
　　Ｄ、Write(a:3,b:3);WWrite(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
　２４、已知有如下说明：
　　　　　VAR
　　　　　　a,b:I
　　　　　　c,d:R
　　　　下面赋值语句合法的是（　）
　　Ａ、c:=a+b　　Ｂ、a:=Trunc(c)　　Ｃ、a:=a+b/c　　Ｄ、b:=a div d
　２５、设有变量说明：VAR 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..　　Ｂ、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练习题_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
小学Pascal练习题
阅读已结束，如果下载本文需要使用
想免费下载本文？
你可能喜欢十一届 pascal 初赛试题答案_百度知道
十一届 pascal 初赛试题答案
提问者采纳
NOIP2005 初赛模拟试题 提高组 用时：2小时 一、 单项选择题（每小题只有一个正确答案） （1） 以下关于图灵的叙述，正确的是 A． 1912年出生于法国 B． 二战时，参与了德国近乎完美的密码编译方法Enigma的设计 C． 战后以羽毛球作为消遣方式 D． 提出并实现了人工智能 E． 终身未娶 （2） 蓝牙技术是一种 A． 无线网络接入技术 B． CPU制作工艺 C． 3D图形加速技术 D． 人工智能技术 E． 图像存储技术 （3） 64位无符号整数的范围是 A． -1063 - 1063 B． -1063 - 1063-1 C． 0 - 264 D． 0 - 264-1 E． 0 - 1064-1 （4） (ABCDEF)16+(ACACACACAC)16= A． (7B9B)16 B． (7A9A)16 C． (7A9B)16 D． (8B9B)16 E． (1)2 （5） 22 or 33 and 44= A． 24 B． 36 C． 44 D． 56 E． 64 （6） 以下排序算法不会退化的是 A． 快速排序 B． 随机化快速排序 C． 二叉排序树插入后遍历输出 D． 二分查找的插入排序 E． 希尔排序 （7） 以下查找算法理论时间复杂度最低的是 A． 顺序查找 B． 散列查找 C． 二分查找 D． 二叉排序树 E． 红-黑树 （8） 入栈的顺序为1,2,3,4的序列，出栈顺序不可能的是 A． 1 2 3 4 B． 4 3 2 1 C． 1 2 4 3 D． 1 3 4 2 E． 4 1 2 3 （9） 快速排序最好情况时，时间复杂度为 A． nlogn B． nlog2n C． n*sqrt(n) D． n2 E． n2logn （10） 下列排序方法中，不能每次都能将至少一个元素放在最终位置上的是 A． 冒泡排序 B． 插入排序 C． 快速排序 D． 堆排序 E． 计数排序 二、 多项选择题（每小题有1到5个正确答案） （1） 以下属于编译器的有 A． TP B． BP C． FPC D． GPC E． Delphi7 （2） 以下关于算法，正确的有 A． 算法必须有输入 B． 算法必须有输出 C． 算法必须执行有限次后结束 D． 算法必须能够以某种语言在计算机上实现 E． 算法的每一个步骤必须有确定的语言表示方法 （3） 下列属于冯.诺依曼计算机模型的核心思想有 A． 采用二进制表示数据和指令 B． 采用”存储程序”工作方式 C． 计算机硬件有五大部件(运算器、控制器、存储器、输入和输出设备) D． 结构化程序设计方法 E． 计算机软件只有系统软件 （4） (01314)8= A. (16C611)16 B. ( C. ( D. ( E. ( （5） 以下问题模型属于NP的有 A． 含有负权环且每点仅经过至多一次的最短路径 B． 01背包 C． 一般图的哈密尔顿回路 D． 一般图的欧拉回路 E． 将地图用4种颜色着色 （6） 对于序列1 8 14 23 29 44 52，用散列表存储，散列函数为h(k)=k mod p，不会产生冲突的p有： A． 16 B． 17 C． 18 D． 19 E． 20 （7） 无向图G=(V,E)， V={a,b,c,d,e,f}, E={(a,b),(a,c),(a,e),(b,e),(c,f),(f,d),(d,e)}，下列哪些深度优先遍历结果是正确的？ A． a,c,f,e,d,b B． a,e,f,c,d,b C． a,b,e,c,d,f D． a,b,e,d,f,c E． a,b,c,d,e,f （8） 下列关于排序的说法，正确的有 A． 插入排序、冒泡排序是稳定的 B． 选择排序的时间复杂性为O(nlogn) C． 选择排序、希尔排序、快速排序、堆排序是不稳定的 D． 希尔排序、快速排序、堆排序的时间复杂性为O(nlogn) E． 快速排序是速度最快的排序 （9） 下列逻辑运算正确的是 A. A•（A + B ）= A B. A +（A•B）= A C. A•（B + C ）= A•B + A•C D. A +（B•C）=（A + B）•（A + C） E. A+1=A （10） 将高级语言程序转换为可执行文件必不可少的步骤有 A. 调试程序 B. 解释程序 C. 编辑程序 D. 编译程序 E. 连接程序 三、 问题求解 （1） 动态规划是竞赛中常用的解题策略，请下出下面试题的状态转移方程： 有2个字符串a和b，请问，它们的最长公共子序列的最大长度是多少？ 例如，&abcdefg&和&gacefg&的最长公共子序列是&acefg&。 （2） 求f(n) = f(n-1) + f(n-2)的通项公式，其中f(0)=0, f(1)=1 四、 阅读程序，写出运行结果 （1） 阅读下面一段程序，写出运行结果 var T, Y, S, P, J, B : I Begin ReadLn(S, P, Y, J); T := 12 + J - P - Y; B := T div 3; Case T Mod 3 Of 1: If S + P = Y Then Inc(Y) Else Inc(P); 2: Begin inc(P); Inc(Y); E E Writeln(B + Y, ' ', B + P, ' ', B); End. 输入：8 7 5 4 （2） 阅读下面一段程序，写出运行结果 Var A, B, N, i : L f : Array[1..1000000] Of B Begin Readln(A, B, N); f[1] := 1; f[2] := 1; For i := 3 To N Do f[i] := (A * f[i-1] + B * f[i-2]) mod 7; WriteLn(f[N]); End. 输入：5 2 123456 （3） 阅读下面一段程序，写出运行结果 Var i, N, M : L Function J(N : Longint):L Var B : Array[1..1000000] Of B P : L Function Next(P : Longint):L Begin P := (P + 1) Mod N; If P = 0 Then P := N; While not B[P] Do Begin P := (P + 1) Mod N; If P = 0 Then P := N; E Next := P; E Begin FillChar(B,SizeOf(B),True); P := 1; For i := 1 To N - 1 Do Begin P := Next(P); B[P] := F P := Next(P); E J := P; E Begin ReadLn(N, M); For i := 1 To M Do N := J(N); WriteLn(N); End. 输入：7 2 输入：677 五、 补完程序 （1） 将下列程序补充完整 [问题描述]将一个输入的十进制整数转换成二进制 Var N : L Ans : S Begin ReadLn(N); Ans := ____(1)____; While (N & 0) Do Begin If (N Mod 2 = 0) Then Ans := ____(2)____ Else Ans := ____(3)____; N := ____(4)____; E Writeln(Ans); End. （2） 将下列程序补充完整 [问题描述]求一个序列当中的第k小数，并且将它输出 [算法描述]利用快速排序的划分思想，每次划取一半。 Type ArrType = Array[1..10000] of I Var A : A N, K, I : I Function Find(A:ArrT P, R, K : Integer): I Procedure Swap(Var A, B: Integer); Var Tmp : I Begin Tmp := A; A := B; B := T E Function Partition(P, R: Integer): I Var x, t, i, j : I Begin x := ____(1)____; i := P - 1; j := R + 1; Repeat Repeat Dec(j); Until ____(2)____; Repeat Inc(i); Until ____(3)____; If ____(4)____ Then Swap(A[i],A[j]) Else B Until F Partition := E Function Select(P, R, i : Integer):I Var q, k : Begin If ____(5)____ Then Select := A[P] Else Begin q := Partition(P, R); k := ____(6)____; If (i&=k) Then Select:= ____(7)____ Else Select:= ____(8)____; E E Begin Find := Select(P, R, K); E Begin ReadLn(N, K); For i := 1 To N Do Read(A[i]); Writeln(Find(A, 1, N, K)); End. （3） 将下列程序补充完整 [问题描述]输入n个数，求一个和最大的连续子序列，而且序列的长度在L1和L2之间 [算法描述]使用堆维护。 Type Dat=Record W, Num:L E Var M, P, N, L1, L2, I, Now, J, Len, Base, Max:L Heap:Array[1..200000] Of D Where:Array[1..200000] Of L InNum:Array[1..200000] Of L Procedure Swap(Var A, B:D Which:Longint); Var I:D Begin Where[A.W]:= ____(1)____; Where[B.W]:= ____(2)____; I:=A; A:=B; B:=I; E Procedure Ins(N, M:Longint); Var I:L Begin Inc(Len); Heap[Len].Num:=N; Heap[Len].W:=M; I:=L While (I Div 2&0) And (____(3)____) Do Begin Swap(Heap[I], Heap[I Div 2], I); I:=I Div 2; E Where[M]:=I; E Procedure Del(Which:Longint); Var I:L Begin Heap[Which]:=Heap[Len]; Where[Heap[Which].W]:=W I:=W While (I Div 2&0) And (Heap[I].Num&Heap[I Div 2].Num) Do Begin Swap(Heap[I], Heap[I Div 2], I); I:=I Div 2; E While ((I*2&=Len-1) And (Heap[I].Num&Heap[I*2].Num)) Or ((I*2+1&=Len-1) And (Heap[I].Num&Heap[I*2+1].Num)) Do Begin If Heap[I*2].Num&Heap[I*2+1].Num Then Begin Swap(Heap[I*2], Heap[I], I*2); I:= ____(4)____; End Else Begin Swap(Heap[I*2+1], Heap[I], I*2+1); I:= ____(5)____; E E Heap[Len].Num:=0; Heap[Len].W:=0; Dec(Len); E Begin Len:=0; Now:=0; Max:=-MaxL Readln(N, L1, L2); For I:=1 To L2 Do Begin Read(J); Inc(Now, J); InNum[I]:=N If I&=L1 Then Ins(Now, I); E Max:=Heap[1].N For I:=L2+1 To N Do Begin Read(J); Inc(Now, J); InNum[I]:=N Base:=InNum[____(6)____]; Del(____(7)____); Ins(Now, I); If Heap[1].Num-Base&Max Then Max:=Heap[1].Num-B E For I:= ____(8)____ Do Begin Base:=InNum[I-L1+1]; Del(Where[I]); If Heap[1].Num-Base&Max Then Max:=Heap[1].Num-B E Writeln(Max); End. ***************************************************************** NOIP2004初赛模拟 - 试题分析 单项选择题 1 - 图灵与1912年出生于英国伦敦，二战时，参与了Enigma的破译工作，战后以长跑作为消遣，提出了人工智能，但是至今仍然没有人实现。他终身未娶； 答案：E 2 - 蓝牙技术是无线接入技术，答案：A 3 - 64位为64位二进制，无符号则为0到2^64-1；答案：D 4 - 基本的数制转换问题，答案：E 5 - 位操作就是对二进制数的每一位进行位操作，注意优先级，先计算and，再计算or，答案：D 6 - 随机化快速排序虽然几乎不会出现退化情况，但是仍然是存在的，仍然不能说明是稳定的。二分查找的插入排序，复杂度以插入的时间O(n)计算，故仍然是稳定的n^2，答案：D。 7 - 顺序查找为O(n)，散列查找为O(1)，后3种查找复杂度均为logn。答案：B 8 - 栈是后进先出的线性表，根据栈的性质，E是不可能的 9 - 快速排序平均情况和最好情况时间复杂度都是nlogn 10 - 插入排序最后一趟可能调整所有表中的元素，故错误。 多项选择题 1 - TP、BP等都是软件，而非编译器，答案CD 2 - 算法可以没有输入。故选BCDE 3 - 结构化程序设计是那什和B.施耐德曼提出的，而E根本就不正确，故选ABC 4 - 进制转化，答案BD 5 - 欧拉回路不是NP问题，随着四色定理的证明，四色问题也就不是NP问题。其他几个为NP问题，答案ABC 6 - 根据散列表的性质，选AE 7 - 根据深度有先遍历的深度性质，选D 8 - 注意堆排序是不稳定的，答案ABC 9 - 根据逻辑运算的性质选ABCD 10 - 程序先经过编译再经过连接最终生成exe。编译出的代码不能直接在windows下运行。 问题求解 1 - 经典题，方程： opt[i, j] = opt[i-1, j-1] (a[i]=a[j]) max{opt[i-1, j], opt[i, j-1]} (a[i]&&a[j]) 2 - 通项公式为(((1+S5)/2)^n-((1-S5)/2)^n)/S5 具体解法请参见组合数学 阅读程序 1 - 基本的阅读程序方法。输出：6 9 1 2 - 手算的办法是算不了那么多项的。由于是取模运算，于是可以找到周期循环。接着问题就好解决了。答案：5 3 - 第1问可以手算，答案是7。第2问就要进行数学上的分析。 首先，J(n)返回的是，n个人按照报数的方法，出圈人的那个编号。 程序里迷惑了你，用了O(n)的算法，其实不难写出递归式： J(2n) = J(n) - 1 J(2n+1) = J(n) + 1 同样，可以对应到二进制上，进而可以得到结论： J(J(J(J(J(...J(N))...))))至多运算logn次以后就收敛，也就是J(n)不再变化。 于是只要适当模拟就可以解决问题了，第2问答案255。 补充程序 1 - 基本的进制转换，显而易见第1空应该是初始化。 接着是试除的过程。因为用了字串的操作，所以就省去了逆序的过程，而直接进行字符串操作。 2 - 这是快速排序的一个推广，程序结构写的也比较清楚了。Partition部分的答案为： (1) A[(P + R) Shr 1] //快速排序一般用这种方法避免退化，随机化效率显得略微有些不够 (2) A[j]&=x (3) A[i]&=x (4) i&j Select中，就是快速排序变形的精华所在。 (5) 空很是递推的边界。很容易得到，当P=R时，才能肯定的返回A[P]。 (6) 当中的k，是元素总数的意思，于是得到q - p + 1 7与8，分别是继续划分。7为Select(P, Q, i)，8为Select(Q+1, R, i-k)。这就保证了寻找的第k大数始终正确 3 - 部分和是很重要的一种技术，这里再加上了堆的维护，就可以实现logn的查找了。由于算法比较基本，就不做详细解答了。请同学们仔细复习数据结构上的内容。 答案： (1) Which Div 2 (2) Which (3) Heap[I].Num&Heap[I Div 2].Num (4) I*2 (5) I*2+1 (6) I-L2 (7) Where[I-L2+L1-1] (8) N-L2+L1 To N-1
其他类似问题
为您推荐：
pascal的相关知识
其他1条回答
哪一年的？
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁