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

    В будущем возможно объединение фирм-автоматизаторов в некие холдинги, организация единого управления текущими программными брэндами. Реально крупные компании останутся - как брэнды, как подразделения, производящие программные продукты, а вот в составе какого конгломерата предприятий они будут находиться, это уже неважно. Российского серьёзного промышленного "софта" не так много - не больше 15-20 систем. Кто-то не выдержит конкуренции, но 10-12 брэндов останется ("1C", "ПАРУС", "Галактика",  "АйТи", программы серии "БЭСТ" разработки компании "Интеллект-Сервис" и т.д.). Самое главное, что они занимают различные ниши.

 

Часть II

Глава 6. Описание программы, печатающей календарь, определяющей знак зодиака  по дате рождения и  сколько раз на каждый день недели выпал день рождения

6.1. Формулировка задания

Требуется реализовать программу на языке  Pascal, печатающую календарь на заданный месяц заданного года. Определить, сколько раз на каждый день недели выпал день рождения и знак зодиака по дате рождения.

6.2. Описание компонентов, используемых при реализации практической части курсовой работы

Программа реализована  в среде разработки Delphi 7.0. В практической части данной курсовой работы используются следующие визуальные и невизуальные компоненты среды программирования Borland Delphi 7.0.

Компоненет TPageControl – на нем размещены вкладки:

• Календарь;
• День рождения;
• Знак зодиака.

На вкладке  Календарь размещены компоненты:

• TComboBox (позволяет пользователю выбрать месяц из       предоставленного списка);
• TLabel (содержит текст «Выберите год»);
• TSpinEdit (позволяет пользователю выбрать год календаря);
• TButton (кнопка, при нажатии которой выводится календарь);
• TStringGrid (таблица, на которой отображается календарь).

На вкладке  День рождения размещены компоненты:

• TLabel (содержит текст «Выберите дату»);
• 2 компонента TComboBox (позволяют пользователю выбрать число и месяц);
• TEdit (для ввода года);
• 2 компонента TMemo (в первом содержится вопрос «Определить, сколько раз на каждый день недели выпал день рождения», во втором результаты полсчета);
• TButton (кнопка, при нажатии которой подсчитывается, сколько раз на каждый день недели выпал день рождения, и выводится результат).

На вкладке  Знак зодиака содержатся компоненты:

• TLabel (содержит текст «Выберите дату»);
• 2 компонента TComboBox (позволяют пользователю выбрать число и месяц);
• TButton (кнопка, при нажатии которой определяется знак зодиака по указанной дате и выводится результат);
• TEdit (для вывода результата).

6.3. Основные типы, события,  процедуры и функции

type

  TForm1 = class(TForm)

    PageControl1: TPageControl;

    TabSheet1: TTabSheet;

    TabSheet2: TTabSheet;

    TabSheet3: TTabSheet;

    Label1: TLabel;

    ComboBox1: TComboBox;

    ComboBox2: TComboBox;

    Button1: TButton;

    Edit1: TEdit;

    Label2: TLabel;

    Edit2: TEdit;

    Memo1: TMemo;

    Button2: TButton;

    Memo2: TMemo;

    StringGrid1: TStringGrid;

    Label3: TLabel;

    ComboBox5: TComboBox;

    SpinEdit1: TSpinEdit;

    ComboBox3: TComboBox;

    ComboBox4: TComboBox;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure FormActivate(Sender: TObject);

    procedure StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;

      Rect: TRect; State: TGridDrawState);

    procedure ComboBox3Change(Sender: TObject);

    procedure ComboBox4Change(Sender: TObject);

    procedure Edit2Change(Sender: TObject);

    procedure ComboBox5Change(Sender: TObject);

    procedure SpinEdit1Change(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

var

  Form1: TForm1;

  month,year: Integer; {Числа, соответствующие выбранному месяцу и году на вкладке 1}

 chislo,mesyac,god: Integer; {Числа, соответствующие выбранной дате на вкладке 2}

  x,y: Integer;       {Числа, соответствующие выбранному числу и месяцу на вкладке 3}

  w: Integer;       {Число, соответствующее дню недели}

  kd: Byte;        {Количество дней}

  IsCorrectDate: Boolean; {Признак правильной даты}

  M,g: Integer;   {Переменный для дополнительных вычислений в процедуре WriteDay}

procedure TForm1.Button1Click(Sender: TObject);

{Превращает строки, содержащие число и месяц выбранной на вкладке 2 даты в целые числа, проверяет дату на принадлежность диапазонам и определяет знак зодиака}

procedure TForm1.ComboBox3Change(Sender: TObject);

procedure TForm1.ComboBox4Change(Sender: TObject);

procedure TForm1.Edit2Change(Sender: TObject);

{Превращает значения выбранной даты из типа String в тип Integer}

procedure InputDate(var chislo,mesyac,god: Integer; var correctly: Boolean);

{Проверяет, правильно ли введена дата, и соответствует ли год диапазону [1582;4903]}

function WriteDay(chislo,mesyac,god: Integer):Integer;

{Вычисляет день недели по указанной дате}

function LeapYear(god:Integer): boolean;

{Проверяет, высокосный год или нет}

procedure TForm1.Button2Click(Sender: TObject);

{Считает, сколько раз на каждый день недели выпал день рождения}

procedure TForm1.FormActivate(Sender: TObject);

{Записывает в календарь в компонент Stringgrid название дней недели}

procedure TForm1.ComboBox5Change(Sender: TObject);

procedure TForm1.SpinEdit1Change(Sender: TObject);

{Превращает строки, содержащие месяц и год выбранной на вкладке 3 даты в целые числа }

procedure TForm1.Button3Click(Sender: TObject);

{Определяет день недели первого числа месяца, определяет количество дней в зависимости от месяца, выводит календарь}

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;

  Rect: TRect; State: TGridDrawState);

{Оформляет календарь}

procedure TForm1.FormCreate(Sender: TObject);

{Вводит первоначальное значение для выбираемого года}

 
 

6.4. Технические требования

Программа создавалась  в среде программирования Borland Delphi 7.0., требуемая операционная система Windows XP и выше, требуемая оперативная память – 250 Кб.

6.5. Блок-схема 1

 

                                                                                      

                                нет                                     да

   

  

 
 

       нет      да 

                                                                                                                                        

                                                                                                                                           

 

 нет    да

  

      да                                  нет

 

 

                                      да                     дд                да

 
 

Блок-схема 2

 

  

 нет  да

   

 

 
 

 

 

      Блок-схема 3 

                            нет                                                             да

            

 да     нет

  

 нет   да 

 да  нет

 нет   да

 да   нет

 нет   да

 да   нет

 нет   да

 да   нет

 нет   да

      да 

 

 

6.6. Инструкция пользователя

Запуск программы  осуществляется следующим образом: необходимо открыть папку, содержащую данную игру, найти и открыть исполняемый файл calendar.exe. После запуска программа выглядит следующим образом (рис. 1).