Записи

[Andrew5674]

Помогите пожалуйста нужно
Переменной t присвоить значение true, если дата d1, m1 предшествует (в рамках года) дате d2, m2, и значение false иначе.
type
M=(jan,feb,mar,apr,may,jun,jul,aug,sept,oct,nov,dec);
D=1..31;
var
t:boolean;
d1,m1,d2,m2:integer;

[dr.Jekill]

Может переменные объявлены так?

Код: Выделить всё

var 
d1, d2 : D;
m1, m2: M;

Потому что при Вашем объявлении достаточно проверить, что m1 < m2 или m1 = m2, но d1 < d2.

Код: Выделить всё

t  := (m1 < m2) or ((m1 = m2) and (d1 < d2))

[Andrew5674]

Может переменные объявлены так?

Код: Выделить всё

var 
d1, d2 : D;
m1, m2: M;

Потому что при Вашем объявлении достаточно проверить, что m1 < m2 или m1 = m2, но d1 < d2.

Код: Выделить всё

t  := (m1 < m2) or ((m1 = m2) and (d1 < d2))

да я там ошибся с условием
type
M=(jan,feb,mar,apr,may,jun,jul,aug,sept,oct,nov,dec);
D=1..31;
var
d1, d2 : D;
m1, m2: M;
t: boolean;

[dr.Jekill]

Определите номера месяцев в множестве, а дальше так же как я написал