NOIP2012普及组 pascal 第二题

Posted 2023-03-02

描述 Description 传说很遥远的藏宝楼顶层藏着诱人的宝藏。小明历尽千辛万苦终于找到传说中的这个藏宝楼，藏宝楼的门口竖着一个木板，上面写有几个大字：寻宝说明书。说明书的内容如下：藏宝楼共有N 1层，最上面一层是顶层，顶层有一个房间里面藏着宝藏。除了顶层外，藏宝楼另有N层，每层M个房间，这M个房间围成一圈并按逆时针方向依次编号为0，…，M-1。其中一些房间有通往上一层的楼梯，每层楼的楼梯设计可能不同。每个房间里有一个指示牌，指示牌上有一个数字x，表示从这个房间开始按逆时针方向选择第x个有楼梯的房间（假定该房间的编号为k），从该房间上楼，上楼后到达上一层的k号房间。比如当前房间的指示牌上写着2，则按逆时针方向开始尝试，找到第2个有楼梯的房间，从该房间上楼。如果当前房间本身就有楼梯通向上层，该房间作为第一个有楼梯的房间。寻宝说明书的最后用红色大号字体写着：“寻宝须知：帮助你找到每层上楼房间的指示牌上的数字（即每层第一个进入的房间内指示牌上的数字）总和为打开宝箱的密钥”。请帮助小明算出这个打开宝箱的密钥。 输入格式 InputFormat 第一行2个整数N和M，之间用一个空格隔开。N表示除了顶层外藏宝楼共N层楼，M表示除顶层外每层楼有M个房间。接下来N*M行，每行两个整数，之间用一个空格隔开，每行描述一个房间内的情况，其中第(i-1)*M j行表示第i层j-1号房间的情况（i=1,2,…,N；j=1,2,…,M）。第一个整数表示该房间是否有楼梯通往上一层（0表示没有，1表示有），第二个整数表示指示牌上的数字。注意，从j号房间的楼梯爬到上一层到达的房间一定也是j号房间。最后一行，一个整数，表示小明从藏宝楼底层的几号房间进入开始寻宝（注：房间编号从0开始）。 输出格式 OutputFormat 输出只有一行，一个整数，表示打开宝箱的密钥，这个数可能会很大，请输出对20123取模的结果即可。 样例输入 SampleInput [复制数据] 2 3 1 2 0 3 1 4 0 1 1 5 1 2 1 样例输出 SampleOutput [复制数据] 5 数据范围和注释 Hint 【输入输出样例说明】第一层：0号房间，有楼梯通往上层，指示牌上的数字是2；1号房间，无楼梯通往上层，指示牌上的数字是3；2号房间，有楼梯通往上层，指示牌上的数字是4；第二层：0号房间，无楼梯通往上层，指示牌上的数字是1；1号房间，有楼梯通往上层，指示牌上的数字是5；2号房间，有楼梯通往上层，指示牌上的数字是2；小明首先进入第一层（底层）的1号房间，记下指示牌上的数字为3，然后从这个房间开始，沿逆时针方向选择第3个有楼梯的房间2号房间进入，上楼后到达第二层的2号房间，记下指示牌上的数字为2，由于当前房间本身有楼梯通向上层，该房间作为第一个有楼梯的房间。因此，此时沿逆时针方向选择第2个有楼梯的房间即为1号房间，进入后上楼梯到达顶层。这时把上述记下的指示牌上的数字加起来，即3 2=5，所以打开宝箱的密钥就是5。【数据范围】对于50%数据，有0

program treasure;

var a:array[1..10000,0..99] of longint; //二维数组处理房间内指示标号,a[i,j]表示第i层第j号房间内的指示号码。

lt:array[1..10000,0..99]
of 0..1; //处理当前房间有没有楼梯。

tn:integer;

i,j,temp1,temp2,n,m,start:longint;

x:longint;ans:longint;

procedure sta;//处理约瑟夫环下标越界的情况。

begin

inc(start);

if (start>m-1) then
start:=0;

end;

begin

assign(input,\'treasure.in\');

reset(input);

assign(output,\'treasure.out\');

rewrite(output);

readln(n,m);

for i:=1 to n do

for j:=0 to m-1 do

begin

temp1:=0;

temp2:=0;

readln(temp1,temp2);

lt[i,j]:=temp1;

a[i,j]:=temp2;

end;

readln(start);

ans:=0;//计数器初始化。

tn:=1;//当前层数初始化为1，从1层开始

repeat

x:=0;

if
a[tn,start]>=20123 then

ans:=ans+(a[tn,start]
mod 20123)

else
ans:=ans+a[tn,start]; //如果大于等于20123就对20123先取模。

if lt[tn,start]=1 then //如果当前房间已经有楼梯，则次数x-1，start+1从下一房间开始。这个应该可以写成while lt[tn,start[=1
do 处理从开始处之后房间一堆连续的1。。

begin

a[tn,start]:=a[tn,start]-1;

sta;

end;

x:=a[tn,start];

if x<>0 then //如果剩余次数不是0，就做约瑟夫循环。

while x<>0
do

begin

if
lt[tn,start]=1 then

begin

x:=x-1;

if
x<>0 then //当剩余次数不等于0时，就从下一房间开始。如果等于0，按照题目要求就直接上去，不要把start+1了。

sta;

end

else sta;

end;

inc(tn);

until tn>n;

if ans>=20123 then
ans:=ans mod 20123;//如果最后的数据还大于20123 就在进行一次取模。（比如，像n=2时，两个房间值为20122和20121 都不大于等于20123，但是相加后就大于20123了。）

write(ans);

close(input);

close(output);

end. 参考技术A var n,m,i,j,k,ans,k1,zs,zs1:longint;
a:array[1..100000,0..100] of longint;指示牌
b:array[1..100000,0..100] of integer;有无楼梯
begin
assign(input,'treasure.in');assign(output,'treasure.out');
reset(input);rewrite(output);
readln(n,m);
for i:=1 to n do
for j:=0 to m-1 do readln(b[i,j],a[i,j]);
readln(k);
i:=1;
ans:=0;
while i<>n+1 do begini为楼当前深度，k所在房间
ans:=ans+a[i,k];
ans:=ans mod 20123;
k1:=k;
zs:=0;
zs1:=0;
for j:=0 to m-1 do if b[i,j]=1 then inc(zs1);
if zs mod a[i,k]=0 then zs:=(a[i,k] div zs1-1)*zs1
else zs:=a[i,k] div zs1*zs1;
repeat
if b[i,k1]=1 then inc(zs);
if zs=a[i,k] then break;
if k1+1=m then k1:=-1;
inc(k1);
until false;
inc(i);
k:=k1;
end;
writeln(ans mod 20123);
close(input);close(output);
end.
当时考试时，我就被这道题给坑了，房间特别多，如果不mod的话，电脑都转晕了，一层1000个房间，最后面改了一下，就全过了 参考技术B cai