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

       InitGraph(gd,gm,"");
   for i:=l to 14 do Tmpl[i]:=0
   OutTextXY(X-6lO,10,"KOДИPOBAHИE");
   OutTextXY(X-610,20,"BOЛЬTMETPA");
   OutTextXY(X-455,10,"KOДИPOBAHИE");
   OutTextXY(X-455,20,'ГEHEPATOPA");
   Line(X-630,5,X-330,5);
   Line(X-630,5,X-630,230);
   Line(X-330,5,X-330,230);
   Line(X-630,230,X-330,230);
   Line(X-630,30,X-330,30);
   Line(X-485,5,X-485,230);
   for I:=l to 13 do State[i]:="";
   Volt(Str_vol,State);
   for I:=l to 13 do OutTextXY(X-620,30+i*14,State[i]);
   for I:=l to 9 do st[i]:="";
   Gen(Str_gen,St);
           for I:=1 to 9 do OutTextXY(X-460,30+i*14,St[i]);
   St_line("Esc- выход Enter-           ввод значения t° С");
   SetColor(l5);
   Draw;
   Grad;
   Arrow(290, White);
   Done:=False;
Item:=0;
S_01d:=""; s:="";
s:=Str_vol; {           интерфейсная функция вольтметра}
VoitInit(S); {"          источник" в состоянии СИАД}
S:=Str_Gen; {           интерфейсная функция генератора}
I:=2; {"                 приемник" в состоянии СПАД}
Sout(S,I);
   {цикл выбора значений температуры}
   Repeat
        Key(c,sim);
        if (с=1) and (sim=80) and (Item>=l) then
                begin
                Arrow(290-(Item)*20,Blak);
                Dec(Item);
                Arrow(290-(Item)*20,white);
                end;
        if (c=l) and (sim=72) and (Item<13) then
                begin
                Arrow(290-(Item)*20,Blak);
                Inc(Item);

                                   153