Задача Pascal

[Sabin]

Задача Pascal

Даны натуральные числа a1, b1, c1, a2, b2,c2, которые указывают две даты (число, месяц, год). Вычислить количество дней, прошедших между двумя этими датами.(через записи)

 

[Vladimir_S]

И для нафига тут записи?

 

[AlexZir]

Вероятно, для того, чтобы удовлетворить эго преподавателя )

 

[Vladimir_S]

Вероятно, для того, чтобы удовлетворить эго преподавателя )

Расстрелять. Из крупнокалиберного.
Ладно, программку я нарисую, поскольку люблю такие задачки, а уж записи пускай студент напару с преподом туда впихивают, как хотят.

 

[Vladimir_S]

Const
 D_nb:Array[0..11] of Word=(0,31,59,90,120,151,181,212,242,273,303,334);
 D_bb:Array[0..11] of Word=(0,31,60,91,121,152,182,213,243,274,304,335);

Var
 N1,N2,DN:LongInt;
 a1,b1,c1,a2,b2,c2:Word;

Function Bis(Year:Word):Boolean;
begin
 Bis:=(((Year mod 4)=0) and ((Year mod 100)>0)) or ((Year mod 400)=0);
end;

Begin
 Write('Date_1 = ');
 Readln(a1);
 Write('Month_1 = ');
 Readln(b1);
 Write('Year_1 = ');
 Readln(c1);
 Write('Date_2 = ');
 Readln(a2);
 Write('Month_2 = ');
 Readln(b2);
 Write('Year_2 = ');
 Readln(c2);

 N1:=(c1-1)*365+((c1-1) div 4)-((c1-1) div 100)+((c1-1) div 400);
 if Bis(c1) then N1:=N1+D_bb[b1-1] else N1:=N1+D_nb[b1-1];
 N1:=N1+a1;

 N2:=(c2-1)*365+((c2-1) div 4)-((c2-1) div 100)+((c2-1) div 400);
 if Bis(c2) then N2:=N2+D_bb[b2-1] else N2:=N2+D_nb[b2-1];
 N2:=N2+a2;

 Writeln;

 Writeln('Result: ',N2-N1,' days');

 Readln
End.