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

            Arrow(290-(Item)*20,white);
            end;
     if (c=0) and (sim=13) and (Item<14) then
            begin
            if Tmpl[Item+1]<>0 then write(#7)
                               else
                  begin
                  Bar(X-258,282-Item*20,X-202,298-Item*20);
                  Tmpl[Item+l]:=Item+l;
                  Str(temp[item+l],S);
                  SetTextStyle(0,0,l);
                  SetColor(Black);
                  OutTextXY(X-460,114,S_01d[l]);
                  OutTextXY(X-460,128,S_01d[2]);
                  SetColor(15);
                  OutTextXY(X-460,114,Stl]);
                  OutTextXY(X-460,128,S[2]);
                  SetColor(0);
                  SetTextStyle(7,0,l);
                  OutTextXY(X-240,278-Item*20,s);
                  OutTextXY(X-239,278-Item*20,s);
                  SetColor(15);
                  SetLineStyle(0,0,3);
                  Line(X-115,290,X-115,2l9-Item*13);
                  SetLineStyle(0,0,l); S_old:=S;
                  Insert(S,Str_Gen,6); {     перевод интерфейсных}
                  S:=Str_Gen; {              функций: генератора}
GenInit(S); {"                                приемник" в СПАК}
 SIn(S); {                                   и вольтметра "источник"}
 RL(S,RR); {                                 в СИАК}
                  Copr[Item+l]:=RR;
                  if item=13 then
                  begin
                  SetTextStyle(0,0,0);
            OutTextXY(X-590,250,"Измерения закончены");
            QutTextXY(X-590,270,"Вывести график ? д/н");
            m:=Readkey;
            if (m<>"н") and (m<>"H")
                  then
                  begin
                  CloseGraph;
                  InitCraph(Gd,Gm,"");
                  {построение графиков}
                  Grafik(Tmpr,Tmpl);

                                 154