Question

Капитан флинт зарыл клад на острове сокровищ. он оставил описание, как найти клад. описание состоит из строк вида: "north 5", где слово – одно из "north", "south", "east", "west", – задает направление движения, а число – количество шагов, которое необходимо пройти в этом направлении. напишите программу, которая по описанию пути к кладу определяет точные координаты клада, считая, что начало координат находится в начале пути, ось ox направлена на восток, ось oy – на север. входные данные на вход подается последовательность строк указанного формата. гарантируется, что числа не превосходят 108. выходные данные необходимо вывести координаты клада – два целых числа через пробел. гарантируется, что эти числа не превосходят 108.

Answer 1

Var
  d: string;
  i, p, s, x, y, err: integer;

begin
  x := 0; y := 0;
  for i := 1 to 5 do
  begin
    readln(d);
    p := Pos(' ', d);
    Val(Copy(d, p + 1, Length(d) - p + 1), s, err);
    d := Copy(d, 1, p - 1);
    case d of
      'North': y := y + s;
      'South': y := y - s;
      'East': x := x + s;
      'West': x := x - s
    end
  end;
  Writeln(x, ' ', y)
end.

Тестовое решение:
East 10
North 12
West 5
South 2
West 7
-2 10