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

UptoLike

ВУЗ: 

ДВФУ | Владивосток

Составители: 

Рубрика: 

145
pr_;item:=Max_Item;prNew;
end;
73: begin
pr_;item:=l;prNew;
end;
end;
end;
if (sim=13)or(sim=27) then
begin
if (sim=27)or((sim=l3)and(Item=Max_Item))
then Done:=True
else begin
ClrScr;
Case Item of
l:Print<"P^work.txr,5,1.78,22,LightGray);
2: Out.text;
3: I_Work;
end;
ClrScr;
Draw_Menu;
prNew; Key(c,sim);
end
end
else Key(C,Sim);
Until Done;
ClrScr;
TextColor(LightGray);
Done:=False;
end;
end.
{Модуль организации процесса обмена данными в ИВК}
Unit IOUtil;
Interface
Uses Crt,Graph,Routine,R_Graph,Sunch;
Procedure I_Work;
Implementation
Procedure I_Work;
Const
X=720;
N=14;
{массив заданных значений температуры}
temp:array[l..N] of integer=
(25,30,35,40,45,50,55,60,65,70,75,80,85,90); 
                            pr_;item:=Max_Item;prNew;
                         end;
                     73: begin
                            pr_;item:=l;prNew;
                          end;
                  end;
                           end;
           if (sim=13)or(sim=27) then
                  begin
                    if (sim=27)or((sim=l3)and(Item=Max_Item))
                         then Done:=True
                         else begin
                                ClrScr;
                                Case Item of
                     l:Print<"P^work.txr,5,1.78,22,LightGray);
                    2: Out.text;
                    3: I_Work;
                  end;
                         ClrScr;
                          Draw_Menu;
                         prNew; Key(c,sim);
                         end
                  end
                                      else Key(C,Sim);
           Until Done;
           ClrScr;
           TextColor(LightGray);
           Done:=False;
           end;
          end.

{Модуль организации процесса обмена данными в ИВК}
    Unit IOUtil;
      Interface
          Uses Crt,Graph,Routine,R_Graph,Sunch;
          Procedure I_Work;
      Implementation
          Procedure I_Work;
             Const
             X=720;
             N=14;
             {массив заданных значений температуры}
             temp:array[l..N] of integer=
                 (25,30,35,40,45,50,55,60,65,70,75,80,85,90);

                                       145

Страницы