Определить часы минуты и секунды прошедших с начала суток

@donimsi09 · Регистрация: 30.06.2016

Студворк — интернет-сервис помощи студентам

Здравствуйте! Не могу додуматься как вычислить секунды,может кто подскажет?Вот код, который нашел в интернете,но как вычислить секунды не знаю.
Задача : Определить h часов, m минут и s секунд, прошедших с начала суток до того момента (в первой половине дня), когда часовая стрелка повернулась на f градусов (0 <= f <= 360, f – вещественное число).

Pascal

Program chasi;
var
 
 f:real;
 h,m,s:integer;
 
begin
 repeat
 writeln('Введите угол F в градусах');
 readln(f);
 until(f>=0)and(f<360);
 
 h:=trunc(f/30);
 m:=trunc(2*f)-60*h;
 s:=???;
 
 writeln('С начала суток прошло');
 if h<10 then write('0',h,':') else write(h,':');
 if m<10 then write('0',m,':') else write(m,':');
 if s<10 then write('0',s) else write(s);
 
end.

@Puporev · 25.09.2016, 09:40

Pascal

Program chasi;
var  f:real;
     t,h,m,s:integer;
begin
repeat
write('Введите угол F в градусах F=');
readln(f);
until(f>=0)and(f<=360);
//вычислим время в секундах 1 градус=12/360*3600=120 секунд
t:=trunc(f*120);
h:=t div 3600;
m:=t div 60 mod 60;
s:=t mod 60;
writeln('С начала суток прошло');
if h<10 then write('0',h,':') else write(h,':');
if m<10 then write('0',m,':') else write(m,':');
if s<10 then write('0',s) else write(s);
end.

@donimsi09 · 25.09.2016, 13:19 **[ТС]**

Спасибо огромное, а то уже всю голову сломал с этими секундами минутами и часами.

@donimsi09 0 / 0 / 1 Регистрация: 30.06.2016 Сообщений: 99
	25.09.2016, 13:19 [ТС]	3
	Спасибо огромное, а то уже всю голову сломал с этими секундами минутами и часами. 0

Опции темы