Доброй ночи! Народ, как сделать, не представляю вообще... Помогите, пожалуйста!
Дано время, описанное следующим образом: type time = record h:0..23; m,s: 0..59 end; Описать логическую функцию erlier(t1,t2) для проверки, предшествует ли время t1 времени t2 (в рамках суток) и проиллюстрировать её работу в программе.
IUnknown
25.04.2012 17:03
type Time = record h : 0 .. 23; m, s : 0 .. 59 end;
function Earlier(T1, T2 : Time) : Boolean; begin result := (T1.h < T2.h) or ((T1.h = T2.h) and (T1.m < T2.m)) or ((T1.h = T2.h) and (T1.m = T2.m) and (T1.s < T2.s));