Определить сколько полных оборотов сделает точка вокруг (0,0) пройдя по траектории

@Amber_ · Регистрация: 17.01.2021

Вводится последовательность точек на координатной плоскости, ((0,0) признак конца последовательности). Траектория блуждания точки из (1,0).
Определить сколько полных оборотов сделает точка вокруг (0,0) пройдя по этой траектории.

@Cyborg Drone · 19.01.2021, 00:40

Точка имеет право двигаться только в направлении положительного отсчёта углов (против часовой стрелки) или по кратчайшему пути? Если последнее, то в каком направлении отсчитывать угол 180^o?

@Amber_ · 19.01.2021, 00:55 **[ТС]**

В задаче это не указано, всё условие написано в вопросе, предполагаю, что первое

@Cyborg Drone · 19.01.2021, 02:21

Pascal

var
  x, y, a, b: real;
  n: integer;
begin
  writeln('Введите координаты точек, конец ввода - точка 0 0');
  b := 0;
  x := 1;
  y := 0;
  while (x <> 0) or (y <> 0) do
    begin
      a := b;
      if x = 0 then
        if y > 0 then b := pi / 2
        else b := 1.5 * pi
      else
        begin
          b := arctan(y / x);
          if x < 0 then b := b + pi
          else
            if y < 0 then b := b + 2 * pi
        end;
      if a > b then inc(n);
      read(x, y)
    end;
  readln;
  writeln('Количество полных оборотов: ', n);
  readln
end.

@Amber_ 0 / 0 / 0 Регистрация: 17.01.2021 Сообщений: 3
		1
	Определить сколько полных оборотов сделает точка вокруг (0,0) пройдя по траектории 17.01.2021, 12:47. Просмотров 1812. Ответов 3 Метки Pascal (Паскаль), координатная плоскость, последовательности, циклы (Все метки) Вводится последовательность точек на координатной плоскости, ((0,0) признак конца последовательности). Траектория блуждания точки из (1,0). Определить сколько полных оборотов сделает точка вокруг (0,0) пройдя по этой траектории. 0

@Cyborg Drone Модератор 8340 / 4110 / 2850 Регистрация: 17.08.2012 Сообщений: 13,111
	19.01.2021, 00:40	2
	Точка имеет право двигаться только в направлении положительного отсчёта углов (против часовой стрелки) или по кратчайшему пути? Если последнее, то в каком направлении отсчитывать угол 180^o? 0

@Amber_ 0 / 0 / 0 Регистрация: 17.01.2021 Сообщений: 3
	19.01.2021, 00:55 [ТС]	3
	В задаче это не указано, всё условие написано в вопросе, предполагаю, что первое 0

Опции темы

Определить сколько полных оборотов сделает точка вокруг (0,0) пройдя по траектории

Решение