Найти угол между часовой и минутной стрелками

@Andrey789 · Регистрация: 05.07.2015

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

Задано время, нужно рассчитать угол между часовой и минутной стрелками.

@kot96 · 05.07.2015, 16:57

Вроде так.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program ex;
var h,m:integer;
    r,rm,rh:real;
begin
repeat
begin 
writeln('Введите время (12 часовой формат): ');readln(h,m);
end;
until(((h>0) and (h<13))and((m>=0) and (m<=60)));
rm:=360*m/60;//угол между минутной стрелкой и полуднем
rh:=360*(h mod 12)/12;//угол между часовой стрелкой и полуднем
write('угол между стрелками: ',abs(rm-rh));
end.

@Cyborg Drone · 09.07.2015, 04:38

kot96, решение неверное:

1) где Вы видели часы, у которых часовая стрелка всегда указывает ровно на тот час, который длится в настоящий момент? Вообще-то, она всё время движется в 12 раз медленнее, чем минутная стрелка. К примеру, при времени 3:15 между стрелками будет -7.5 градусов, а не 0, как у Вас;
2) уточнение: в математике углы отсчитываются против часовой стрелки, а в данной задаче нужно найти угол между часовой стрелкой (начало отсчёта угла) и минутной (конец отсчёта угла), и, если не указано иначе, величина угла должна находиться в диапазоне [-180..180] градусов. У Вас же при времени 12:59 получается угол в 254 градуса, что дважды неверно;
3) а переменная "r"... Для чего? В программе она не используется;
4) код форматируйте, что ли, как-никак на Ваши сообщения весь мир смотрит.

Если строго по заданию, то вот так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var h, m: integer;
    u: double;
begin
  repeat
    write('Часы: ');
    readln(h);
    write('Минуты: ');
    readln(m);
  until (h in [0..24]) and (m in [0..59]);
  u := h mod 12 * 30 - 5.5 * m;
  if u > 180
    then u := u - 360
    else if u < -180
      then u := u + 360;
  write('Угол между часовой и минутной стрелками, градусы: ', u:0:1);
  readln
end.

Однако, есть парадокс: обычно люди направление отсчёта угла во внимание не принимают, и ещё в качестве величины угла берётся наименьшее значение из возможных. Без никаких знаков минус. То есть, в быту не бывает углов по величине более 180 градусов, да ещё и отрицательных, такие вот люди странные. В этом случае нужно строчку в моей программе заменить:

Pascal
15
  write('угол между стрелками, градусы: ', abs(u):0:1);

kot96, Вы уж повнимательнее, пожалуйста.

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@Andrey789 0 / 0 / 0 Регистрация: 05.07.2015 Сообщений: 5

	Найти угол между часовой и минутной стрелками 05.07.2015, 12:18. Показов 13319. Ответов 2 Метки нет (Все метки) Задано время, нужно рассчитать угол между часовой и минутной стрелками. 0

Найти угол между часовой и минутной стрелками

Решение