Измерительно-вычислительные комплексы (канал общего пользования). Петросьянц В.В. - 144 стр.

данных в КОП, а генератора на прием данных заканчивается.
     Вывод на индикатор генератора значения температуры, при которой
производится измерение,    осуществляется    процедурой Sin. Эти процедуры
изменяют сигнал УП на линии интерфейса КОП из значения 1 в 0 и, наоборот,
осуществляют поочередно перевод интерфейсных функций - для генератора
"приемник", а для вольтметра " источник"- из состояния СПАД ( СИАД) в со-
стояние СПАК (СИАК). Результатом процедуры Sin является переменная S ти-
па String, в которой содержится информация о величине сопротивления, полу-
ченной в результате измерения. Функция R1 преобразует переменную S, выде-
ляя из нее информацию о величине сопротивления, в переменную RR типа
REAL. Значение этой переменной заносится в массив Corp. Когда закончены
все измерения, формируется массив Corp, содержащий информацию о величине
сопротивления    терморезистора,    соответственно    заданным     значениям
температуры. Используя данные этих массивов, процедура Grafik, содержащая-
ся в модуле R_Graph, производит построение графиков температурных зависи-
мостей терморезисторов по измеренным значениям и по формуле (14).

     4.4.3. Листинг программы управления учебным ИВК

{Основное меню программы}
     Unit M_Menu;
     Interface
     Uses Crt,Routine,PR_Desc,IOUtil;
         Procedure I_All;
            Implementation Procedure I_A11;
               Const
                 Max_Item=4;
                 Len_Item=40;
                 menu:array[l..Max_Item] of string[40]=(
      "-                          Цель работы                       ",
      "-                         Описание лабораторной установки ",
      "-                         Выполнение работы                  ",
      "-                         Выход                              ";
                 Var i, Item:Byte;
                        х1,уl :Integer;
                 Procedure prNew;

                                     143