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

begin

days:=days+Size_of_Month[mm];

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

inc(mm);

end;

END; {Variant3}

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

BEGIN {Get_numbers_of_days}

if (y=y0) and (m=m0) then {Даты отличаются только днями: }

days:=d-d0;

{Даты отличаются не только днями: }

begin

days:=d+Size_of_Month[m0]-d0;

{Учесть количество дней в текущем месяце и

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

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

{Учесть високосный год }

if y=y0 then Variant2;

{Разница в месяцах одного и того же года}

Variant3;

{Даты отличаются годами}

end;

END; {Get_numbers_of_days}

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

PROCEDURE FindMaxMin (var dmin,dmax: integer;

days: integer);

{Поиск критических дней }

const

TF=2*3.1416/23.6884; {Период физической активности}