Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
15 декабря 2022 21:19
449
BeginGetTime(часы,минуты,секунды,миллисекунды);
Выполнение тестов;
GetTime(часы,минуты,секунды,миллисекунды);
end.
Как узнать время выполнения тестов?
т.е конечное время минус начальное.
Например:
1 час 50 минут 30 секунд МИНУС 1 час 55 минут 30 секунд = 0 часов 5 минут 0 секунд
как это вывести в формулах?
1
ответ
H1, m1, s1 - начальное время
h2, m2, s2 - конечное время
Нужно определить h,m,s.
s := (h2 - h1)*3600 + (m2 - m1)*60 + (s2 - s1);
h := s div 3600; s := s mod 3600;
m := s div 60; s := s mod 60;
Т.е. в h - кол-во часов, в m - кол-во минут, в s - кол-во секунд.
h2, m2, s2 - конечное время
Нужно определить h,m,s.
s := (h2 - h1)*3600 + (m2 - m1)*60 + (s2 - s1);
h := s div 3600; s := s mod 3600;
m := s div 60; s := s mod 60;
Т.е. в h - кол-во часов, в m - кол-во минут, в s - кол-во секунд.
0
·
Хороший ответ
17 декабря 2022 21:19
Остались вопросы?
Еще вопросы по категории Информатика
Выберите фрагмент программы, в котором ищется произведение 1*2*3*4*5 p:=1; i:=1; while i<=5 do begin p:=p*i; i:=i+1; end; p:=1; i:=1; while i<=...
Построить таблицы истиности и логические схемы...
В каком соотношении находятся следующие единицы измерения информации: Бит, Байт, Килобайт?...
1-ТБ сколько ГБ? Помогите пожалуйста...
Переведите число 10111 из двоичной системы счисления в десятичную си‐ стему счисления....