Acmp задача

[Dovbaka]

Условие задачи 490:Два одноклассника Петя и Вася родились не ранее 1993 и не позднее 1994 года, причем, Петя старше Васи.

Напишите программу, которая по заданным дням рождения определяет: на сколько дней Петя старше Васи.

Заметим, что 1993 и 1994 года не являются високосными, т.е. в феврале в них ровно 28 дней.
Проходит только 4 теста, но почему???

Var d1,d2: 1..31;
    m1,m2: 1..12;
    y1,y2: 90..100;
    s,c: string;
    k,l,m,n,i,o,j: byte;
    a: array [1..8] of byte;
    
 
begin
    readln(s);
    readln(c);
 
    o:=length(s); 
    i := 1;
    for j := 1 to o do
        if s[j] <> '.' then begin
        if s[j] <> ' ' then begin
            a[i] := ord(s[j]) - ord('0');
            i := i + 1
        end;
        end;
 
    d1 := 10 * a[1] + a[2];
    m1 := 10 * a[3] + a[4];
    y1 := 10 * a[5] + a[6];
    //--------------------------------------------
        o:=length(c);
 
    i := 1;
    for j := 1 to o do
        if c[j] <> '.' then begin
        if c[j] <> ' ' then begin
            a[i] := ord(c[j]) - ord('0');
            i := i + 1
        end;
        end;
 
    d2 := 10 * a[1] + a[2];
    m2 := 10 * a[3] + a[4];
    y2 := 10 * a[5] + a[6];
    //--------------------------------------------
    d1:=d1+(y1*365);
    m1:=m1-1;
    d2:=d2+(y2*365);
    m2:=m2-1;
    for i:=1 to m1 do
    begin
        case (i)of
            1,3,5,7,8,10,12: d1:=d1+31;
            2: d1:=d1+28;
            4,6,9,11: d1:=d1+30;
        end;
    end;
    for i:=1 to m2 do
    begin
        case (i)of
            1,3,5,7,8,10,12: d2:=d2+31;
            2: d2:=d2+28;
            4,6,9,11: d2:=d2+30;
        end;
    end;
    writeln(d2-d1);
    
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

попробуйте для

   s:='01.01.93';
   c:='01.01.94';

условие задачи желательно указывать полностью. с описанием входных/выходных данных ACMP.RU #490 Дни рождения:

Входные данные

Входной файл INPUT.TXT содержит дату рождения Пети в первой строке и дату рождения Васи во второй. 
Даты заданы в формате «ДД.ММ.ГГ», 
например, строка 06.02.93 означает дату рождения 6 февраля 1993 года.

Выходные данные

В выходной файл OUTPUT.TXT выведите единственное число – искомое количество дней.

Примеры

№	INPUT.TXT	OUTPUT.TXT
1	01.01.93
	02.01.93		1

2	05.02.94
	05.03.94		28

p.s. а зачем так сложно - я бы просто в цикле суммировал число дней, пока месяцы и годы не совпадут.

[Dovbaka]

Ошибка оказалась простой. Нужно было поднести к модулю abs (

[Plague]

компилятор то какой?

первую часть можно сделать так:

  
var d1,m1,y1,d2,m2,y2,e:integer;
    s,c: string;
begin
  readln(s);
  Val(copy(s,1,2),d1,e);
  Val(copy(s,4,2),m1,e);
  Val(copy(s,7,2),y1,e);

  readln(c);
  Val(copy(c,1,2),d2,e);
  Val(copy(c,4,2),m2,e);
  Val(copy(c,7,2),y2,e);
end.

[Serge_Bliznykov]

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

компилятор то какой?

если не ошибаюсь, то на ACMP.RU для компиляции кода на Паскаль используется компилятор Delphi.

[Plague]

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

для компиляции кода на Паскаль используется компилятор Delphi.

Используются FreePascal, Delphi и PascalABC.NET.
Есть функции для работы с датой и временем, можно через них решить задачу. Будет на много короче код.