Введение в технологию программирования. Часть 3. Проект OLYMPUS-D. Коржов Е.Н - 50 стр.

     DECLAR;
  procedure Tesend;
  procedure EndRun;

implementation
  procedure Tesend;
  begin
     EndCal := true;
  end; { Tesend }

  procedure Endrun;
  begin
     EndExp:= true;
  end; { Endrun }
end.

       В модуле EPILOG процедуры Tesend и Endrun содержат операторы
безусловного присваивания управляющим переменным логического зна-
чения «истина». Эти значения соответствуют условиям прекращения рабо-
ты внутреннего и внешнего циклов основного алгоритма (см. рис. 1). В по-
следующем тела этих процедур должны быть наполнены содержательной
частью, позволяющей изменять первоначальные значения управляющих
переменных на противоположные только в том случае, если возникает со-
ответствующее событие или состояние данных.

       Завершение создания библиотеки CRONUS осуществляется написа-
нием кода обработки нажатия кнопки Run на панели инструментов и вы-
бора соответствующей команды в одноименной опции главного меню. Обе
процедуры имеют одинаковые тела.

       procedure TCronus.ToolButton5Click(Sender: TObject);
       begin
          Contrl; // Управление реализацией алгоритма вычислений
       end;

       procedure TCronus.Run2Click(Sender: TObject);
       begin
                                     50