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