Переменной t присвоить значение true, если дата d1, m1 предшествует (в рамках года) дате d2, m2, и значение false иначе

[Andrew5674]

Переменной t присвоить значение true, если дата d1, m1 предшествует (в рамках года) дате d2, m2, и значение false иначе.

type
месяц=(янв,фев,мар,апр,май,июн,июл, авг,сен,окт,ноя,дек);
день=1..31;
var
d1,d2: день;
m1,m2: месяц;
t: boolean;

[Serge_Bliznykov]

что означает название вашей темы? При чём здесь записи?!


по сути, код примерно такой:

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

тут пара скобок избыточна, т.к. операция AND имеет более высокий приоритет, чем операция OR, но я их специально поставил, чтобы выделить этот самый порядок выполнения лог.операций!

[Andrew5674]

вот так у меня получилось, правильно?

uses crt;
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;
begin
clrscr;
writeln('Введите d1,m1');
write('d1=');
readln(d1);
write('m1=');
readln(m1);
writeln('Введите d2,m2');
write('d2=');
readln(d2);
write('m2=');
readln(m2);
t:=(m1<m2) Or ((m1=m2) And(d1<d2));
Writeln(t);
end.

[Serge_Bliznykov]

ну, программа получилась, конечно, рабочая. Вот только непонятно, зачем Вы описывали типы (type) M и D, если Вы ими не пользуетесь.
Вы либо удалите строчки с описанием типов, либо используйте их:

type
      M=(jan,feb,mar,apr,may,jun,jul,aug,sept,oct,nov,dec);
      D=1..31;
var t:boolean;
    m1,m2: M;
    d1,d2 : D;

правда, думаю, что ввод месяца придётся делать чуть-чуть посложнее...

[Andrew5674]

да это задание такое, нужно с их использованием сделать, а я знаю только как вот так просто сделать((

Сообщение от Serge_Bliznykov

ну, программа получилась, конечно, рабочая. Вот только непонятно, зачем Вы описывали типы (type) M и D, если Вы ими не пользуетесь.
Вы либо удалите строчки с описанием типов, либо используйте их:

type
      M=(jan,feb,mar,apr,may,jun,jul,aug,sept,oct,nov,dec);
      D=1..31;
var t:boolean;
    m1,m2: M;
    d1,d2 : D;

правда, думаю, что ввод месяца придётся делать чуть-чуть посложнее...