1.实况足球2008下载？
2.希腊足球的参赛球队
3.要noip2008普及组复赛试题
4.高中信息学联赛经典题型(pascal)
实况足球2008下载？
文件：
匿名提取文件连接 ://pickup.mofile/6718985544944294
或登录Mofile，使用提取码 6718985544944294 提取文件
游戏名称：实况足球2008
英文名称：Pro Evolution Soccer 2008
版本名称：Winning Eleven China 2008(WECN2008)
游戏制作：KONAMI
游戏发行：KONAMI
DIY 团队：完全实况(WECN)
游戏语种：简体中文\粤语\英文
游戏类型：竞技体育
官方网站：://.konami-pes2008/
游侠0DAY信息网：://0day.ali213.net/html/2007/5213.html
更多游戏请访问：://game.ali213.net
游戏简介
[特色说明]
1.国语粤语双语解说：WECN首次尝试粤语解说。国语解说仍然由大家熟知的CCTV5记者王涛担当。粤语解说由区成兴担当。
2.真实球衣：所有国家队、俱乐部均为07-08赛季最新款真实球衣，最大程度上贴近事实。
3.详实数据：所有数据已不需要存档支持，实现了单机数据与联网数据统一。
4.精美球鞋：全部9双球鞋均为WECN的全球首席球鞋制作大师Paul81118领衔制作，品质精良，做功极其精细，尽显唯美至尊。
5.新款足球：完整收录各大重要赛事新款足球，以及数款以往经典足球
6.音乐：替换原版音乐65首中的63首，首首动听，激发你的比赛热情，升级你的耳朵！
7.华丽界面：界面一贯的酷炫的风格。同时再次大胆尝试，丝绸与足球的全新结合。
8.逼真脸型：增加了大量球队及欧锦赛各参赛队的真实脸型。
9.真实球场：增加了5个英超和德甲的半真实球场，球场无任何BUG。
10.广告牌：依然用了国际版的质感材质制作, 加入了许多大家看球时常见的广告牌
11.记分牌： 安装版里我们用了原版记分牌并配合队徽的风格做了美化。
12.队徽：用了玻璃风格的美化版队徽
13.球员场上位置图：全新制作, 超越原版, 字体清晰, 美观大方, 并有英文版和中文版两个版本供大家选择,
14.ML小细节：这次我们针对ML做了很多细节上的处理, 球迷拿的饮料 会出现百事、可口、七喜等多种品牌,球迷喝的红酒会是张裕干红；记者访用的话筒 会显示各大联赛真实LOGO 而不是原版里的LOGO了；大家都见过那个叼着队旗的小黑狗吧, 这次WECN帮他美容了, 换了一个漂亮的小哦~ ^_^
....................................
[特别说明]
要安装WECN2008中文解说正式版必须删除旧的游戏存档才能继续安装，请大家务必做好自己存档的备份！
[细节说明]
一、中文解说介绍：
国粤语解说：国语解说仍然由大家熟知的CCTV5记者王涛担当。粤语解说则由区成兴担当，虽然现在这还是个陌生的名字，但是过不了多久大家就会认识他了：）解说的后期处理做到了历届以来的最佳，希望大家在游戏中好好体验：）
为了让更多的球员拥有自己的发音，WECN小组对球员发音表进行了破解，所以中文解说和粤语解说一定要配合WECN2008正式版使用才能达到完美效果。如果单独使用解说，有些发音会出现错乱。WECN2008同样支持原版英文解说，大家可以备份一下。英文解说中的隐藏发音（比如"BALLACK“）仍然可以调用，但另外一些新增发音听不到，不过仍然可以听到比原版更多的发音。
二、球衣介绍：
WECN球衣组为广大玩家精心制作了WECN2008精品球衣。WECN球衣制作人城里人、sunlovedj倾心制作，所有国家队、俱乐部均为07-08赛季最新款真实球衣，最大程度上贴近事实。
在WECN2008原创的新版球衣模版中，既包括adidas United、adidas Libero、adidas Golpe、adidas Onore、Nike Mercurial、puma v1.04、Umbro Stamford、Umbro Forest等老款式模版，也包括adidas Toque、adidas Trofeo、nike pro、puma v1.08、Umbro Azul、Umbro Wembley等多个款式的最新球衣，全部原创模版数量达到十余个品牌的超过50个款式。
对应非洲杯、、世界杯预选赛及近期热身赛各队所用的最新球衣款式及其他新近发布的新款球衣，配合存档，完全更新全部国家队球衣；精心原创全部英超、德甲及豪门球队球衣，并对留用的原版球衣进行了修改细化，球衣总数超过1300套。
配合各队最新款式球衣，精心搭配对应号码。全部球队拥有对应的定制号码，经过反复测试调整，保证号码与队徽、品牌商标不重叠。
为了照顾不同系统配置、不同DIY水平的玩家使用，本次球衣取导入和两种形式发布，大家可以根据自己的实际情况进行选择。
由于PES2008的球衣与模版分离，游戏中显示清晰度大幅增加，在制作工艺上放弃了质感方式，完全用线条勾勒、颜色渲染、点线填充的画法，结合之前球衣制作过程中所积累的经验技法，全力制作的精美球衣，给您带来最佳的视觉享受！！！
球衣制作名单：
球衣制作: daewoo_zy(城里人)、sunlovedj
同时在此感谢Jumberto、Kleinmann、ZaGabria、Gu3d4、jvinu2000等国内外高手
三、数据介绍：
联网数据：WECN2008所有数据已不需要存档支持，实现了单机数据与联网数据统一。大家联网时要注意数据统一，不要用WECN2008正式版与之前发布的国际版或PES2008原版联机。
转会数据：所有跨年度赛季的联赛转会数据统一截至07-08赛季末，如欧洲五大联赛，而非跨年度赛季的联赛所有截至赛季中期的最新数据，如俄超，瑞超，MLS的球队，国家队名单均做了更新，考虑到联网数据不宜变动，所以为了确保联网长期可玩性，参赛队也均为常规23人名单，与名单有小小的出入，个别因特殊原因错过的国家队常规主力仍保留。在期间，大家只需在游戏编辑模式下微调就能变成版的数据。
联赛及球队替换信息：为了实现德甲荷甲同时在ML联赛模式中使用，在WECN国际版中已将原OTHER B联赛更名荷甲，由12支球队组成。因此，ML联赛模式同时德甲及荷甲俱乐部。新增球队 27支，包括：真实德甲联赛，博卡青年，圣保罗，莫斯科中央陆军，圣彼得堡泽尼特，查尔顿，布拉格斯拉维亚以及中国国奥队。
球员发音：破解了球员发音表，新增了大量发音，替换掉原版很多重复或不需要的发音，共计添加替换近200个。拥有发音的球员人数相比原版多了700多个。
作者： 蓝色の神灯 2008-6-8 16:47 回复此发言
--------------------------------------------------------------------------------
2 回复：转载 实况足球2008完美中文解说版正式发布！
球队数据：全真实名单，号码，阵型，球员补遗及阵型设置，这里要感谢国外朋友的帮助，尤其是一些来自荷兰，土耳其，希腊的玩家，给我们提供了大量很难找到的数据和资料
球员数据：新增球员达到1000多人，多为国家队及俱乐部球员补遗，所有都是从头到脚仔细编辑。所有能力数据都是经过精心制作，反复测试的，包大家满意，这里还是要感谢一些国外朋友。同时，这些数据将用于未来WECN数据库的建设，将来大家可以很方便地来我们的数据库，学习数据知识，查找更新，参与讨论等等
ML联赛信息：破解了所有类型的ID，德甲球员及其他新增球员全部完美解锁，开档全部球员超过4830人！不会出现“看得到买不到”或者“DUMMY“的情况。
破解了球员年薪参数，之前所有版本都存在的“年薪5000”的BUG在WECN2008正式版中已经得到了完美解决。
增加了编辑和屏蔽“架空球员”的新功能，当然要实现编辑功能需要解锁文件，不喜欢架空球员的朋友可以不解锁这部分球员，或在ML开档前该项中选“否”即可。这些破解和新功能的加入是历史上从未有过的，大家好好享受吧！
四、球鞋介绍：
全部9双球鞋均为WECN的全球首席球鞋制作大师Paul81118领衔制作，品质精良，做功极其精细，尽显唯美至尊。本次所涵盖的作品均为目前最流行的款式，如Nike Total90 Laser II、adidas F50.8 Pro Lite等，并考虑各品牌、配色、使用人数等情况综合选出，为大多数球员选择合适的球鞋，而并不是针对某些单个球星。因游戏本身的限制，现球鞋仅有9双，更多的球鞋均收录在完全实况论坛球鞋区，欢迎光临！
01 adidas adiPure TRX SG Black/White
02 Nike Air Legend II SG White/Black
03 Nike Total90 Laser II SG Dark Army/Volt/Black
04 Nike Mercurial Vapor IV FG Orange Peel
05 adidas Predator PowerSwerve TRX SG White/Black/Red
06 adidas Predator PowerSwerve TRX SG Black/White/Red
07 adidas F50.8 Pro Lite SG Red/White/Orange
08 adidas F50.8 Pro Lite SG White/Blue/Infrared
09 Puma v1.08 FG Red/White/Black
五、足球介绍：
完整收录各大重要赛事新款足球，以及数款以往经典足球，时尚潮流与经典复古的完美结合。最新最全。足球预览制作精良，画面清新。原创6款，在国内补丁组首屈一指。正式版在WECN2008国际版的基础上增加了08奥运足球比赛用球“长城之星”和08-09中超比赛用球Nike Total Omni，07-08赛季欧洲联盟杯决赛用球“UEFA Cup Conquest”。
07-08赛季决赛用球FINALE MOSCOW(原创)
07-08赛季欧洲联赛用球经典三款Aerow II
07-08赛季联盟杯决赛用球UEFA Cup Conquest(原创)
08欧锦赛用球EURO PASS(原创)
08奥运足球比赛用球“长城之星”(原创)
08国际比赛最新款Teamgeist2
08-09赛季新球FINALE 8(原创)
08-09中超比赛用球Nike Total Omni(原创)
经典收录：
06德国世界杯比赛用球Teamgeist
70世界杯比赛用球Telstar （黑白球）
六、音乐介绍：
本版本替换原版音乐65首中的63首，首首动听，激发你的比赛热情，升级你的耳朵！所有可以在游戏中显示的替换音乐均实现了歌手名和歌名实名。真实助威声，给你逼真的现场感。
七、界面介绍：
WECN专业美工wkt1和猴子foreveryp共同完成,延续WECN界面一贯的酷炫的风格。同时再次大胆尝试，丝绸与足球的全新结合，每一张图都经过精心挑选设计，求新求变致绚致酷。同时附送黑色超酷界面，给大家多样的选择。也是包含导航条, 片头, 各板块界面等等 绝对的全套!
八、脸型介绍：
WECN脸型组原创中国国奥队脸型,并增加了大量球队及欧锦赛各参赛队的真实脸型。脸型更新大量手动编辑脸型,德甲脸型,使更多球员拥有更真实的面容。
在此感谢WECN脸型组的成员:
脸型原创:vivas,kejianant,Paul81118,cai 编辑脸型：foreveryp
脸型整理:kejianant,TheMan,foreveryp,偏心~
特别感谢:CMP,wkt1
国内外作者:renkeren,owen,NorD,KingBob,Sangue,Ronnie,k1k@w1,Divex,Lobo,Szolpas,pro
九、球场介绍：
WECN2008中所有球场信息、预览图、默认草皮条纹都已经真实化，增加了5个英超和德甲的半真实球场，完全用原版无BUG球场模型，只对球场贴图进行了改造并对草皮草纹进行了加工，效果一定让大家满意，无任何球场BUG。
我们特意在附赠中加入了国外制作的真实球场文件，喜欢全真实球场模型并且不在意球场BUG的玩家可以导入这些文件。注意，导入前最好备份你的cv_1.img
十、制作鸣谢：
DIY小组: WECN
内部工具:chut
界面制作: wkt1,foreveryp
字库: Mephisto
程序：chut,Mephisto,夏日
文本汉化: LSGRWY,TheMan,foreveryp,海阳
SETTINGS 汉化: foreveryp
球场汉化: TheMan
球衣制作: daewoo_zy(城里人)、sunlovedj 同时在此感谢Jumberto、Kleinmann、ZaGabria、Gu3d4、jvinu2000等国内外高手
数据制作: TheMan
数据汉化: 四十五度传中, 1020215601等
数据汉化修正: TheMan，CGL
数据粤语化: CGL，虎煞，Gin
助威编辑: TheMan
真实队徽: foreveryp，Paul81118
脸型原创、收集:vivas，偏心~，kejianant，Paul81118，cai，TheMan
球鞋制作: Paul81118
足球原创、收集:wkt1,foreveryp,shevchenkotm
音乐：海阳
广告牌制作: 汽水也踢球,foreveryp
中英位置图:wkt1,foreveryp
球场修改、收集:TheMan,foreveryp 同时在此感谢:贪婪船长,FrenkieSP等国内外高手
记分牌原创、收集:wkt1,foreveryp 同时在此感谢:pvanilla,FCH 222等国内外高手
解说听译：小G，静记奶茶，简简
国语解说：王涛
粤语解说：区成兴
解说文件切割：巴斯蒂，leomiao，海阳，天枫，rwcwl，小叶子
解说文件标准化制作：柠檬头
解说音频后期处理：小叶子的电脑
球员发音破解添加: TheMan, chut
安装程序:chut,小叶子
海报设计:wkt1
策划整合: TheMan
特别感谢: 完全实况站长nlb,小叶子.夏日,inter32lc,月光下的床,bluekiller，shevchenkotm
发布网站: 完全实况[.Winning11cn
在下一个SP1 PLUs
希腊足球的参赛球队
2015–16年希腊足球参赛队伍共有 16 支。 中文名称 英文名称 所在城市 奥林匹亚科斯 Olympiacos FC 比雷埃夫斯 PAOK塞萨洛尼基 P.A.O.K. FC 塞萨洛尼基 AEK雅典 AEK Athens 雅典 特里波利 Asteras Tripoli FC 特里波利 帕纳辛纳科斯 Panathinaikos FC 雅典 萨丁 Skoda Xanthi FC 克桑西 帕尼奥尼奥斯 Panionios GSS 雅典 卡洛尼 Kalloni FC 米蒂利尼 帕斯基安尼纳Pas Giannina阿尔塔普拉坦亚斯 Platanias FC干尼亚 莱瓦贾科斯Levadiakos 伊拉克里斯Iraklis塞萨洛尼基帕纳多里高斯Panaitolikos Agrinio阿格里尼翁阿特罗米托斯PAE Atromitos佩里斯特里维瑞亚Veria FC韦里亚潘斯拉基科斯Panthrakikos亚历山德鲁波利斯
要noip2008普及组复赛试题
全国信息学奥林匹克联赛（NOIP2008）复赛
普及组
一.题目概览
中文题目名称 ISBN号码 排座椅 传球游戏 立体图
英文题目名称 isbn seat ball drawing
可执行文件名 isbn seat ball drawing
输入文件名 isbn.in seat.in ball.in drawing.in
输出文件名 isbn.out seat.out ball.out drawing.out
每个测试点时限 1秒 1秒 1秒 1秒
测试点数目 10 10 10 10
每个测试点分值 10 10 10 10
比较方式 全文比较 全文比较 全文比较 全文比较
题目类型 传统 传统 传统 传统
二.提交源程序文件名
对于pascal语言 isbn.pas seat.pas ball.pas drawing.pas
对于C语言 isbn.c seat.c ball.c drawing.c
对于C++语言 isbn.cpp seat.cpp ball.cpp drawing.cpp
三.编译命令（不包含任何优化开关）
对于pascal语言 fpc isbn.pas fpc seat.pas fpc ball.pas fpc drawing.pas
对于C语言 gcc –o isbn
isbn.c gcc –o seat
seat.c gcc –o ball
ball.c gcc –o drawing
drawing.c
对于C++语言 g++ –o isbn
isbn.cpp g++ –o seat
seat.cpp g++ –o ball
ball.cpp g++ –o
drawing
drawing.cpp
四.运行内存限制
运行内存上限 50M 50M 50M 50M
注意事项：
1、文件名（程序名和输入输出文件名）必须使用小写。
2、C/C++中函数main（）的返回值类型必须是int，程序正常结束时的返回值必须是0。
3、全国统一评测时用的机器配置为：CPU 1.9GHz， 内存512M， 上述时限以此配置为准。
各省在自测时可根据具体配置调整时限。
1.ISBN号码
（isbn.pas/c/cpp）
问题描述
每一本正式出版的图书都有一个ISBN号码与之对应，ISBN码包括9位数字、1位识别码和3位分隔符，其规定格式如“x-xxx-xxxxx-x”，其中符号“-”是分隔符（键盘上的减号），最后一位是识别码，例如0-670-82162-4就是一个标准的ISBN码。ISBN码的首位数字表示书籍的出版语言，例如0代表英语；第一个分隔符“-”之后的三位数字代表出版社，例如670代表维京出版社；第二个分隔之后的五位数字代表该书在出版社的编号；最后一位为识别码。
识别码的计算方法如下：
首位数字乘以1加上次位数字乘以2……以此类推，用所得的结果mod 11，所得的余数即为识别码，如果余数为10，则识别码为大写字母X。例如ISBN号码0-670-82162-4中的识别码4是这样得到的：对067082162这9个数字，从左至右，分别乘以1，2，…，9，再求和，即0×1+6×2+……+2×9=158，然后取158 mod 11的结果4作为识别码。
你的任务是编写程序判断输入的ISBN号码中识别码是否正确，如果正确，则仅输出“Right”；如果错误，则输出你认为是正确的ISBN号码。
输入
输入文件isbn.in只有一行，是一个字符序列，表示一本书的ISBN号码（保证输入符合ISBN号码的格式要求）。
输出
输出文件isbn.out共一行，如输入的ISBN号码的识别码正确，那么输出“Right”，否则，按照规定的格式，输出正确的ISBN号码（包括分隔符“-”）。
输入输出样例1
isbn.in isbn.out
0-670-82162-4 Right
输入输出样例2
isbn.in isbn.out
0-670-82162-0 0-670-82162-4
2.排座椅
（seat.pas/c/cpp）
问题描述
上课的时候总有一些同学和前后左右的人交头接耳，这是令小学班主任十分头疼的一件事情。不过，班主任小雪发现了一些有趣的现象，当同学们的座次确定下来之后，只有有限的D对同学上课时会交头接耳。同学们在教室中坐成了M行N列，坐在第i行第j列
的同学的位置是（i，j），为了方便同学们进出，在教室中设置了K条横向的通道，L条纵向的通道。于是，聪明的小雪想到了一个办法，或许可以减少上课时学生交头接耳的问题：她打算重新摆放桌椅，改变同学们桌椅间通道的位置，因为如果一条通道隔开了两个会交头接耳的同学，那么他们就不会交头接耳了。
请你帮忙给小雪编写一个程序，给出最好的通道划分方案。在该方案下，上课时交头接耳的学生对数最少。
输入
输入文件seat.in的第一行，有5各用空格隔开的整数，分别是M，N，K，L，D（2<=N，M<=1000，0<=K<M，0<=L<N，D<=2000）。
接下来D行，每行有4个用空格隔开的整数，第i行的4个整数Xi，Yi，Pi，Qi，表示坐在位置(Xi,Yi)与(Pi,Qi)的两个同学会交头接耳（输入保证他们前后相邻或者左右相邻）。
输入数据保证最优方案的唯一性。
输出
输出文件seat.out共两行。
第一行包含K个整数，a1a2……aK，表示第a1行和a1+1行之间、第a2行和第a2+1行之间、…、第aK行和第aK+1行之间要开辟通道，其中ai< ai+1，每两个整数之间用空格隔开（行尾没有空格）。
第二行包含L个整数，b1b2……bk，表示第b1列和b1+1列之间、第b2列和第b2+1列之间、…、第bL列和第bL+1列之间要开辟通道，其中bi< bi+1，每两个整数之间用空格隔开（行尾没有空格）。
输入输出样例
seat.in seat.out
4 5 1 2 3
4 2 4 3
2 3 3 3
2 5 2 4 2
2 4
输入输出样例解释
* *
※
※ + +
1 2 3 4 5
上图中用符号*、※、+ 标出了3对会交头接耳的学生的位置，图中3条粗线的位置表示通道，图示的通道划分方案是唯一的最佳方案。
3.传球游戏
（ball.pas/c/cpp）
问题描述
上体育课的时候，小蛮的老师经常带着同学们一起做游戏。这次，老师带着同学们一起做传球游戏。
游戏规则是这样的：n个同学站成一个圆圈，其中的一个同学手里拿着一个球，当老师吹哨子时开始传球，每个同学可以把球传给自己左右的两个同学中的一个（左右任意），当老师再次吹哨子时，传球停止，此时，拿着球没传出去的那个同学就是败者，要给大家表演一个节目。
聪明的小蛮提出一个有趣的问题：有多少种不同的传球方法可以使得从小蛮手里开始传的球，传了m次以后，又回到小蛮手里。两种传球的方法被视作不同的方法，当且仅当这两种方法中，接到球的同学按接球顺序组成的序列是不同的。比如有3个同学1号、2号、3号，并设小蛮为1号，球传了3次回到小蛮手里的方式有1->2->3->1和1->3->2->1，共2种。
输入
输入文件ball.in共一行，有两个用空格隔开的整数n，m（3<=n<=30，1<=m<=30）。
输出
输出文件ball.out共一行，有一个整数，表示符合题意的方法数。
输入输出样例
ball.in ball.out
3 3 2
限制
40%的数据满足：3<=n<=30，1<=m<=20
100%的数据满足：3<=n<=30，1<=m<=30
4.立体图
（drawing.pas/c/cpp）
问题描述
小渊是个聪明的孩子，他经常会给周围的小朋友们讲些自己认为有趣的内容。最近，他准备给小朋友们讲解立体图，请你帮他画出立体图。
小渊有一块面积为m*n的矩形区域，上面有m*n个边长为1的格子，每个格子上堆了一些同样大小的吉姆（积木的长宽高都是1），小渊想请你打印出这些格子的立体图。我们定义每个积木为如下格式，并且不会做任何翻转旋转，只会严格以这一种形式摆放：
+---+
/ /| 高
+---+ |
| | +
| |/ 宽
+---+
长
每个顶点用1个加号’+’表示，长用3个”-“表示，宽用1个”/”表示，高用两个”|”表示。字符’+’ ‘-‘’/’ ‘|’的ASCII码分别为43，45，47，124。字符’.’（ASCII码46）需要作为背景输出，即立体图里的空白部分需要用’.’代替。立体图的画法如下面的规则：
若两块积木左右相邻，图示为：
..+---+---+
./ / /|
+---+---+ |
| | | +
| | |/.
+---+---+..
若两块积木上下相邻，图示为：
..+---+
./ /|
+---+ |
| | +
| |/|
+---+ |
| | +
| |/.
+---+..
若两块积木前后相邻，图示为：
….+---+
…/ /|
..+---+ |
./ /| +
+---+ |/.
| | +..
| |/…
+---+….
立体图中，定义位于第(m,1)的格子（即第m行第1列的格子）上面自底向上的第一块积木（即最下面的一块积木）的左下角顶点为整张图最左下角的点。
输入
输入文件drawing.in第一行有用空格隔开的两个整数m和n，表示有m*n个格子（1<=m，n<=50）。
接下来的m行，是一个m*n的矩阵，每行有n个用空格隔开的整数，其中第i行第j列上的整数表示第i行第j列的格子上摞有多少个积木（1<=每个格子上的积木数<=100）。
输出
输出文件drawing.out中包含题目要求的立体图，是一个K行L列的字符矩阵，其中K和L表示最少需要K行L列才能按规定输出立体图。
输入输出样例
drawing.in drawing.out
3 4
2 2 1 2
2 2 1 1
3 2 1 2 ......+---+---+...+---+
..+---+ / /|../ /|
./ /|-+---+ |.+---+ |
+---+ |/ /| +-| | +
| | +---+ |/+---+ |/|
| |/ /| +/ /|-+ |
+---+---+ |/+---+ |/| +
| | | +-| | + |/.
| | |/ | |/| +..
+---+---+---+---+ |/...
| | | | | +....
| | | | |/.....
+---+---+---+---+......
第一题
Program Gy;
Const
Name='isbn';
Var
A,B:String;
Procedure Inp;
Begin
Assign(Input,Name+'.in');Reset(Input);
Assign(Output,Name+'.out');Rewrite(Output);
Readln(A);
End;
Procedure Main;
Var i,j,k:Longint;
Begin
j:=0;k:=0;
For i:=1 to Length(A)-1 do
If A[i]in['0'..'9']then
Begin
Inc(k);
j:=j+(Ord(A[i])-Ord('0'))*k;
End;
j:=j mod 11;
B:=A;
If j=10 then B[Length(B)]:='X'Else B[Length(B)]:=Chr(j+Ord('0'));
End;
Procedure Oup;
Begin
If B=A then Writeln('Right')
Else Writeln(B);
Close(Input);
Close(Output);
End;
Begin
Inp;
Main;
Oup;
End.
第二题
Program Gy;
Uses Math;
Const
Name='seat';
Var
x1,y1,x2,y2:Array[1..3000]of Longint;
N,M,K,L,D:longint;
A,C:Array[1..2,1..2000]of Longint;
B1,B2:Array[1..2000]of Byte;
Procedure Inp;
Var i:longint;
Begin
Assign(Input,Name+'.in');Reset(Input);
Assign(Output,Name+'.out');Rewrite(Output);
Randomize;
Readln(M,N,K,L,D);
For i:=1 to D do Readln(x1[i],y1[i],x2[i],y2[i]);
End;
Procedure Sort(p,l,r:Longint);
Var i,j,x,y:Longint;
Begin
i:=l;j:=r;x:=a[p,Random(r-l)+l];
Repeat
While a[p,i]>x do Inc(i);
While a[p,j]<x do Dec(j);
If i<=j then
Begin
y:=a[p,i];
a[p,i]:=a[p,j];
a[p,j]:=y;
y:=c[p,i];
c[p,i]:=c[p,j];
c[p,j]:=y;Inc(i);
Dec(j);
End;
Until i>j;
If l<j then Sort(p,l,j);
If i<r then Sort(p,i,r);
End;
Procedure Main;
Var i:Longint;
Begin
For i:=1 to M do C[1,i]:=i;
For i:=1 to N do C[2,i]:=i;
For i:=1 to d do
If x1[i]=x2[i]then Inc(A[2,Min(y1[i],y2[i])])
Else Inc(A[1,Min(x1[i],x2[i])]);
Sort(1,1,N);
Sort(2,1,M);
For i:=1 to K do B1[C[1,i]]:=1;
For i:=1 to L do B2[C[2,i]]:=1;
End;
Procedure Oup;
Var i,j:Longint;
Begin
j:=0;
For i:=1 to M-1 do
If b1[i]=1 then
Begin
Inc(j);
Write(i);
If j<>K then Write(' ');
End;
Writeln;
j:=0;
For i:=1 to N-1 do
If b2[i]=1 then
Begin
Inc(j);
Write(i);
If j<>L then Write(' ');
End;
Writeln;
Close(Input);
Close(Output);
End;
Begin
Inp;
Main;
Oup;
End.
第三题
Program Gy;
Uses Math;
Const
Name='ball';
Var
F:Array[0..1,1..500]of Longint;
M,N:Longint;
Procedure Inp;
Begin
Assign(Input,Name+'.in');Reset(Input);
Assign(Output,Name+'.out');Rewrite(Output);
Readln(n,m);
End;
Procedure Main;
Var i,j:Longint;
Begin
F[0,1]:=1;
For i:=1 to M do
For j:=1 to N do
F[i mod 2,j]:=F[(i-1)mod 2,(j+n-2)mod n+1]+F[(i-1)mod 2,(j+n)mod n+1];
End;
Procedure Oup;
Begin
Writeln(F[M mod 2,1]);
Close(Input);
Close(Output);
End;
Begin
Inp;
Main;
Oup;
End.
第四题
Program Gy;
Const
Work='drawing';
Type
Rec=Record
X,Y:longint;
End;
Arr=Array[1..20000] of Longint;
Var
A:Array[1..300,1..300] of Longint;
N,M,MaxN,MaxM:Longint;
B:Array[1..1000,1..1000]of Char;
Procedure Inp;
Var i,j:Longint;
Begin
Assign(Input,Work+'.in');Reset(Input);
Assign(Output,Work+'.out');Rewrite(Output);
Read(n,m);
For i:=1 to N do
For j:=1 to M do
Read(a[n+1-i,j]);
MaxN:=0;MaxM:=0;
For i:=1 to N do
For j:=1 to M do
Begin
If 2*i+4*j+1>MaxM then MaxM:=2*i+4*j+1;
If (2*i+3*a[i,j]+1>MaxN) then Maxn:=2*i+3*a[i,j]+1;
End;
For i:=1 to MaxN do
For j:=1 to MaxM do
B[i,j]:='.';
End;
Procedure Main;
Var i,j,k,x,y:Longint;
Begin
For i:=N downto 1 do
For j:=1 to M do
For k:=1 to A[i,j] do
Begin
Y:=2*i+4*j-5;X:=2*i+3*k-4;
B[x,y]:='+';
B[x,y+1]:='-';
B[x,y+2]:='-';
B[x,y+3]:='-';
B[x,y+4]:='+';
B[x+1,y]:='|';
B[x+1,y+1]:=' ';
B[x+1,y+2]:=' ';
B[x+1,y+3]:=' ';
B[x+1,y+4]:='|';
B[x+1,y+5]:='/';
B[x+2,y]:='|';
B[x+2,y+1]:=' ';
B[x+2,y+2]:=' ';
B[x+2,y+3]:=' ';
B[x+2,y+4]:='|';
B[x+2,y+5]:=' ';
B[x+2,y+6]:='+';
B[x+3,y]:='+';
B[x+3,y+1]:='-';
B[x+3,y+2]:='-';
B[x+3,y+3]:='-';
B[x+3,y+4]:='+';
B[x+3,y+5]:=' ';
B[x+3,y+6]:='|';
B[x+4,y+1]:='/';
B[x+4,y+2]:=' ';
B[x+4,y+3]:=' ';
B[x+4,y+4]:=' ';
B[x+4,y+5]:='/';
B[x+4,y+6]:='|';
B[x+5,y+2]:='+';
B[x+5,y+3]:='-';
B[x+5,y+4]:='-';
B[x+5,y+5]:='-';
B[x+5,y+6]:='+';
End;
End;
Procedure Oup;
Var i,j:Longint;
Begin
For i:=MaxN downto 1 do
Begin
For j:=1 to MaxM do
Write(b[i,j]);
Writeln;
End;
Close(Input);
Close(Output);
End;
Begin
Inp;
Main;
Oup;
End.
测过全对（逐字节）
高中信息学联赛经典题型(pascal)
第八届全国青少年信息学奥林匹克联赛（NOIP2002）初赛试题
（提高组 PASCAL语言 二小时完成）
审定：全国青少年信息学奥林匹克竞赛科学委员会
主管：中国科协、教育部
主办：中国计算机学会
承办：江苏省科协青少年科技中心
●●全部试题答案均要求写在答卷纸上，写在试卷纸上一律无效●●
一． 选择一个正确答案代码（A/B/C/D），填入每题的括号内（每题1.5分，多选无分，共30分）
1． 微型计算机的问世是由于（ ）的出现。
A）中小规模集成电路 B）晶体管电路 C）（超）大规模集成电路 D）电子管电路
2． 中央处理器（CPU）能访问的最大存储器容量取决于（ ）。
A）地址总线 B）数据总线 C）控制总线 D）实际内存容量
3． 十进制书11/128可用二进制数码序列表示为：（ ）。
A）1011/1000000 B）1011/100000000 C）0.001011 D）0.0001011
4． 算式（2047）10 －（3FF）16 ＋（2000）8的结果是（ ）。
A）（2048）10 B）（2049）10 C）（3746）8 D）（1AF7）16
5． 已知x =（0.1011010）2 ，则[ x / 2 ]补 =（ ）2 。
A）0.1011101 B）11110110 C）0.0101101 D）0.100110
6． IPv4地址是由（ ）位二进制数码表示的。
A）16 B）32 C）24 D）8
7． 计算机传染的必要条件是：（ ）。
A）在内存中运行程序 B）对磁盘进行读写操作
C）在内存中运行含有的可执行的程序 D）复制文件
8． 在磁盘上建立子目录有许多优点，下列描述中不属于建立子目录优点的是（ ）。
A）便于文件管理 B）解决根目录中目录项个数有限问题
C）加快文件查找速度 D）节省磁盘使用空间
9． 在使用E-mail前，需要对Outlook进行设置，其中ISP接收电子邮件的服务器称为（ ）服务器。
A）POP3 B）SMTP C）DNS D）FTP
10．多媒体计算机是指（ ）计算机。
A）专供家庭使用的 B）装有CD-ROM的
C）连接在网络上的高级 D）具有处理文字、图形、声音、影像等信息的
11．微型计算机中，（ ）的存取速度最快。
A）高速缓存 B）外存储器 C）寄存器 D）内存储器
12．管理器的目录前图标中增加“+”号，这个符号的意思是（ ）。
A）该目录下的子目录已经展开 B）该目录下还有子目录未展开
C）该目录下没有子目录 D）该目录为空目录
13．在WORD文档编辑中实现图文混合排版时，关于文本框的下列叙述正确的是（ ）。
A）文本框中的图形没有办法和文档中输入文字叠加在一起，只能在文档的不同位置
B）文本框中的图形不可以衬于文档中输入的文字的下方
C）通过文本框，可以实现图形和文档中输入的文字的叠加，也可以实现文字环绕
D）将图形放入文本框后，文档中输入的文字不能环绕图形
14．一个向量第一个元素的存储地址是100，每个元素的长度是2，则地5个元素的地址是（ ）。
A）110 B）108 C）100 D）109
15．已知A = 35H，A /\ 05H \/ A /\ 30H 的结果是：（ ）。
A）30H B）05H C）35H D）53H
16．设有一个含有13个元素的Hash表（0 ~ 12），Hash函数是：H（key）= key % 13，，其中%是求余数运算。用线性探查法解决冲突，则对于序列（2、8、31、20、19、18、53、27），18应放在第（ ）号格中。
A）5 B）9 C）4 D）0
17．按照二叉数的定义，具有3个结点的二叉树有（ ）种。
A）3 B）4 C）5 D）6
18．在一个有向图中，所有顶点的入度之和等于所有顶点的出度之和的（ ）倍。
A）1/2 B）1 C）2 D）4
19．要使1 ．．．8号格字的访问顺序为：8、2、6、5、7、3、1、4，则下图中的空格中应填入（ ）。
1 2 3 4 5 6 7 8
4 6 1 -1 7 3 2
A）6 B）0 C）5 D）3
20．设栈S和队列Q的初始状态为空，元素e 1 ，e 2 ，e 3 ，e 4 ，e 5 ，e 6依次通过栈S，一个元素出栈后即进入队列Q，若出队的顺序为e 2 ，e 4 ，e 3 ，e 6 ，e 5 ，e 1 ，则栈S的容量至少应该为（ ）。
A）2 B）3 C）4 D）5
二．问题求解：（6 + 8 = 14分）
1． 在书架上放有编号为1 ，2 ，．．．，n的n本书。现将n本书全部取下然后再放回去，当放回去时要求每本书都不能放在原来的位置上。例如：n = 3时：
原来位置为：1 2 3
放回去时只能为：3 1 2 或 2 3 1 这两种
问题：求当n = 5时满足以上条件的放法共有多少种？（不用列出每种放法）
2． 设有一棵k叉树，其中只有度为0和k两种结点，设n 0 ，n k ，分别表示度为0和度为k的结点个数，试求出n 0 和n k之间的关系（n 0 = 数学表达式，数学表达式仅含n k 、k和数字）。
三．阅读程序，写出正确的程序运行结果：（8 + 9 + 9 = 26分）
1． program Gxp1;
var i , n , jr , jw , jb : integer ;
ch1 : char ;
ch : array[1..20] of char ;
begin
readln(n);
for i:=1 to n do read(ch[i]);
jr:=1; jw:=n; jb:=n;
while (jr<=jw) do
begin
if (ch[jw]=’R’)
then begin
ch1:=ch[jr]; ch[jr]:=ch[jw]; ch[jw]:=ch1; jr:=jr+1;
end
else if ch[jw]=’W’
then jw:=jw-1;
else begin
ch1:=ch[jw]; ch[jw]:=ch[jb]; ch[jb]:=ch1; jw:=jw-1; jb:=jb-1;
end
end;
for i:=1 to n do write(ch[1]);
writeln;
end.
输入：10
RBRBWWRBBR
输出：
2． program Gxp2;
var i , j , s ,sp1 : integer ;
p : boolean ;
a : array[1..10] of integer ;
begin
sp1:=1; a[1]:=2; j:=2;
while sp1<10 do
begin
j:=j+1; p:=true;
for i:=2 to j-1 do
if (j mod i=0) then p:=false;
if p then begin
sp1:=sp1+1; a[sp1]:=j;
end;
end;
j:=2; p:=true;
while p do
begin
s:=1;
for i:=1 to j do s:=s*a[i];
s:=s+1;
for i:=2 to s-1 do
if s mod i=0 then p:=false;
j:=j+1;
end;
writeln(s); writeln;
end.
输出：
3． Program Gxp2
Var d1 , d2 , X , Min : real ;
begin
Min:=10000; X:=3;
while X<15 do
begin
d1:=sqrt(9+(X-3)*(X-3)); d2:=sqrt(36+(15-X)*(15-X));
if(d1+d2)<Min then Min:=d1+d2;
X:=x+0.001;
end;
writeln(Min:10:2);
end.
输出：
四．完善程序：（15 + 15 = 30分）
1． 问题描述：工厂在每天的生产中，需要一定数量的零件，同时也可以知道每天生产一个零件的生产单价。在N天的生产中，当天生产的零件可以满足当天的需要，若当天用不完，可以放到下一天去使用，但要收取每个零件的保管费，不同的天收取的费用也不相同。
问题求解：求得一个N天的生产（即N天中每天应生产零件个数），使总的费用最少。
输入：N（天数 N<=29）
每天的需求量（N个整数）
每天生产零件的单价（N个整数）
每天保管零件的单价（N个整数）
输出：每天的生产零件个数（N个整数）
例如：当N=3时，其需要量与费用如下：
第一天 第二天 第三天
需 要 量 25 15 30
生产单价 20 30 32
保管单价 5 10 0
生产的安排可以有许多方案，如下面的三种：
第一天 第二天 第三天 总的费用
25 15 30 25*20+15*30+30*32=1910
40 0 30 40*20+15*5+30*32=1835
70 0 0 70*20+45*5+30*10=1925
程序说明：
b[n]：存放每天的需求量
c[n]：每天生产零件的单价
d[n]：每天保管零件的单价
e[n]：生产
程序：
program exp5;
var
i,j,n,yu,j0,j1,s : integer ;
b,c,d,e : array[0..30] of integer ;
begin
readln(n);
for i:=1 to n do readln(b[i],c[i],d[i]);
for i:=1 to n do e[i]:=0;
①__________:=10000; c[n+2]=0; b[n+1]:=0 j0:=1;
while (j0<=n) do
begin
yu:=c[j0]; j1:=j0; s:=b[j0];
while ②__________ do
begin
③__________ j1:=j1+1; s:=s+b[j1];
end;
④__________ j0:=j1+1;
end;
for i:=1 to n do ⑤__________
readln;
end.
二．问题描述：有n种基本物质（n≤10），分别记为P1，P2，……，Pn，用n种基本物质构造物质，这些物品使用在k个不同地区（k≤20），每个地区对物品提出自己的要求，这些要求用一个n位的数表示：a1a2……a n，其中：
ai = 1表示所需物质中必须有第i种基本物质
= -1表示所需物质中必须不能有第i种基本物质
= 0无所谓
问题求解：当k个不同要求给出之后，给出一种方案，指出哪些物质被使用，哪些物质不被使用。
程序说明：数组 b[1],b[2]……b[n] 表示某种物质
a[1..k,1..n] 记录k个地区对物品的要求，其中：
a[i,j]=1 表示第i个地区对第j种物品是需要的
a[i,j]=0 表示第i个地区对第j种物品是无所谓的
a[i,j]= -1 表示第i个地区对第j种物品是不需要的
程序：
program gxp2;
var
i,j,k,n : integer ;
p : boolean ;
b : array[0..20] of 0..1 ;
a : array[1..20,1..10] of integer ;
begin
readln(n,k);
for i:=1 to k do
begin
for j:=1 to n do read(a[i,j]);
readln;
end;
for i:=0 to n do b[i]:=0;
p:=true;
while ①__________ do
begin
j:=n;
while b[j]=1 do j:=j-1;
②__________
for i:=j+1 to n do b[i]:=0;
③__________
for i:=1 to k do
for j:=1 to n do
if (a[i,j]=1) and (b[j]=0) or ④__________
then p:=true;
end;
if ⑤__________
then writeln(‘找不到！’)
else for i:=1 to n do
if (b[i]=1) then writeln(‘物质’,i,’需要’)
else writeln(‘物质’,i,’不需要’);
end.
