Найти закопанное пиратами сокровище просто: все, что для этого нужно - это карта. Как известно, пираты, как правило, рисуют карту от руки и описывают алгоритм поиска сокровища «Встаньте около одинокой пальмы. Пройдите тридцать шагов в сторону леса, потом семнадцать шагов в сторону озера, наконец, десять шагов в сторону большого булыжника. Сокровище находится под ним». Большая часть таких указаний просто взводится до прохождения какого-то количества шагов в одном из восьми направлений (1 - север, 2 - северо-восток, 3 - восток, 4 - юго-восток, 5 -юг, 6 – юго-запад, 7 - запад, 8 - северо-запад) (см. рис). Длина шага в любом направлении равна 1.
Путешествуя по такому пути, это дает возможность помиловаться красотой окружающей природы, но у нас время на это нет . Поэтому пираты хотят идти до точки, где спрятано сокровище. Например, вместо того, чтобы проходить три шага на север, один - на восток, один - па север, три - на восток, два - на юг и один - на запад, можно пройти напрямик, используя приблизительно 3.6 шага.
Вам нужно написать программу которая по которая по указаниям пиратов узнает координати точки где зарит клад.
Формат входящих данных: первый ряд имеет число N-число указаний. Следующие ряды состоят из самых указаний(номер направления и количество шагов между числами есть пропуск)
Формат исходящих данных:у исходящий файл вивести координати точок X I Y(два числа между которими есть пропуск )
Имя входного файла: c.in
Имя исходящего файла: c.out
Максимальный час работы над одним тестом: 2 секунды

Это сообщение отредактировал(а) Pakshin A. S. - 22.1.2005, 20:58

Цитата

Максимальный час работы над одним тестом: 2 секунды

А машина какая? В смысле - для 4 пня это не проблема, а вот для 286-го ...

Ограничения - размер карты, макс. количесвтво указаний?

Вообще, насколько я понимаю, тут самое быстрое решение - если идем вверх, прибавлять к y-коорд еденицу, вниз - отнимать еденицу и т.д.

1<Число указаний<40. Номер направления от 1 до 8.Количество шагов от 1 до 1000

banan

Код

' Direction - направление, строка 1 байт ' Count - сколь шагов в этом направлении, целое Nord=0 West=0 For i=1 to DirectionCount   if instr("128", Direction(i)) then Nord=Nord+Count(i)   if instr("456", Direction(i)) then Nord=Nord-Count(i)   if instr("678", Direction(i)) then West=West+Count(i)   if instr("234", Direction(i)) then West=West-Count(i) Next i

А на С (или там Паскаль) сами переводите.

PS. Задачка для третьего класса.

Это сообщение отредактировал(а) Akina - 14.12.2004, 14:15

...если считать, что вначале игрок стоит в точке (0,0)...

Код

{--- Borland Pascal 6.0 ---} program pirate; var inf,outf: text;    nord,west: integer;    direction: byte;    steps: byte;    numdir,i: byte; begin  assign(inf,'c.in');  reset(inf);  readln(inf,numdir);  nord:=0;  west:=0;  for i:=1 to numdir do      begin        readln(inf,direction,steps);        case direction of            1: nord := nord + steps;            2: begin nord := nord + steps; west := west - steps end;            3: west := west - steps;            4: begin nord := nord - steps; west := west - steps end;            5: nord := nord - steps;            6: begin nord := nord - steps; west := west + steps end;            7: west := west + steps;            8: begin nord := nord + steps; west := west + steps end;        end;      end;  close(inf);  assign(outf,'c.out');  rewrite(outf);  write(outf,nord,' ',west);  close(outf); end.

В начале игрок стоит в точке (0,0)

Если игрок идет по направлениям(2,4,6,8)Например 3 шага то длина етого пути составляет 3.6шага(приблизитильно).

Так, я не понял. В чем сейчас заключается вопрос?

Если ввести:1
1 10
ТО должно вивести в файл с.оut: 0 10. А виводит: 10 10

Это сообщение отредактировал(а) banan - 14.12.2004, 20:56

Цитата(banan @ 14.12.2004, 19:55)

Если ввести:1 1 10 ТО должно вивести в файл с.оut: 0 10. А виводит: 10 10

Странно. У меня выводит "10 0". Но превратить его в "0 10" можно, поменяв при выводе в файл nord и west

Банан привет. Я не знаю как делать ету задачу. От Славана

slava_s Мда... Бывает...