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

| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: куплю диплом, диплом государственного образца
| Добавил(а) на сайт: Ураков.

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

М., 1982. 151 с.

6. Пильщиков В.Н. Сборник упражнений по языку Паскаль. – М.: Наука, 1989.

– 160 с.

ПРИЛОЖЕНИЕ 1. ЛИСТИНГ ПРОГРАММЫ

Program bioritm;
{Программа для определения физической, эмоциональной и интеллектуальной активности человека. Вводится дата рождения и текущая дата.
Программа вычисляет и выводит на экран общее количество дней часов, минут и секунд, разделяющих обе даты, а также прогнозирует на месяц вперед даты, соответствующие максимуму и минимуму биоритмов}
CONST
SIZE_OF_MONTH: ARRAY [1..12] OF BYTE=

(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); var d0,d, {Дни рождения и месяцы} m0,m, {Месяцы рождения и текущий} 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=1) and (m0); if correctly then if (m=2) and (d=29) and (y mod 4=0) then

{ничего не делать: это 29 февраля високосного года} else correctly:=dy0; {ПРоверить непротиворечивость дат:} 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 mm: integer;

BEGIN {Variant2} mm:=m0; while mm