Курсовая работа программирование на Pascal
Категория реферата: Рефераты по информатике, программированию
Теги реферата: куплю диплом, диплом государственного образца
Добавил(а) на сайт: Ураков.
Предыдущая страница реферата | 1 2 3 4
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
Скачали данный реферат: Кооскора, Опринчук, Аполлония, Клецка, Habibov, Fedosija, Шулёв.
Последние просмотренные рефераты на тему: рынок реферат, решебник виленкин, quality assurance design patterns системный анализ, антикризисное управление предприятием.
Предыдущая страница реферата | 1 2 3 4