找考场

【题目描述】
小王同学在坐标系的（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

转载于:https://www.cnblogs.com/JRX2015U43/p/6533470.html