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

if not correctly then

writeln('ВНИМАНИЕ! Ошибка в дате!');

until correctly

end; {InpDate}

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

BEGIN {InputDates}

repeat

InpDate(' Введите дату рождения в формате ДД ММ ГГГГ: ',

d0,m0,y0);

InpDate(' Введите текущую дату в формате ДД ММ ГГГГ: ',

d,m,y);

correctly:=y>y0; {ПРоверить непротиворечивость дат:}

if not correctly and (y=y0) then

begin

correctly:=m>m0;

if not correctly and (m=m0) then

correctly:=d>d0;

end;

until correctly;

END; {InputDates}

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

PROCEDURE Get_numbers_of_days (d0,m0,y0,d,m,y: integer;

var days: integer);

{Определение полного количества дней,

прошедших от одной даты до другой}

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

PROCEDURE Variant2;

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

var