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

       uses
          DECLAR, PROLOG, CALCUL, OUTPUT;
       procedure Contrl;
implementation
       procedure Contrl;
       {
           Назначение: Задание последовательности выполнения алгоритма
                        OLYMPUS-D
           Автор: Фамилия Имя Отчество, организация, подразделение
           Версия: 01.01
           Дата: 20.11.07
       }
       begin
          Initial;
          Auxval;
          Start;
          Output1;
          repeat
              Stepon;
              Output2;
              Tesend;
          until EndCal;
          Result;
       end; {Contrl}
end.
       Данная процедура реализует алгоритм, приведенный на рис. 1, с уче-
том особенностей и возможностей версии проекта с литерой «D». Ввод ис-
ходных данных, их редактирование, а также просмотр результатов компь-
ютерного эксперимента и принятие решения о его продолжении принима-
ются пользователем в интерактивном режиме. Поэтому соответствующие
процедуры не вошли в главную управляющую процедуру Contrl.

unit PROLOG;
{
   Назначение: Организация последовательности выполнения процедур
                комплекса
   Автор: Фамилия Имя Отчество, организация, подразделение
   Версия: 01.01

                                    46