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

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Spin;

type

TForm1 = class(TForm)

Button1: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Edit1: TEdit;

Label9: TLabel;

Edit2: TEdit;

Label10: TLabel;

Edit3: TEdit;

Label11: TLabel;

Edit4: TEdit;

procedure Button1Click(Sender: TObject);

procedure FormPaint(Sender: TObject);

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

private

public

procedure OsiK (x0,y0:Integer);

procedure Postroenie(T1,T2,R1,R2:real);

end;

var