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

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

Code1,Code2,Code3,Code4:integer;

begin

Repaint;

val (Edit1.Text,T1,Code1);

val (Edit2.Text,T2,Code2);

val (Edit3.Text,R1,Code3);

val (Edit4.Text,R2,Code4);

if (Code4 or Code3 or Code2 or Code1) <> 0 then

begin

Edit1.SetFocus;

MessageDlg ('Введите пожалуйста значение!', mtError, [mbOk],0);

end

else

Postroenie(T1,T2,R1,R2);

end;

procedure TForm1.FormPaint(Sender: TObject);

begin

x0:=100;

y0:=200;

OsiK(x0,y0);

end;

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

begin

if not (key in ['0'..'9',#8,'.']) then

begin