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

label7.Caption:=FloatToStrF(T2,ffGeneral,4,1);

label8.Caption:=FloatToStrF(T1,ffGeneral,4,1);

end

else

begin

label7.Caption:=FloatToStrF(T1,ffGeneral,4,1);

label8.Caption:=FloatToStrF(T2,ffGeneral,4,1);

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

Key:=#0;

MessageBeep($FFFFFFFF);

end;

end;

end.