Капитан флинт зарыл клад на острове сокровищ. - вопрос №3391521 от mahmetova22 29.03.2020 18:26

Question

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

mahmetova22 · Answer

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