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

UptoLike

ВУЗ: 

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

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

Рубрика: 

151
SOut(S,I);
asm
{УП=0}
mov al,0Ch
mov dx,Port_B
out dx,al
mov al,04h
out dx,al
end;
end;
end;
{Процедуры Grad, Arrow, St Line, Draw}
{определяют внешний вид экрана}
Procedure Grad;
var i: Integer;
begin
Ellipse(X-115,40,0,180,40,20);
Line(X-155,41,X-155,220);
Line(X-75,X-75,220);
Arc(X-140,220,180,260,15);
Arc(X-90,220,280,360,15);
Arc(X-145,242,0,80,15);
Arc(X-85,242,100,180,15);
Line(X-130,242,X-130,290);
Line(X-100,242,X-100,290);
Arc(X-115,290,180,360,15);{{}
Line(X-119,40,X-119,290);
Line(X-l11,40,X-111,290);
Line(X-119,40,X-lll,40);
Sector(X-l15,290,0,360,8,5);
Y1:=219;
for i:=l to N do begin
Line(X-140,Yl,X-125,Yl);
Line(X-106,Yl,X-9l,Yl);
Y1:=Y1-13;
end;
SetTextStyle(2,0,4);
Yl:=207;
i:=l;
while i<N do begin
Str(Temp[i],S);
Str(Temp[i+l],Sl);
OutTextXY(X-102,Yl,S);
OutTextXY(X-140,Yl-13,Sl); 
                SOut(S,I);
                asm
                {УП=0}
                mov       al,0Ch
                mov       dx,Port_B
                out     dx,al
                mov       al,04h
                out dx,al
                end;
         end;
end;
{Процедуры Grad, Arrow, St Line, Draw}
{определяют внешний вид экрана}
Procedure Grad;
var i: Integer;
begin
Ellipse(X-115,40,0,180,40,20);
Line(X-155,41,X-155,220);
Line(X-75,X-75,220);
Arc(X-140,220,180,260,15);
Arc(X-90,220,280,360,15);
Arc(X-145,242,0,80,15);
Arc(X-85,242,100,180,15);
Line(X-130,242,X-130,290);
Line(X-100,242,X-100,290);
Arc(X-115,290,180,360,15);{{}
Line(X-119,40,X-119,290);
Line(X-l11,40,X-111,290);
Line(X-119,40,X-lll,40);
Sector(X-l15,290,0,360,8,5);
Y1:=219;
for i:=l to N do begin
              Line(X-140,Yl,X-125,Yl);
              Line(X-106,Yl,X-9l,Yl);
              Y1:=Y1-13;
              end;
SetTextStyle(2,0,4);
Yl:=207;
i:=l;
while i

Страницы