О П Р О С И Н А З Н А Ч Е Н И Е В Р Е М Е Н И

Опрос и назначение времени по таймеру ПЭВМ выполняется процедурами GetTime и SetTime, входящими в стандартный модуль Dos. Заголовки процедур:

GetTime(Var Hour,Min,Sec,Sec100 : word);

SetTime(Hour,Min,Sec,Sec100 : word).

Здесь Hour - час, Min - минута, Sec - секунда, Sec100 - сотая доля секунды.

Процедура GetTime читает с таймера значение времени; процедура SetTime устанавливает на таймере новое значение времени.

Диапазоны изменения переменных:

Hour 0 .. 23

Min, Sec 0 .. 59

Sec100 0 .. 99

С помощью процедуры GetTime можно определить время работы программы или фрагмента программы.

Program Time;

UsesCrt, Dos;

Var h,m,s,s100 : word;

t1,t2,dt : longint;

Begin

....................

GetTime(h,m,s,s100);

t1:=60*h; t1:=((t1+m)*60+s)*100+s100;

....................

GetTime(h,m,s,s100);

t2:=60*h; t2:=((t2+m)*60+s)*100+s100;

dt:=t2-t1;

h:=dt div 360000; dt:=dt mod 360000;

m:=dt div 6000; dt:=dt mod 6000;

s:=dt div 100; s100:=dt mod 100;

Writeln('h= ',h,' m= ',m,' s= ',s,' s100= ',s100);

WaitEscape;

End.

Переменные t1 и t2 определяют текущее время, выраженное в сотых долях секунды.

Примечание. Если бы в программе было написано

t1:=((60*h+m)*60+s)*100+s100,

то при вычислении выражения в правой части оператора присваивания могло быть переполнение разрядной сетки переменной типа word (все переменные, входящие в состав выражения, имеют тип word; следовательно, и значение выражения также будет иметь тип word). Например, при h = 20, m = 0, s = 0, s100 = 0 получим значение 7200000, что значительно превышает максимально возможное для типа word. Напротив, в выражении

(t2+m)*60+s)*100+s100

переменная t2 имеет тип longint, остальные переменные - тип word; при вычислении этого выражения производится преобразование разнотипных целочисленных операндов к более старшему типу, т.е. к типу longint.