JZOJ_2499_东风谷早苗 (Standard IO)

Description

　　在幻想乡，东风谷早苗是以高达控闻名的高中生宅巫女。某一天，早苗终于入手了最新款的钢达姆模型。作为最新的钢达姆，当然有了与以往不同的功能了，那就是它能够自动行走，厉害吧（好吧，我自重）。早苗的新模型可以按照输入的命令进行移动，命令包含’E’、’S’、’W’、’N’四种，分别对应四个不同的方向，依次为东、南、西、北。执行某个命令时，它会向着对应方向移动一个单位。作为新型机器人，自然不会只单单执行一个命令，它可以执行命令串。对于输入的命令串，每一秒它会按照命令行动一次。而执行完命令串最后一个命令后，会自动从头开始循环。在0 时刻时早苗将钢达姆放置在了(0,0)的位置，并且输入了命令串。她想要知道T 秒后钢达姆所在的位置坐标。

Input

　　第1 行：一个字符串，表示早苗输入的命令串，保证至少有1 个命令。
　　第2 行：一个正整数T。

Output

　　第1 行：两个整数，表示T 秒时，钢达姆的坐标。

Solution

  

这还能怎么说，看代码吧。

代码

var
  s:ansistring;
  T,x,y,mo:longint;
procedure main;
var
  i,l:longint;
begin
  l:=length(s);
  x:=0; y:=0;
  for i:=1 to l do
    if s[i]='N' then inc(y) else
      if s[i]='S' then dec(y) else
        if s[i]='W' then dec(x) else
          if s[i]='E' then inc(x);
  mo:=T mod l; T:=T div l;
  x:=x*T; y:=y*T;
  for i:=1 to mo do
    if s[i]='N' then inc(y) else
      if s[i]='S' then dec(y) else
        if s[i]='W' then dec(x) else
          if s[i]='E' then inc(x);
end;

begin
  readln(s);
  readln(T);
  main;
  writeln(x,' ',y);
end.