JZOJ_2499_东风谷早苗 (Standard IO)

Description

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

Input

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

Output

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

Solution

  

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

代码

 

 1 var
 2   s:ansistring;
 3   T,x,y,mo:longint;
 4 procedure main;
 5 var
 6   i,l:longint;
 7 begin
 8   l:=length(s);
 9   x:=0; y:=0;
10   for i:=1 to l do
11     if s[i]='N' then inc(y) else
12       if s[i]='S' then dec(y) else
13         if s[i]='W' then dec(x) else
14           if s[i]='E' then inc(x);
15   mo:=T mod l; T:=T div l;
16   x:=x*T; y:=y*T;
17   for i:=1 to mo do
18     if s[i]='N' then inc(y) else
19       if s[i]='S' then dec(y) else
20         if s[i]='W' then dec(x) else
21           if s[i]='E' then inc(x);
22 end;
23 
24 begin
25   readln(s);
26   readln(T);
27   main;
28   writeln(x,' ',y);
29 end.