- 1、本文档共9页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
NOIP2004解题报告(普及组)????????????????????????????????????????????? 宝坻区牛道口二中:唐虎
第一题:unhappy;【算法分析】??? 此题主要考察选手的编程基本能力。做题时,可先求出七天内每天学校和妈妈安排的学习时间总和存于数组中,然后设置一个循环对数组中的每个值进行处理,若学习时间超过8小时,则说明有不高兴的天,做上标记;若这一天的学习时间超过上一次不高兴的天学习的时间,说明这一天更不高兴,则做上标记。最后若没有不高兴的天,输出“0”,否则输出做上标记的那一天的代码。【数据结构】var a:array[1..7]of integer;【程序清单】program unhappy;
var a:array[1..7]of integer;
i,x,y,sum,point:integer;
yes:boolean;
f1,f2:text;
begin
assign(f1,unhappy.in);reset(f1); {输入文件名unhappy.in}
assign(f2,unhappy.out);rewrite(f2); {输出文件名unhappy.out}
for i:=1 to 7 do
begin
readln(f1,x,y);
a[i]:=x+y
end; {读入数据,将每天要学习的时间存于数组a中}
yes:=true; {若有不高兴的天,即a中没有超过8的元素,布尔型变量yes置真值}
sum:=0;
for i:=1 to 7 do {求出最不高兴的天数,存于point中}
if (a[i]8)then
begin
yes:=false;
if a[i]sum then
begin sum:=a[i];point:=i;end;
end;
if yes then writeln(f2,0)
else writeln(f2,point);
close(f1);
close(f2)
end.第二题:peanuts;【算法分析】?????乍一看此题,就会发现,穷举、搜索的方法对此题都不适用,因为题目中已明确给出了摘豆子的规则。其实,我们只需要根据题目给出的规则,编程序模拟摘豆子的过程就可以了。首先,定义一个整型的二维数组a存储每个格子中的豆子数目,然后进行摘豆子。???设置一个二层循环求出含有最多豆子的格子的坐标,由数学知识可知,从(x1,y1)到(x2,y2)需要的单位时间为|x1-x2|+|y1-y2|,因此由当前位置(x,y)跳到含有最多豆子的格子(x1,y1)内摘下豆子并回到路边所需的时间为step=|x-x1|+|y-y1|+1+x1,接下来判断step与剩余的时间p的大小关系。若step=p则说明有足够的时间去摘豆子,则去摘:具体步骤(剩余时间p:=p-|x-x1|+|y-y1|-1;当前点的坐标跳入(x1,y1);摘下的总豆子数sum:=sum+a[x,y],a[x,y]:=0;表示此格子内的豆子已被摘没);若stepp,说明没有足够多的时间跳过去摘下豆子再回到路边,因此只能回到路边而不能去摘豆子了。???重复此摘法即可得出最后结果。【数据结构】var a:array[0..20,0..20]of integer;?????????????? ? {存每个格子内的豆子数}【程序清单】
program peanuts;
var a:array[0..20,0..20]of integer; {存每个格子内的豆子数}
m,n,k,step,i,j,x,y,x1,y1,sum:integer;
f1,f2:text;
yes:boolean; {存是否有豆子可摘}
begin
assign(f1,peanuts.in);reset(f1); {输入文件名peanut
您可能关注的文档
- EOS工程署文档.doc
- ERP-U总账操作手册.doc
- ERP工程职业能力认证教程(实操能力部分).doc
- ERP实验告.doc
- ER图与关模式.ppt
- EP APP 文件要求.ppt
- Erp与财管理信息系统实施关键成功因素.ppt
- ENDIS训教程.ppt
- eTax@H电脑开票软件更新及报送数据使用说明.doc
- ERP财务理流程分析创业大赛.doc
- 2025年网络文学平台版权运营模式创新与版权保护体系构建.docx
- 数字藏品市场运营策略洞察:2025年市场风险与应对策略分析.docx
- 全球新能源汽车产业政策法规与市场前景白皮书.docx
- 工业互联网平台安全标准制定:安全防护与合规性监管策略.docx
- 剧本杀剧本创作审核标准2025年优化与行业自律.docx
- 2025年新能源电动巡逻车在城市安防中的应用对城市环境的影响分析.docx
- 全渠道零售案例精选:2025年行业创新实践报告.docx
- 2025年网约车司乘纠纷处理机制优化与行业可持续发展报告.docx
- 2025年宠物烘焙食品市场法规政策解读:合规经营与风险规避.docx
- 2025年宠物行业数据安全监管政策影响分析报告.docx
文档评论(0)