Стр. 317 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
317
4. Перед разделом объявления глобальных переменных Var объявите
следующую процедуру.
//возвращает в переменные h,m,s
//количество часов, минут и секунд,
//полученные из парметра Value -
//количество кадров в фильме (Frames )
procedure GetHMS(Value:integer;var h,m,s:byte);
5. В разделе Implementation создайте процедуру GetHMS.
//возвращает в переменные h,m,s
//количество часов, минут и секунд,
//полученные из параметра Value -
//количество кадров в фильме (Frames )
procedure GetHMS(Value:integer;var h,m,s:byte);
begin
//Value - количество кадров в фильме
//или количество кадров от начала фильма до текущей позиции
//в одной секунде содержится 24 кадра, поэтому
//количество кадров делится на 24 и
//получаем время в секундах
//время в часах
//в одном часе 3600 секунд
//целое число часов в фильме
h:=value div 24 div 3600;
//время в минутах
//целое число минут в фильме
m:=(value div 24 - h*3600) div 60;
//время в секундах
//целое число секунд в фильме
s:=value div 24 - h*3600 - m*60;
end;
6. Перед разделом объявления глобальных переменных Var объявите
следующую функцию.
//возвращает строку в виде hh:mm:ss
function GetHHMMSS(h,m,s:byte):string;
7. В разделе Implementation создайте функцию GetHHMMSS.
//возвращает строку в виде hh:mm:ss
function GetHHMMSS(h,m,s:byte):string;
begin
//начальное значение функции