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

y0,y, {Годы рождения и текущий}

dmin, {Наименее благоприятный день}

dmax, {Наиболее благоприятный день}

days: integer; {Количество дней от рождения}

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

PROCEDURE InputDates (var d0,m0,y0,d,m,y: integer);

{Ввод даты рождения и текущей даты.

Контроль правильности дат и их непротиворечивости

(текущая дата должна быть позже даты рождения)}

var

correctly: boolean; {Признак правильности ввода}

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

PROCEDURE InpDate (text: string;

var d,m,y: integer);

{Выводит приглашение TEXT, вводит дату в формате

ДД ММ ГГГГ и проверяет ее правильность}

const

YMIN=1900; {Минимальный правильный год}

YMAX=2100; {Максимальный правильный год}

BEGIN {InpDate}

repeat

write (text);

readln(d,m,y);

correctly:=(y>=YMIN) and (y<=YMAX) and (m>=1)

and (m<=12) and (d>0);

if correctly then

if (m=2) and (d=29) and (y mod 4=0) then

{ничего не делать: это 29 февраля високосного года}

else