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

истечения заказанного времени. Затем вызывается Basic для очистки неко-
торых переменных и массивов и для присваивания другим переменным,
например, номерам каналов ввода/вывода, стандартных значений. Пре-
имущество такого подхода состоит в том, что во всех подпрограммах на
каналы можно ссылаться по имени.
    Это позволяет, во-первых, переключать при необходимости каналы во
время счета и, во-вторых, позволяет легко переходить на вычислительную
систему с другой нумерацией каналов. Basic вызывает Modify для того,
чтобы программа могла изменить, если нужно, стандартные значения, ус-
тановленные Basic. Обычно Modify бывает пустой программой, но про-
граммист может заменить ее своей версией.
    Затем основная программа печатает дату и время по каналу Nout, ко-
торый теперь определен и вызывает Control для управления расчетом. Это
главная программа, управляющая расчетом. Она вызывает 12 подпрограмм
классов 1–4, как показано на рис. 3, фиксируя стандартную структуру для
всех «олимпийских» программ.

                         2.6.2. Класс 1 – Пролог
    Прежде чем начать расчет, нужно произвести некоторые предвари-
тельные действия. Последовательность этих вычислений зафиксирована в
первой секции подпрограммы Control, которая вызывает 8 подпрограмм
класса 1. Рассмотрим основные из них.
    Labrun считывает исходные данные, идентифицирующие расчет, а за-
тем выдает на экран и в выходной файл наименование программы и неко-
торые другие сведения.
    Clear используется для очистки глобальных переменных и массивов,
не принадлежащих группе 1. Это стоит всегда делать, поскольку перед на-
чалом счета они могут содержать произвольные величины.



                                   23