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

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

PROCEDURE WriteDate(text:string;

dd:integer);

{Определение даты для дня 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);