Серьезная программа

[BDA]

Наброски:

uses
  crt;

var
  h, m, i, d: integer;

begin
  for i := 0 to 720 do
  begin
    h := i div 60;
    m := i mod 60;
    d := 60 * h - 12 * m;
    while d < 0 do
      d := d + 180;
    while d > 180 do
      d := d - 180;
    writeln(h, 'h ', m, 'm - ', d / 11:0:4);
  end;
  readln;
end.

Update Кое-что исправил.

[Mad_Cat]

var
h,m:integer;
angleH,angleM:real;
delta:real;
i:integer;
begin
readln(h,m);
AngleM:=360/60*M;
AngleH:=360/12*H+0.5*M;
delta:=AngleM-AngleH;
while delta>360 do delta:=delta-360;
i:=0;
While ( delta - 90<>0) and (delta -270<>0) do begin
inc(i);
AngleH:=AngleH+0.5;
angleM:=AngleM+6;
delta:=AngleM-AngleH;
while delta>360 do delta:=delta-360;
end;
writeln(i);
end.

[MasterMaind]

Спасибо конечно большое...но есть й ошибка.Вы в своих кодах оба не учли что 90 градусов может быть с частичным переходом на следующий час.

[Mad_Cat]

Это не учли составители задачи так как не задается время в секундах а так как нам нужно точно 90 градусов то как раз в 3 и в 9 ровно это событие наступит остальные наступят не в ровные минуты а с секундами. Найдете еще одно время ровно с часами минутами и 00 секунд код поправлю. Удачи!!!

[BDA]

uses
  crt;
 
var
  h, m, i, d: integer;

 
begin
  for i := 0 to 720 do
  begin
    h := i div 60;
    m := i mod 60;
    
    d := i - 12 * (i mod 60) + 180;
    while d > 360 do
        dec(d, 360);
    while d < 0 do
        inc(d, 360);   
    writeln(h, 'h ', m, 'm : ', d / 11:0:4)
  end;
  readln;
end.

Нашел ошибку (не учитывал кое-что при расчете градусов часовой стрелки).

90 градусов может быть с частичным переходом на следующий час.

Посмотрите, осталась ли ошибка, т.к. я пока не понял, где она.

[Mad_Cat]

1 => 1 час. 21 мин. 49 сек.
2 => 3 час. 0 мин. 0 сек.
3 => 5 час. 43 мин. 38 сек.
4 => 7 час. 21 мин. 49 сек.
5 => 9 час. 0 мин. 0 сек.
6 => 11 час. 43 мин. 38 сек.

все углы в 90 градусов на циферблате

[BDA]

У мя больше

1 => 1 час. 21 мин. 49 сек.
1h 54m
2h 27m
2 => 3 час. 0 мин. 0 сек.
3h 32m
4h 5m
4h 38m
5h 10m
3 => 5 час. 43 мин. 38 сек.
6h 16m
6h 49m
4 => 7 час. 21 мин. 49 сек.
7h 54m
8h 27m
5 => 9 час. 0 мин. 0 сек.
9h 32m
10h 5m
10h 38m
11h 10m
6 => 11 час. 43 мин. 38 сек.

Точнее указать не могу.
Кстати, Ваше сообщение помогло найти ошибку в моей программе.
(Неправильная обработка 9 и 3 часов - думаю, как исправить).
Update Всего лишь нужно было сделать строгое неравенство

uses
  crt;
 
var
  h, m, i, d: integer;

 
begin
  for i := 0 to 720 do
  begin
    h := i div 60;
    m := i mod 60;
    
    d := i - 12 * (i mod 60) + 180;
    while d >= 360 do
        dec(d, 360);
    while d < 0 do
        inc(d, 360);   
    writeln(h, 'h ', m, 'm : ', d / 11:0:4)
  end;
  readln;
end.

[Mad_Cat]

6h 16m

92 градуса

6h 49m

89,5 градусов

11h 10m

85 градусов
еще посчитать?

[BDA]

Сообщение от Mad_Cat

92 градуса

Вы правы. Хм, но, все равно, около 6 часов 16 минут есть позиция, где угол 90 градусов
(осталось найти еще одну ошибку в программе - не везет мне с этой задачкой).

89,5 градусов

Ну я же предупредил, что указываю не точно (без секунд).

Раз уж Вам нужна точность:

6h 16m 21s
6h 49m 5s
11h 10m 54s

Все же, похоже, нету ошибки

[MasterMaind]

Давайте не будем сейчас...суть не в этом. Посмотрел последний код,там переход осушествлен верно но теперь подсчет "сколько времени осталось до 90 градусов" иногда косячит.....сам вот думаю.