找考场

【题目描述】
小王同学在坐标系的（0，0）处，但是他找不到考试的试场，于是一边走路一边问路，每个被问路的人会告诉他一个指令（包括走路或转弯）。
现在请编一个程序，显示他每次走路后的坐标（转弯后坐标不变，所以不必显示坐标）。
初始方向向y轴正半轴。
【输入格式】
第一行一个数n，表示有n个指令。
接下来n行，每行一个指令，每个指令是“left” 或“right”或数字，分别表示左转、右转、向前走几步。
【输出格式】
对于每个是数字的指令，输出一行一个坐标，表示走完后的坐标。
如果只是原地转弯，从开始到最后从来不走动，则输出“(0,0)”。
【样例输入】
6
2
left
2
right
right
3
【样例输出】
(0,2)
(-2,2)
(1,2)
【分析】
直接模拟，注意细节。

const dx:array[1..4]of longint=(0,1,0,-1); dy:array[1..4]of longint=(1,0,-1,0); var s:string; i,n,x,y,dir,step:longint; flag:boolean; begin x:=0;y:=0;dir:=1; readln(n); flag:=false; for i:=1 to n do begin readln(s); if s[1]='l' then begin if dir=1 then dir:=4 else dec(dir); continue; end; if s[1]='r' then begin if dir=4 then dir:=1 else inc(dir); continue; end; val(s,step); x:=x+step*dx[dir]; y:=y+step*dy[dir]; writeln('(',x,',',y,')'); flag:=true; end; if not flag then write('(0,0)'); end.

数据下载：密码idub