Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.09.2008, 21:13   #1
RealSHELS
Форумчанин
 
Аватар для RealSHELS
 
Регистрация: 04.03.2008
Сообщений: 176
По умолчанию Задачка про часики.

Всем доброго времени суток. Вот я не могу решить задачу. Прошу помощи у вас.

Дано целые числа m, n (0<m ≤12, 0≤n<60), которые указыают на момент времени: “m часов, n минут”. Узнать найменшее время (число полных минут), которое должно пройти до того времени, когда стрелки на цыферблате совпадут(минутная и часовая).
RealSHELS вне форума Ответить с цитированием
Старый 11.09.2008, 23:27   #2
alexBlack
Участник клуба
 
Регистрация: 12.10.2007
Сообщений: 1,204
По умолчанию

Цитата:
Сообщение от RealSHELS Посмотреть сообщение
Всем доброго времени суток. Вот я не могу решить задачу. Прошу помощи у вас.

Дано целые числа m, n (0<m ≤12, 0≤n<60), которые указыают на момент времени: “m часов, n минут”. Узнать найменшее время (число полных минут), которое должно пройти до того времени, когда стрелки на цыферблате совпадут(минутная и часовая).
Код:
var m, n:integer;
begin
   m := 8;
   n := 20;

   if m = 12 then m := 0;

   repeat
      // Даже если стрелки уже совпали ищем следующее положение
      m := (m*60 + n+1) div 60;
      n := (n+1) mod 60;
   until m * 5 + n div 12 = n;

   writeln( m:2, ':', n:2);    // 8:43
   readln;

   // m * 5 + n div 12; - Положение часовой стрелки с точностью до минуты
   // n;                - Положение минутной стрелки с точностью до минуты
alexBlack вне форума Ответить с цитированием
Старый 13.09.2008, 18:17   #3
RealSHELS
Форумчанин
 
Аватар для RealSHELS
 
Регистрация: 04.03.2008
Сообщений: 176
По умолчанию

спасиба огромное.
RealSHELS вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Иконка в системном трее (там, где часики) Македонский Win Api 6 22.12.2008 18:03
Задачка SunKnight Паскаль, Turbo Pascal, PascalABC.NET 3 03.09.2008 20:44
Вот это задачка!!! Лёха Паскаль, Turbo Pascal, PascalABC.NET 2 29.04.2008 10:54
Задачка для ума 3 ZORRO2005 Microsoft Office Excel 14 23.04.2008 12:35