Сколько нужно выстрелов, чтобы поразить все мишени

@Koc52 · Регистрация: 28.11.2013

Author24 — интернет-сервис помощи студентам

Помогите решить,пожалуйста)
Заданы координаты (x,y), N мишеней (N<=100). Считается,что выстрел происходит из начала координат и несколько мишеней поражаются одним выстрелом,если они находятся на одной линии. Определить,сколько нужно выстрелов, чтобы поразить все мишени.

@volvo · 28.11.2013, 21:51

Как-то вот так (координаты мишеней ведь не могут быть отрицательными?) :

Pascal

const
  maxN = 100;
var
  Cx, Cy : array[1 .. maxN] of Integer;
  Alpha : array[0 .. 90] of integer;
  i, n, Count : Integer;
 
begin
  { Тут вводишь свои данные, я понятия не имею, как они заданы }
 
  FillChar(Alpha, sizeof(Alpha), 0);
 
  { Для каждой мишени считаем угол отклонения от оси абсцисс с точностью до 1 градуса }
  for i := 1 to n do
    if Cx[i] = 0 then Inc(Alpha[90]) {предотвращаем деление на 0 }
    else Inc(Alpha[Trunc(ArcTan(Cx[i] / Cx[i]) * 180 / Pi)]);
 
  { А теперь просто смотрим, сколько возможных вариантов выстрела
    имеет ненулевое кол-во мишеней на пути }
  Count := 0;
  for i := 0 to 90 do
    if Alpha[i] > 0 then Inc(Count);
 
  WriteLn(Count, ' выстрелов');
end.

@Koc52 · 29.11.2013, 19:33 **[ТС]**

UI,
Если посудить,то координаты могут быть и отрицательными... и компилятор,кстати,ошибку почему то выдает (FillChar не нравится)

@volvo · 29.11.2013, 19:53

Сообщение от Koc52

и компилятор,кстати,ошибку почему то выдает

Какой компилятор, кстати, сразу надо указывать. У меня ни Турбо, ни FPC никаких ошибок не выдает. А возможность работы с отрицательными координатами очень просто добавить: во-первых, надо изменить размер массива Angle на 0 .. 359, а во-вторых, при X = 0, надо будет проверять знак Y и в зависимости от этого увеличивать либо значение Alpha[90] (если Y положительный), либо Alpha[270], если Y отрицательный... Вот и все изменения.

@Koc52 · 29.11.2013, 20:14 **[ТС]**

UI,
Огромное спасибо вам за помощь!

@Koc52 0 / 0 / 0 Регистрация: 28.11.2013 Сообщений: 44
		1
	Сколько нужно выстрелов, чтобы поразить все мишени 28.11.2013, 20:04. Показов 874. Ответов 4 Метки нет (Все метки) Помогите решить,пожалуйста) Заданы координаты (x,y), N мишеней (N<=100). Считается,что выстрел происходит из начала координат и несколько мишеней поражаются одним выстрелом,если они находятся на одной линии. Определить,сколько нужно выстрелов, чтобы поразить все мишени. 0

@Koc52 0 / 0 / 0 Регистрация: 28.11.2013 Сообщений: 44
	29.11.2013, 19:33 [ТС]	3
	UI, Если посудить,то координаты могут быть и отрицательными... и компилятор,кстати,ошибку почему то выдает (FillChar не нравится) 0

@volvo Супер-модератор 32830 / 21168 / 8147 Регистрация: 22.10.2011 Сообщений: 36,429 Записей в блоге: 8
	29.11.2013, 19:53	4
	Сообщение от Koc52 и компилятор,кстати,ошибку почему то выдает Какой компилятор, кстати, сразу надо указывать. У меня ни Турбо, ни FPC никаких ошибок не выдает. А возможность работы с отрицательными координатами очень просто добавить: во-первых, надо изменить размер массива Angle на 0 .. 359, а во-вторых, при X = 0, надо будет проверять знак Y и в зависимости от этого увеличивать либо значение Alpha[90] (если Y положительный), либо Alpha[270], если Y отрицательный... Вот и все изменения. 1

@Koc52 0 / 0 / 0 Регистрация: 28.11.2013 Сообщений: 44
	29.11.2013, 20:14 [ТС]	5
	UI, Огромное спасибо вам за помощь! 0

Опции темы