NOIP2012复赛寻宝treasure noip2015普及组复赛

NOIP2012复赛寻宝treasure noip2015普及组复赛

题目有点烦,有点绕。代码:

type room= record
f:0..1;
p:longint;
end;

var n,m,i,j,k,start,ans,len,t:longint;
arr1:array[1..10000,0..99] of room;
arr2:array[0..105] of longint;

function find(l,r,tt:integer):integer;
var mid:integer;
begin
while l<=r do
begin
mid:=(l+r)div 2;
ifarr2[mid]=tt then exit(mid);
if arr2[mid]{不知道为什么后面这行代码总是会被屏蔽掉,所以截个图}
elser:=mid-1;
end;
end;

begin
readln(n,m);
for i:=1 to n do
begin
for j:=0 tom-1 do
begin
readln(arr1[i,j].f,arr1[i,j].p);
end;
end;
readln(start);
for i:=1 to n do
begin
ans:=(ans+arr1[i,start].p) mod 20123;
len:=0;
for j:=0 tom-1 do
begin
if arr1[i,j].f=0 then continue;
arr2[len]:=j;
inc(len);
end;
dec(len);
j:=start;
whilearr1[i,j].f=0 do
begin
if j=m-1 then j:=0
else inc(j);
end;
k:=find(0,len,j);
t:=(k+arr1[i,start].p-1) mod (len+1);
start:=arr2[t];
end;
writeln(ans);
end.

  

爱华网本文地址 » http://www.413yy.cn/a/25101010/29573.html

更多阅读

神武幻境寻宝攻略 精 神武幻境寻宝攻略

神武幻境寻宝攻略 精——简介 幻境寻宝一直是神武中很热门的活动,尤其是增加了珍兽云露的获得几率后,对玩家的吸引程度那是显而易见的。相信很多玩家对活动已经十分了解了,但是还有部分玩家不了解,那么就跟随小编一起看看幻境寻宝攻略吧

魔兽世界 寻宝合同:被感染的兽人

【魔兽世界】寻宝合同:被感染的兽人——简介寻宝合同其中之一被感染的兽人这个是 大师级遗物猎人成就的其中一个部分【魔兽世界】寻宝合同:被感染的兽人——工具/原料魔兽世界【魔兽世界】寻宝合同:被感染的兽人——方法/步骤

魔兽世界 寻宝合同:德莱尼技师

【魔兽世界】寻宝合同:德莱尼技师——简介寻宝合同其中之一德莱尼技师这个是 大师级遗物猎人成就的其中一个部分【魔兽世界】寻宝合同:德莱尼技师——工具/原料魔兽世界【魔兽世界】寻宝合同:德莱尼技师——方法/步骤【魔兽世界】寻

魔兽世界 寻宝合同:雷神贤者

【魔兽世界】寻宝合同:雷神贤者——简介寻宝合同其中之一雷神贤者这个是 大师级遗物猎人成就的其中一个部分【魔兽世界】寻宝合同:雷神贤者——方法/步骤【魔兽世界】寻宝合同:雷神贤者 1、在要塞接到这个任务【魔兽世界】寻宝合同:

神武幻境寻宝怎么玩 神武2幻境寻宝攻略详解

神武幻境寻宝副本就是1-30层,每一层有两个门,一个向上一个向下的,路上也有很多小怪,高层上面有金宝箱哦,路上打小怪会得钥匙,出发前队里记得带好小药补充。镜中世界里有各种奇珍异宝等待有缘人去寻觅,里面还有一位神秘的仙子出没。在这里你

声明:《NOIP2012复赛寻宝treasure noip2015普及组复赛》为网友橙又青分享!如侵犯到您的合法权益请联系我们删除