Реферат: Курсовая работа программирование на Pascal

BEGIN {Variant2}

mm:=m0;

while mm<m do

begin

days:=days+Size_of_Month[mm];

if (mm=2) and (m0 mod 4=0) then inc(days);

inc(mm);

end;

END; {Variant2}

{---------------------------------------------------}

PROCEDURE Variant3;

{Подсчет количества дней в месяцах, разделяющих обе даты}

var mm,yy: integer;

BEGIN {Variant3}

mm:=m0+1;

while mm<=12 do {Учесть остаток года рождения :}

begin

days:=days+Size_of_Month[mm];

if (mm=2) and (y0 mod 4=0) then inc(days);

inc(mm);

end;

yy:=y0+1;

while yy<y do {Прибавить разницу лет: }

begin

days:=days+365;

if yy mod 4=0 then inc(days);

inc(yy);

end;

mm:=1;