-Цитата от иксуй!

Показать скрытый текст

ребят, кто шарит помогите, тут дела на 3 минуты
нужна функция на паскале, сравнивающая две даты

дата представлена типом запись
и хранятся в виде массива
напишите код функции, если не впадлу, тут дела на пять минут, я просто путаюсь в переменных с типом запись, не знаю что куда

Код:

type date=record
          day:1..31;
          month:1..12
          year:integer
       end;

Показать скрытый текст

Код:

type date=record
          day:1..31;
          month:1..12;
          year:integer
       end;

function Comp(a, b: date): integer; {0 - равны, 1 - первая дата больше, 2 - вторая дата больше}
var result: integer;
begin
  { Сравниваем года }
  if a.year > b.year then result:=1;
  if a.year < b.year then result:=2;
  if a.year = b.year then result:=0;
  { Сравниваем месяца }
  if result = 0 then
    begin
      if a.month > b.month then result:=1;
      if a.month < b.month then result:=2;
      if a.month = b.month then result:=0;
    end;

  { Сравниваем дни }
  if result = 0 then
    begin
      if a.day > b.day then result:=1;
      if a.day < b.day then result:=2;
      if a.day = b.day then result:=0;
    end;
  Comp:= result;
end;
var a, b: date;
begin
  { Описываем переменные }
  a.day:=11; a.month:=2; a.year:=2010;
  b.day:=10; b.month:=2; b.year:=2010;
  { End }
  
  writeln(Comp(a, b));
  readln;
end.