Язык программирования Pascal создан в 1973 году швейцарским ученым Николасом Виртом и был назван в честь выдающегося французского физика, математика и философа Блеза Паскаля (1623-1662), который являлся автором первой в мире вычислительной (суммирующей) машины (1641).

Язык первоначально создавался для целей обучения программированию вообще.

По словам автора языка «… разработка языка Паскаль базировалась на двух принципиальных концепциях. Первая состояла в том, чтобы изобрести язык, приспособленный к обучению программированию как систематической дисциплине, базирующейся на некоторых фундаментальных положениях, ясно и естественно отраженных в языке. Вторая предполагала разработку конкретных представлений этого языка, которые были бы надежны и эффективны на современных ЭВМ.»[1] По мнению Вирта, «язык, на котором студент учится выражать свои идеи, существенно влияет на его способ мышления и изобретательность… беспорядок, сопутствующий существующим языкам, непосредственно влияет на стиль программирования студентов.»[2] Сейчас с уверенностью можно говорить о том, что Вирт достиг поставленной перед собой цели. Язык Паскаль является не только наилучшим языком обучения программированию, дает возможность осуществить простую реализацию его на современных ПЭВМ, использовать его как язык системного программирования, но и является базой для создания более мощных языков.

pascal алгоритм программа

Давно известно, что творческая и физическая активность человека не остается постоянной, а циклически меняется, причем периодичность ее изменения приблизительно согласуется с периодом вращения Луны вокруг Земли.

Существует теория, согласно которой физическая, эмоциональная и интеллектуальная активность человека подчиняется соответствующим биоритмам.

Каждый биоритм представляет собой синусоиду со строго постоянным периодом, причем для каждого биоритма существует свой период.

В отдельные дни все три биоритма человека могут достигнуть своего максимума и тогда человек испытывает подъем творческих и физических сил, в такие дни у него все спорится, от легко решает проблемы, которые в другое время ему решить гораздо сложнее. Точно также существуют и «черные» дни, соответствующие спаду всех трех биоритмов.

В программе запрашивается дата рождения человека и дата, для которой требуется оценить его состояние. В процессе работы производится расчет и выдача на экран ближайших к указанной дате дней пика и спада биоритмов.

Список использованных источников

1. Абрамов В.Г., Трифонов Н.П. Введение в язык Паскаль. - М. :Наука, 1988.-320 с.

2. Абрамов С.А., Зима Е.В. Начала программирования на языке Паскаль. -М.: Наука, 1987. - 112 с.

3. Бутомо И.Д., Самочадин А.В., Усанова Д.В. Программирование на алгоритмическом языке Паскаль. - Л.: Издательство Ленинградского университета, 1985. - 216 с.

4. Грэхем Р. Практический курс языка Паскаль. - М.: Радио и связь. 1986 -200 с.

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

М., 1982. 151 с.

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

Приложение 1

Листинг программы

Program bioritm;

{Программа для определения физической, эмоциональной и интеллектуальной активности человека. Вводится дата рождения и текущая дата.

Программа вычисляет и выводит на экран общее количество дней часов, минут и секунд, разделяющих обе даты, а также прогнозирует1 на месяц вперед даты, соответствующие максимуму и минимуму биоритмов}

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<=YMAX) and (m>=1)

and (m<=12) and (d>0);

if correctly then

if (m=2) and (d=29) and (y mod 4=0) then

{ничего не делать: это 29 февраля високосного года}

else

correctly:=d<=Size_of_Month[m];

if not correctly then

writeln('ВНИМАНИЕ! Ошибка в дате!');

until correctly

end; {InpDate}

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

BEGIN {InputDates}

repeat

InpDate(' Введите дату рождения в формате ДД ММ ГГГГ: ',

d0,m0,y0);

InpDate(' Введите текущую дату в формате ДД ММ ГГГГ: ',

d,m,y);

correctly:=y>y0; {ПРоверить непротиворечивость дат:}

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 mmmax then

begin

max:=x;

dmax:=days+i;

end;

if xdd 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');

ШтзгеВфеуы(в0бь0бн0бвбьбн)ж

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

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

FindMaxMin(dmin,dmax,days);

WriteDates(dmin,dmax,days);

END.

Приложение 2

Результаты работы

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

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

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

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

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

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

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

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

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

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

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

Размещено на Allbest.ru