По двум введенным датам (г. м. д) определить, какая из них более ранняя ( Паскаль )

[Poma][a]

Ну Серж же сказал, что нужно правильно выбрать типы

[009]

Сообщение от Poma][a

Ну Серж же сказал, что нужно правильно выбрать типы

что не нравится? У меня ABCPascal, тип integer принимает значения: -2 147 483 648...+2 147 483 647
Имеете ввиду, что неправильно посчитает для годов типа: 220000?

[Poma][a]

Это Ваш идиотский АБЦ, а в традиционном турбушке и современном, но придерживающимся основных канонов, Фри(без включенного режима совместимости с дельфином) Integer занимает 2 байта.. а не 4, как у Вас..

[009]

Сообщение от Poma][a

Это Ваш идиотский АБЦ

во-первых он не мой (прикладываю руку к сердцу и честно клянусь, что к созданию PascalABC не имею никакого отношения)
во-вторых он совсем не идиотский, даже не догадываюсь чем Вам насолил именно АБЦ?

[Poma][a]

во-вторых он совсем не идиотский, даже не догадываюсь чем Вам насолил именно АБЦ?

Оо.. я бы тут поспорил..
Вы пробовали химичить с константными массивами? или использовать приведение типов? Или Вы никогда не сталкивались с необъяснимыми ошибками? или никогда у Вас один и тот же код мог то работать, то вылетать?

[Аватар]

Да, забавный способ.

А мне нравится такой способ Можно еще прикольней сделать

d1 = dd+mm*32+yy*385;

[Alter]

http://www.cyberforum.ru/turbo-pascal/thread250897.html

uses crt;
type date=record
          gd:integer;
          ms:byte;
          dn:byte;
          end;
function Menshe(dt1,dt2:date):boolean;
begin
Menshe:=(dt1.gd<dt2.gd)or((dt1.gd=dt2.gd)and(dt1.ms<dt2.ms))
      or((dt1.gd=dt2.gd)and(dt1.ms=dt2.ms)and(dt1.dn<dt2.dn));
end;
procedure Vvod(var dt:date;n:byte);
var k:byte;
begin
writeln('Введите дату ',n);
repeat
  write(' Год (1000-2011):');
  readln(dt.gd);
until (dt.gd>=1000)and(dt.gd<=2011);
repeat
  write('  Месяц (1-12): ');
  readln(dt.ms);
until dt.ms in [1..12];
repeat
  k:=0;
  write('  День: ');readln(dt.dn);
  if ((dt.ms in [1,3,5,7,8,10,12])and not(dt.dn in [1..31]))
  or ((dt.ms in [4,6,9,11])and not(dt.dn in [1..30]))
  or ((dt.ms=2)and(dt.gd mod 4=0)and not(dt.dn in [1..29]))
  or ((dt.ms=2)and(dt.gd mod 4<>0)and not(dt.dn in [1..28]))then k:=1;
until k=0;
clrscr;
end;
procedure Vyvod(var dt:date);
begin
if dt.dn<10 then write('0',dt.dn,'.')else write(dt.dn,'.');
if dt.ms<10 then write('0',dt.ms,'.')else write(dt.ms,'.');
write(dt.gd);
writeln;
end;
 
var d1,d2:date;
    n,i,j,im,k:byte;
begin
clrscr;
Vvod(d1,1);
Vvod(d2,2);
write('Первая дата: ');
Vyvod(d1);
write('Вторая дата: ');
Vyvod(d2);
if Menshe(d1,d2)then write('Первая дата раньше')
else write ('Первая дата не раньше');
readln
end.

Simple Date Routines - Набор функций для работы с датами:
Сравнение и сложение дат, номер и имя дня недели, определение високосного года.

calenfun - Функции календарных вычислений. Набор функций для работы с датами и вычислений по календарю.

Определение принадлежности даты диапазону времени

[ViktorR]

Небольшое замечание к коду предложенному Alter.
В данном коде есть маленькая, но существенная ошибка.
Високосный год - это год, число которого делится на 4, и делится на 400.
Т.е. 1700, 1800, 1900 - не високосные годы, а вот 1600, 2000 - високосные.
В 2100 году в феврале должно быть 28 дней.

if ((dt.ms in [1,3,5,7,8,10,12])and not(dt.dn in [1..31]))
  or ((dt.ms in [4,6,9,11])and not(dt.dn in [1..30]))
  or ((dt.ms=2)and(dt.gd mod 4=0)and(dt.gd mod 400=0)and not(dt.dn in [1..29]))
  or ((dt.ms=2)and(dt.gd mod 4<>0)and(dt.gd mod 400<>0)and not(dt.dn in [1..28]))then k:=1;

Как-то так, ...

[Serge_Bliznykov]

Високосный год - это год, число которого делится на 4, и делится на 400.

что значит, "И делится на 400"?! Это неверно. По вашему, 2012 год не был високосным? Или он делился на 400 ?!
Там всё чуть-чуть сложнее.

И, строго говоря, 4000 год не будет являться високосным.

А если уж нужно охватить много столетий, то я беру за основу код (c) TurboPower:

{*                    OPDATE.PAS 1.21                    *}
{*     Copyright (c) TurboPower Software 1988, 1992.     *}

  function IsLeapYear(Year : Integer) : Boolean;
    {-Return True if Year is a leap year}
  begin
    IsLeapYear := (Year mod 4 = 0) 
          and (Year mod 4000 <> 0) and
            ((Year mod 100 <> 0) or (Year mod 400 = 0));
  end;

на самом деле там всё ещё сложнее... но это даёт вполне допустимую, по крайней мере в ближайшее тысячелетие, точность

p.s. а вообще, мы попали в достаточно удачное стечение столетий,
если брать даты от 1901 года до 2099 (т.е. те года, которые могут рассматриваться в качестве практически приемлиемых), то високосный год определяется банально делением на 4 (если год в этом диапазоне кратен 4-м, то год - високосный).
Так что, решение выше вполне себе допустимо.

Вы только объясните, где в исходном условии задачи написано, что даты нужно при вводе проверять?! Зачем усложнять явно УЧЕБНУЮ задачу и доводить её до уровня серьёзного, надежного, foolproof, полного, ПРАКТИЧЕСКОГО решения?!

[ViktorR]

Да, тут я поспешил.
Високосный год - год, число которого делится на 4, или год конца столетия, число столетий в котором делится на 4.
Т.е. 1100 - не високосный год.

Правильно было бы выделить столетия, которые должны делиться на 4.
Т.е. год високосный, если:

((Year Mod 100) = 0) And (((Year Div 100) Mod 4) = 0) Or
((Year Mod 100) <> 0) And ((Year Mod 4) = 0);

И, строго говоря, 4000 год не будет являться високосным.

Когда доживем, тогда и порассуждаем.
Уже были рассуждения по поводу, того когда праздновать начало 21 века. Совсем недавно.

Так что, решение выше вполне себе допустимо.

Тут достаточно посмотреть на это:

write(' Год (1000-2011):');
  readln(dt.gd);
until (dt.gd>=1000)and(dt.gd<=2011);

Зачем усложнять явно УЧЕБНУЮ задачу и доводить её ...

Так думаю, что и не зачем. Но учащийся все же должен понять, что за простотой постановки задачи скрывается некоторое кол-во сложностей.
Ежели так ставить вопрос, то вообще зачем сравнивать именно даты? Можно сравнивать просто числа, строки, задача то учебная ...

Как-то так, ...