Mavzu: Suyuq kristallar va ularning qullanilishi

//Formulani hisoblash dasturi//

procedure Tfmmain.BitBtn5Click(Sender: TObject);

var B1, B2, v1, v2, v3, a1, a2, a3, t : real;

begin

if (w1.Text = '') or (w2.Text = '') or (w3.Text = '') or (af1.Text = '') or (af2.Text = '') or (af3.Text = '') then begin

ShowMessage('Barcha berilgan parametrlarni kiriting...'); pO2.Visible := false; abort; end else begin pO2.Visible := true;

v1 := StrToFloat(w1.Text); v2 := StrToFloat(w2.Text); v3 := StrToFloat(w3.Text); a1 := StrToFloat(af1.Text); a2 := StrToFloat(af2.Text); a3 := StrToFloat(af3.Text);

B1 := sqr(StrToFloat(w1.Text)) * (sqr(StrToFloat(w3.Text)) - sqr(StrToFloat(w2.Text)));