Определить угол в градусах между положением часовой стрелки в начале суток и ее положением в 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
СОХРАНИТЬ ССЫЛКУ