Форум на Исходниках.RU

Положение стрелок на циферблате

Jin X — Wed, 28 May 2003 05:31:20 +0000

Jin X: Спрашивали когда-то на паскалевском форуме...

Var h, m: Integer; Hpos, Mpos, Msovp, Mint: Real; Begin Write('Введите Часы Минуты: '); ReadLn(h, m); h := h mod 12; Hpos := h + m/60; Mpos := m/5; If Mpos < Hpos then Begin Msovp := h*60/11; Mint := Msovp - m End else If Mpos > Hpos then Begin h := (h + 1) mod 12; Msovp := h*60/11; Mint := 60 + Msovp - m End; WriteLn('Совпадут через ', Trunc(Mint), ' минут ', Trunc(Frac(Mint)*60), ' секунд') End.

if'ы, надеюсь, можно (если нет, ищи в паск. форуме (по куску моего кода), там нельзя было).

Про перпендикуляр потом (если не забуду), сейчас некогда.

Положение стрелок на циферблате

vesper1 — Mon, 26 May 2003 10:16:39 +0000

vesper1:

mins:=m*60+n; dmin:=12*60/11; minsmatch:=trunc(dmin*trunc((mins+dmin)/dmin)-mins); dmin:=dmin/2; minsperp:=trunc(dmin*round((mins+dmin)/dmin)-mins);

По-моему так.

Положение стрелок на циферблате

Demo_S — Sun, 25 May 2003 20:30:14 +0000

Demo_S: (раздраженно) нет бы сразу сказать, что можно, а что нельзя...
а то сиди гадай тут..
массивы оказывается нельзя, а / и \% (div и mod)
можно....
а + и - можно?

Положение стрелок на циферблате

.exe — Sun, 25 May 2003 18:23:49 +0000

.exe: В том то и дело, что массивы тоже нельзя :(.
Здесь я так думаю должны использоваться одни div'ы и mod'ы :).

Положение стрелок на циферблате

Demo_S — Sat, 24 May 2003 21:36:39 +0000

Demo_S: тебе надо решить в принципе, или красиво?

если в принципе, то можно забецать здоровенный двумерный массив из предопределенных значений, который вводится с помощью операторов присваивания...
а потом зная
i - кол-во часов
и j - кол-во минут
написать
res=arr[i][j]

Положение стрелок на циферблате

.exe — Sat, 24 May 2003 20:19:34 +0000

.exe: Как-то давно я обращался в паскалевский форум с просьбой помочь написать реализацию одной "звездонутой" задачи... Так правильно мы её и не решили - и меня тогда направили к вам(а я постеснялся :)). В силу обстоятельств обращаюсь только сейчас(гложет что-то внутри - не написал я её :( ).

Пусть даны целые числа m,n(часы, минуты), 0<=m<=11, 0<=n<=59, определяющие время суток. Определить наименьшее время(число полных минут), которое должно пройти до того момента, когда часовая и минутная стрелка на циферблате:
а)совпадут;
б)расположатся перпендикулярно друг другу.

Вроде бы как задача не стоит и выеденного яйца... :)
Но вот западло - разрешено использовать только оператор присваивания (ввода/вывода тоже можно).