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

                    Yl:=Yl-26;
                    i:=i+2;
                    end;
SetLineStyle(0,0,3);
Line(X-115,290,X-l15,240);
SetLineStyle(0,0,l);
end;
Procedure Arrow(y:Integer;Color:Byte);
begin
       SetColor(Color);
Line(X-290,y,X-265,y);
end;
Procedure St__Line(s:String);
begin
SetLineStyle(0,0,l);
Line(GetMaxX,l,GetMaxX,GetMaxY);
Line(l,l,l,GetMaxY);
Line(l,l,GetMaxX,l);
Line(l ,GetMaxY,l ,GetMaxX,GetMaxY);
OutTextXY(GetMaxX-600,GetMaxY-19,S);
Line(2,320,GetMaxX-2,320);
end;
Procedure draw;
var i:Integer;
begin
SetColor(White);
SetTextStyle(7,1,4);
OutTextXY(X-80,30,"Thermometr");
Line(X-260,20,X-200,20);
Line(X-260,20,X-260,300);
Line(X-260,300,X-200,300);
Line(X-200,20,X-200,300);
SetTextStyle(7,0,l);
OutTextXY(X-240,0,"t° C");
Yl:=280;
for i:=l to N do begin
                    Str(Temp[i],S);
                    Line(X-260,Yl,X-200,Yl);
                    OutTextXY(X-240,Yl-2,S);
                    Yl:=Yl-20;
                    end;
end;
begin
gd:=detect;

                               152