Определить угол в градусах между положением часовой стрелки в начале суток и ее положением в h часов - Pascal ABC
Формулировка задачи:
3. Определить угол в градусах между положением часовой стрелки в начале суток и ее положением в h часов, m минут и s секунд.
Код к задаче: «Определить угол в градусах между положением часовой стрелки в начале суток и ее положением в h часов - Pascal ABC»
var h,m,s:integer;
u:real;
begin
repeat
writeln('Введите время в часах, минутах, секундах');
readln(h,m,s);
until(h in [0..23])and(m in [0..59])and(s in [0..59]);
h:=h mod 12;//за половина суток
s:=h*3600+m*60+s;//прошло секунд
u:=360*s/12/3600;//угол
write('Угол=',u:0:2,' градусов')
end.
5 голосов, оценка 4.000 из 5
СОХРАНИТЬ ССЫЛКУ