Разработка программы для определения психофизических параметров человеческого организма - Курсовая работа

Томский государственный университет систем управления и радиоэлектроники (ТУСУР)Язык программирования Pascal создан в 1973 году швейцарским ученым Николасом Виртом и был назван в честь выдающегося французского физика, математика и философа Блеза Паскаля (1623-1662), который являлся автором первой в мире вычислительной (суммирующей) машины (1641). Первая состояла в том, чтобы изобрести язык, приспособленный к обучению программированию как систематической дисциплине, базирующейся на некоторых фундаментальных положениях, ясно и естественно отраженных в языке.Давно известно, что творческая и физическая активность человека не остается постоянной, а циклически меняется, причем периодичность ее изменения приблизительно согласуется с периодом вращения Луны вокруг Земли. Существует теория, согласно которой физическая, эмоциональная и интеллектуальная активность человека подчиняется соответствующим биоритмам.Вычислить количество дней между двумя датами, чтобы определить фазу синусоид для текущей даты Для упрощения подсчета количества дней, разделяющих дату рождения и текущую дату использую массив Size_of_month - длина месяца и делаю его глобальным для того, чтобы использовать его же и для определения даты критических дней и проверки правильности вводимых дат. При расчете количества дней, разделяющих обе даты (рождения и текущей), кроме контроля непротиворечивости введенных дат (минимально и максимально возможные правильные даты 1900 и 2100 годы), следует учитывать следующие обстоятельства: § Месячный младенец (когда год и месяц обеих дат одинаков) - тогда количество дней находится простым вычитанием двух чисел; § Годовалый младенец (когда год обеих дат совпадает) - тогда количество дней = (остаток дней в месяце рождения) (количество дней в текущем месяце) (количество дней в месяцах, разделяющих обе даты); § Общий вариант (отличаются года) - тогда количество дней = (количество дней от даты рождения до конца года) (количество дней в разделяющих даты годах) (количество дней от начала текущего года до текущей даты).Ввод исходных данных (даты рождения человека и текущей даты) осуществляется в формате ДД ММ ГГГГ с клавиатуры по запросу (тип переменных, соответствующих этим значениям, Integer). Для реализации вывода на экран расчетных данных для дат пика и спада биоритмов - наиболее и наименее благоприятных дней использую тип Integer.Данные необходимо вводить строго придерживаясь указанного формата: ДД ММ ГГГГ - по два символа на день и месяц и четыре символа на ввод года, разделять значения дня, месяца и года необходимо пробелом.Программа служит для определения дней максимума и минимума суммарных психофизических параметров человеческого организма.Программа вычисляет и выводит на экран общее количество дней часов, минут и секунд, разделяющих обе даты, а также прогнозирует на месяц вперед даты, соответствующие максимуму и минимуму биоритмов} var d0,d, {Дни рождения и месяцы} m0,m, {Месяцы рождения и текущий} y0,y, {Годы рождения и текущий} dmin, {Наименее благоприятный день} dmax, {Наиболее благоприятный день} days: integer; {Количество дней от рождения} while mm<m do begin days:=days Size_of_Month[mm]; while mm<=12 do {Учесть остаток года рождения :} begin days:=days Size_of_Month[mm]; BEGIN {Get_numbers_of_days} if (y=y0) and (m=m0) then {Даты отличаются только днями: } days:=d-d0;Окончание ввода данных подтвердите с помощью клавиши ENTER Введите дату рождения в формате ДД ММ ГГГГ: 22 02 1922 Прошло: 29057 дней, 697368 часов, 41842080 минут, 251052480 секунд.

Содержание

Введение

1. Назначение работы и область ее применения. Постановка задачи

2. Используемые методы, описание алгоритма программы с описанием функций составных частей и связи между ними

3. Описание входных и выходных данных

4. Руководство пользователя

Заключение

Список литературы

Приложение 1. Листинг программы

Приложение 2. Результаты работы