Помогите доделать задачку на записи, паскаль.

[marz]

Не могу понять чего я забыл, помогите пожалуйста :3

{Программа проверяет, предшествует ли дата d1 дате d2, и вычисляет количество суток между датами d1 и d2}
Program record;
type year=1500..2500;
     month=1..12;
     day=1..31;
     data=record   y:year;
                   m:month;
                   d:day;
     end;
type date:record;
     y,m,d:integer;
     end;
     
   var
     d1,d2:date;
   begin
   {Вводим даты}
     writeln('Введите первую дату: год, месяц, число');
     readln(d1.y);
     readln(d1.m);
     readln(d1.d);
     writeln('Введите вторую дату: год, месяц, число');
     readln(d2.y);
     readln(d2.m);
     readln(d2.d);

      if((d1.m>0 and d2.m<13) and (d2.m>0 and d2.n<13)) then
       begin 
        
        if(d1.y*d1.m+d1.d)<(d2.y*d2.m+d2.d) then
        writeln('Предшествует');
         else
         writeln('Не предшествует');
         writeln('количество суток между d1 и d2=',(d2.y*d2.m+d2.d)-(d1.y*d1.m+d1.d));
         end;
         else
         writeln('Такой даты не существует');
         readln;
         end.

[Stilet]

А почему ты решил что что-то забыто?

[Serge_Bliznykov]

d1.y*d1.m+d1.d

это ересь!
(год умноженные на месяц + день ) - вообще ничего полезного не даёт!!

возьмите, например,
1 декабря 2013 года и 1 января 2014 года
12*2013+1 = 24157
1*2014+1 = 2015

т.к. 24157 > 2015 получается, что дата 1 декабря 2013 года НЕ ПРЕДШЕСТВУЕТ дате 1 января 2014 года
и что между этими датами 22142 дня...

p.s. воспользуйте поиском, на форуме были решения подобных задач!

[Dvoishnik]

нет проверки на день то есть у вас может быть 31 февраля

{Программа проверяет, предшествует ли дата d1 дате d2, и вычисляет количество суток между датами d1 и d2}
Program record;
type year=1500..2500;
     month=1..12;
     day=1..31;
     data=record   y:year;
                   m:month;
                   d:day;
     end;
type date:record;
     y,m,d:integer;
     end;
     
   var
     d1,d2:date;
   ....................
{у вас здесь не существующая переменная d2.n}
      if((d1.m>0 and d2.m<13) and (d2.m>0 and d2.n<13)) then
       begin    
........
         end.

ИМХО это полный бред

  
  ........
        if(d1.y*d1.m+d1.d)<(d2.y*d2.m+d2.d) then
        writeln('Предшествует');
         else
         writeln('Не предшествует');
         writeln('количество суток между d1 и d2=',(d2.y*d2.m+d2.d)-(d1.y*d1.m+d1.d));
         end;
         else
         writeln('Такой даты не существует');
         readln;
  ........

П.С. я бы попробовал написать процедуру для перевода даты в количество дней с момента отсчета как это в Delphi происходит

[Dvoishnik]

проверить на високосный ли год можно так

.......
function ve(dy:integer;):BOOLEAN;
var
t:BOOLEAN;
begin
t:=false;
if (dy mod 100) <> 0 then 
  if (dy mod 4) = 0 then t:=true; 
   else t:=false 
 else 
  if (dy mod 400) = 0 then t:=true; 
   else t:=false;  
ve:=t;
end;
..........

где t будет ее значением а dy параметром в который будет передаваться год

проверка на допустимое количество дней в месяце

{если месяц от 1 до 7 то следуя правилу каждый второй месяц содержит 30 дней кроме февраля после 7 все на оборот каждый четный месяц содержит 31 день здесь это и проверяется} 

function mes(dm,dy:integer;):byte;
var
begin
if dm<=7 then  
 if (dm mod 2) <> 0  then mes:=31
  else
   if dm=2 then      
    if ve(dy) then  mes:=29  {ve это предыдущая функция}
     else mes:=28 
    else then mes:=30    
 else 
  if (dm mod 2) <> 0  then mes:=30 
   else mes:=31;
end;

{количество дней с точки начала отсчета "1.1.0" включительно}
function kold(dn,dy,dm:Integer;):longInt;
var
i,
mes,
KolVesLet:integer;
begin
mes:=0
KolVesLet:=(dy div 4)+(dy div 400)-(dy div 100);
if dy>2 then
 begin
  for I:=1 to dm-2
   if i<=7 then 
    begin
     if (dm mod 2) = 0 then mes:=mes+30 
      else mes:=mes+31;
    end 
     else 
      begin
       if (dm mod 2) = 0 then mes:=mes+31 
        else mes:=mes+30;
      end;
  if ve then mes:=mes+29 
   else mes:=mes+28;
 end 
  else mes+((dm-1)*31);
mes:=mes+dn;
kold:=(((dy-KolVesLet)*365)+(KolVesLet*366))+mes;
end;

не компилировал так что не могу сказать что все 100% работает но принцип такой.