Реферат: Теплопроводность через сферическую оболочку

X0,Y0:integer;

T1,T2,R1,R2:real;

implementation

{$R *.DFM}

procedure TForm1.OsiK (x0,y0:Integer);

var

i,x,y:integer;

begin

Canvas.Pen.Width:=2;

Canvas.Pen.Color := clBlack;

Canvas.MoveTo(x0, y0); {построение оси X}

Canvas.LineTo(x0+400, y0);

Canvas.MoveTo(x0+400, y0); {построение стрелочек оси Х}

Canvas.LineTo(x0+400-10, y0-5);

Canvas.MoveTo(x0+400, y0);

Canvas.LineTo(x0+400-10, y0+5);

Label4.Left:=x0+390;

Label4.Top:=y0+10;

Label5.Left:=x0+350;

Label5.Top:=y0+10;

Label6.Left:=x0;

Label6.Top:=y0+10;

Label7.Left:=x0-25;

Label7.Top:=y0-10;

Label8.Left:=x0-25;

Label8.Top:=y0-105;

Canvas.MoveTo(x0, y0); {построение оси Y}

Canvas.LineTo(x0, y0-150);

Canvas.MoveTo(x0, y0-150); {построение стрелочек оси Y}