ИС портфельного и процентного рисков

          ДД-ММ-ГГГГ.}

          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);

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

   InputDates(d0,m0,y0,d,m,y);

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

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

             FindMaxMin(dmin,dmax,days);

             WriteDates(dmin,dmax,days); 
 
 
 
 
 
 
 
 
 
 
 

РУКОВОДСТВО ПОЛЬЗОВАТЕЛЯ 

Ввод исходных данных осуществляется с клавиатуры по запросу программы.

Данные необходимо вводить строго придерживаясь указанного формата: 
ДД ММ ГГГГ – по два символа на день и месяц и четыре символа на ввод года, разделять значения дня, месяца и года необходимо пробелом. Окончание  
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

РЕЗУЛЬТАТЫ  РАБОТЫ

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

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

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

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

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

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

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

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

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

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

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

ЗАКЛЮЧЕНИЕ

Программа служит для определения дней максимума  и минимума суммарных психо-физических параметров человеческого организма. Может быть использована в повседневной жизни для планирования наиболее важных для человека мероприятий, например: определения дней усиленных тренировок для занимающихся активным спортом,   проведения интервью, публичных выступлений для политиков, заключения важных сделок и ведения переговоров для бизнесменов и так далее.  
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

СПИСОК  ЛИТЕРАТУРЫ 

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

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

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

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

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

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