{Определение даты для дня DD от монента рождения.

В глобальных переменных d,m и y имеется текущая дата,

в переменной DAYS - количество дней, прошедших от момента

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

Выводится сообщение TEXT и найденная дата в формате

ДД-ММ-ГГГГ.}

const

Names_of_Monthes:array[1 12] of string[5]=

('янв ','февр','март','апр ','май ',

'июнь','июль','авг ','сент','окт ',

'нояб','дек ');

var

d0,m0,y0,ddd:integer;

BEGIN {WriteDate};

d0:=d;

m0:=m;

y0:=y;

ddd:=days;

while ddd<>dd do

begin

inc(d0); {Нарастить число}

if (y0 mod 4<>0) and (d0>Size_of_Month[m0]) or

(y0 mod 4=0) and (d0=30) then

begin {Корректировать месяц}

d0:=1;

inc(m0);

if m0=13 then {Корректировать год}

begin

m0:=1;

inc(y0);

end;

end;

inc(ddd);

end;

writeln(text,d0,'-',Names_of_Monthes[m0],'-',y0);

END; {WriteDate}

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

var

longdays: longint; {"Длинная" целая переменная

для часов, минут и секунд}

BEGIN {WriteDates}

longdays:=days;

writeln('Прошло: ',longdays,' дней, ',longdays*24,

' часов, ',longdays*24*60,' минут, ',

longdays*24*360,' секунд.');

WriteDate('Наименее благоприятный день: ',dmin);

WriteDate('Наиболее благоприятный день: ',dmax);

END; {WriteDates}

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

BEGIN {ГЛАВНАЯ ПРОГРАММА}

Writeln(' ');

Writeln(' Программа расчета благоприятных дней ');

Writeln(' Ввод данных осуществляйте через пробел ');

Writeln('Окончание ввода данных подтвердите с помощью клавиши ENTER');

InputDates(d0,m0,y0,d,m,y);

Writeln('-----------------------------------------');

Get_numbers_of_days(d0,m0,y0,d,m,y,days);

FindMaxMin(dmin,dmax,days);

WriteDates(dmin,dmax,days);

END.

9. ПРИЛОЖЕНИЕ 2. РЕЗУЛЬТАТЫ РАБОТЫ

-------------------------------------------------------------

Программа расчета благоприятных дней

Ввод данных осуществляйте через пробел

Окончание ввода данных подтвердите с помощью клавиши ENTER

--------------------------------------------------------------

Введите дату рождения в формате ДД ММ ГГГГ: 22 02 1922

Введите текущую дату в формате ДД ММ ГГГГ: 12 09 2001

Прошло: 29057 дней, 697368 часов, 41842080 минут, 251052480 секунд.

---------------------------------------------------------------

Наименее благоприятный день: 3-окт -2001

Наиболее благоприятный день: 12-сент-2001

.

[1] Йенсен К., Вирт Н. Руководство для пользователя и описание языка.

[2] Тот же