Высокоуровневые методы информатики и программирования. Сивохин А.В - 84 стр.

    ShellExecute(Application.Handle,    'open',   PChar(AppPath+'PZ.doc'),   nil,   nil,
SW_SHOWNORMAL);
    end;

     Initialization
     end.//— 2. Конец главного модуля.




     unit OrlovAllTypeUnit;//—3. Модуль определения типов:

     Interface

     uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls;


     // 1.Объвления для модуля OrlovArrayUnit:

     Type
     // а)для определения типа динамического массива:
       TOrlovDynArrayOfReal = Array Of Real;

     Var
     // б)для массивов с исходными данными и результатами:
       InDynArray : TOrlovDynArrayOfReal;
       OutDynArray : TOrlovDynArrayOfReal;
     // в)для задания размеров динамических массивов в соответствии с числом
     // колонок ColCount таблицы InStringGrid:
       DynArraySize : Integer;
     // г)для записи номера выбранной строки:
       jSelRow : Integer =1;
     // д)для вычисления среднего значения элементов массива InDynArray:
       Sum,MidValue : Real;
     // е)для подсчетов числа элементов массива InDynArray, значение которых
не
     // превосходят среднее значение MidValue:
       kCol : Integer;
     // ж)для хранения значения числа колонок таблицы OutStringGrid:
       kMaxCol : Integer;
     // з)для указания конца сортировки:
       EndSort : Boolean;
     // и)для упорядочения элементов массива InDynArray:
       ExchangeVar : Real;
61