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

UptoLike

ВУЗ: 

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

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

Рубрика: 

144
begin
Wrt_atr(xl-2,yl-l+Item*2,Attrb,Menu[Item];
end;
Procedure pr_;
begin
W(xl-l,yl+Item*2-l,xl+Len_Item-2,yl+Item*2-l, Black,32);
W(xl-l,yl+Item*2-l,xl+Len_Item-2,yl+Item*2+l,Black,32);
TextColor(7);
GotoXY(xl,yl+Item*2);write(Menu[Item]);
end;
Procedure DrawMenu;
var i:Integer;
begin
ClrScr;
TextColor(7);
for i:=l to Max_Item do
begin
GotoXY(xl,yl+i*2);
write(Menu[i];
end;
bar_(xl-2,yl,xl+Len_Item,yl+Max_Item*2+2,2);
end;
begin
xl:=20; yl+4;
Item:=1;
c:=0; Sim:=0;
Done:=False; Draw_Menu;
prNew;
Repeat
if c=l then begin
Case Sim of
80: begin
if Item<Max_Item Then
begin
pr_;Inc(Item);prNew;
end;
end;
72: begin
if Item>l Then
begin
pr_;Dec(Item);prNew;
end;
end;
8l: begin 
           begin
              Wrt_atr(xl-2,yl-l+Item*2,Attrb,Menu[Item];
           end;
       Procedure pr_;
           begin
W(xl-l,yl+Item*2-l,xl+Len_Item-2,yl+Item*2-l, Black,32);
W(xl-l,yl+Item*2-l,xl+Len_Item-2,yl+Item*2+l,Black,32);
TextColor(7);
GotoXY(xl,yl+Item*2);write(Menu[Item]);
           end;
       Procedure DrawMenu;
       var i:Integer;
       begin
         ClrScr;
       TextColor(7);
       for i:=l to Max_Item do
              begin
                  GotoXY(xl,yl+i*2);
                  write(Menu[i];
              end;
       bar_(xl-2,yl,xl+Len_Item,yl+Max_Item*2+2,2);
       end;
begin
xl:=20; yl+4;
Item:=1;
c:=0; Sim:=0;
Done:=False; Draw_Menu;
prNew;
Repeat
   if c=l then begin
       Case Sim of
         80: begin
              if Iteml Then
                  begin
                     pr_;Dec(Item);prNew;
                  end;
              end;
          8l: begin

                           144

Страницы