NOIP2016全国信息学分区联赛提高组第一试 玩具迷题

玩具谜题(toy)

【问题描述】

小南有一套可爱的玩具小人,它们各有不同的职业。
有一天,这些玩具小人把小南的眼镜藏了起来。小南发现玩具小人们围成了一个 圈,它们有的面朝圈内,有的面朝圈外。如下图:
NOIP2016全国信息学分区联赛提高组第一试 玩具迷题_第1张图片

这时singer 告诉小南一个谜题:“眼镜藏在我左数第 3 个玩具小人的右数第 1 个玩 具小人的左数第 2 个玩具小人那里。”
小南发现,这个谜题中玩具小人的朝向非常关键,因为朝内和朝外的玩具小人的左右方向是相反的:面朝圈内的玩具小人,它的左边是顺时针方向,右边是逆时针方向;而面向圈外的玩具小人,它的左边是逆时针方向,右边是顺时针方向。
小南一边艰难地辨认着玩具小人,一边数着:
“singer 朝内,左数第 3 个是archer。
“archer 朝外,右数第 1 个是thinker。
“thinker 朝外,左数第 2 个是writer。 “所以眼镜藏在writer 这里! ”
虽然成功找回了眼镜,但小南并没有放心。如果下次有更多的玩具小人藏他的眼镜,或是谜题的长度更长,他可能就无法找到眼镜了。所以小南希望你写程序帮他解 决类似的谜题。这样的谜题具体可以描述为:
有 n 个玩具小人围成一圈,已知它们的职业和朝向。现在第 1 个玩具小人告诉小南一个包含 m 条指令的谜题,其中第 i 条指令形如“左数/右数第 si 个玩具小人”。你需要输出依次数完这些指令后,到达的玩具小人的职业。

【输入格式】

从文件toy.in 中读入数据。
输入的第一行包含两个正整数 n, m ,表示玩具小人的个数和指令的条数。
接下来 n 行,匈行包含一个整数和一个字符串,以逆时针为顺序给出匈个玩具小人的朝向和职业。其中 0 表示朝向圈内, 1 表示朝向圈外。保证不会出现其他的数。字符串长度不超过 10 且仅由小写字母构成,字符串不为空,并且字符串两两不同。整数和字符串之间用一个空格隔开。
接下来 m 行,其中第 i 行包含两个整数 ai, si ,表示第 i 条指令。若 ai = 0 ,表示向 左数 si 个人;若 ai = 1 ,表示向右数 si 个人。保证 ai 不会出现其他的数, 1 ≤ si < n 。

【输出格式】

输出到文件toy.out 中。
输出一个字符串,表示从第一个读入的小人开始,依次数完 m 条指令后到达的小 人的职业。

【题解】

没话说,暴力模拟!!

【代码】

type
  arr=record
        st:string;
        bo:boolean;
      end;
var
  n,m:longint;
  a:array [0..100001] of arr;
procedure init;
var
  i:longint;
begin
  readln(n,m);
  for i:=1 to n do
    begin
      readln(a[i].st);
      if a[i].st[1]='0' then a[i].bo:=false
                        else a[i].bo:=true;
      delete(a[i].st,1,2);
    end;
end;

procedure main;
var
  i,x,y,t:longint;
begin
  t:=1;
  for i:=1 to m do
    begin
      readln(x,y);
      if a[t].bo then
        begin
          if x=0 then t:=t+y
                 else t:=t-y;
          if t>n then t:=t-n;
          if t<1 then t:=t+n;
        end else
        begin
          if x=0 then t:=t-y
                 else t:=t+y;
          if t>n then t:=t-n;
          if t<1 then t:=t+n;
        end;
    end;
  write(a[t].st);
end;

begin
  init;
  main;
end.

你可能感兴趣的:(NOIP2016,TOY,优美的暴力,PASCAL)