Question

Найти закопанный пиратами клад просто: все, что для этого нужно, это карта. как известно, пираты обычно рисуют карты от руки и описывают алгоритм нахождения клада так: «встаньте около одинокой пальмы. пройдите тридцать шагов в сторону леса, потом семнадцать шагов в сторону наконец десять шагов в сторону большого булыжника. клад находится под ним». большая часть таких указаний просто сводится к прохождению какого-то количества шагов в одном из восьми направлений: 1 - север, 2 - северо-восток, 3 - восток, 4 - юго-восток, 5 - юг,6 - юго-запад, 7 - запад, 8 - северо-запад (см. рис.1). длина шага в любом направлении равна 1. рис.1. путешествие по такому пути обычно является прекрасным посмотреть окрестности, однако в наше время постоянной спешки ни у кого нет времени на это. поэтому кладоискатели хотят идти напрямую в точку, где зарыт клад. например, вместо того чтобы проходить три шага на север, один шаг на восток, один шаг на север, три шага на восток, два шага на юг и один шаг на запад, можно пройти напрямую примерно 3,6 шага (см. рис. 1). вам необходимо написать программу, которая по указаниям пиратов определяет точку, где зарыт клад. формат входных данных. первая строка входного файла содержит число n - число указаний (1 < = n < = 40). последующие n строк содержат сами указания - номер направления (целое число от 1 до 8) и количество шагов (целое число от 1 до 1000). числа разделены пробелами. формат выходных данных. в выходной файл выведите координаты x и y точки (два вещественных числа, разделенные пробелом), где зарыт клад, считая, что ось ox направлена на восток, а ось oy — на север. изначально кладоискатель должен стоять вначале координат. необходимо вывести как целое число. формат ввода 6 1 3 3 1 1 1 3 3 5 2 7 1 формат вывода 3 2

Answer 1

Var

  I, N, D,L:longint;

  X,Y:real;

Begin

  Assign (input, ‘klad.txt’);

  Reset (input);

  Read(N);

X:=0; Y:=0;

For I:= 1 to N do begin

Read (D, L);

X := X+sin(Pi/4*(D-1))*L;

Y := Y+cos(Pi/4*(D-1))*L;

End;

  Assign(output, ‘kladt.txt’);

  Rewrite(output);

  Writeln(X:0:3,’ ’,Y:0:3);

  Close(output);

End.