Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
0 / 0 / 0
Регистрация: 17.01.2021
Сообщений: 3
1

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

17.01.2021, 12:47. Просмотров 1812. Ответов 3

Вводится последовательность точек на координатной плоскости, ((0,0) признак конца последовательности). Траектория  блуждания точки из (1,0). 
Определить сколько полных оборотов сделает точка вокруг (0,0) пройдя по этой траектории.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.01.2021, 12:47
Ответы с готовыми решениями:

Ленточку заданной длины наматывают на цилиндр известного радиуса. Сколько полных оборотов сделает лента?
Ленточку заданной длины наматывают на циллиндр известного радиуса. Сколько полных оборотов сделает...

Напишите программу, которая по заданной траектории Волка определяет на сколько полных оборотов Волк замотал Зайца
Заяц стоит в центре большого катка и поет свою любимую песенку в игрушечный микрофон. От микрофона...

Сколько оборотов сделает тело
Тело вращается равноускоренно с начальной угловой скоростью 5с-1 и угловым ускорением 1с-2. Сколько...

Сколько оборотов сделает тело за 10 с?
Помогите пожалуйста решить! 1. Тело вращается равноускоренно с начальной угловой скоростью 5 с-1...

3
Модератор
8340 / 4110 / 2850
Регистрация: 17.08.2012
Сообщений: 13,111
19.01.2021, 00:40 2
Точка имеет право двигаться только в направлении положительного отсчёта углов (против часовой стрелки) или по кратчайшему пути? Если последнее, то в каком направлении отсчитывать угол 180o?
0
0 / 0 / 0
Регистрация: 17.01.2021
Сообщений: 3
19.01.2021, 00:55  [ТС] 3
В задаче это не указано, всё условие написано в вопросе, предполагаю, что первое
0
Модератор
8340 / 4110 / 2850
Регистрация: 17.08.2012
Сообщений: 13,111
19.01.2021, 02:21 4
Лучший ответ Сообщение было отмечено Amber_ как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.01.2021, 02:21

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Сколько оборотов сделает тело за 10 с?
1. Тело вращается равноускоренно с начальной угловой скоростью 5 с-1 и угловым ускорением 1 с-2....

Сколько оборотов сделает цилиндр до остановки
Пожалуйста помогите решить эти задачи 1)Вертолет массой m=3 т висит в воздухе.Определить мощность,...

Сколько оборотов сделает тело при постоянном угловом ускорении
Спасайте) Дана задача Твердое тело вращается вокруг неподвижной оси с постоянным угловым...

Чему равно угловое ускорение диска? сколько оборотов сделает диск за 10с?
1) Диск, вращаясь равноускоренно из состояния покоя сделал 4.5 оборота за первые 3с. Чему равно...

Сколько оборотов сделает первая шестерня до того, когда метки на всех шестернях совпадут
Всем доброго времени суток, подкинули нашей группе такую вот не сложную задачку: Зубчастая...

Определить вероятность того, что за 40 тактов система сделает не менее двух оборотов
Задана цепь Маркова матрицей переходов: 1 2 3 4 1 0.8 0.2 0 0 2 0 0.8 0.2 0 3 0 0 0.8 0.2 4...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.