Реферат Створення програми &Розрахунок фундаментів&

FormClose (Sender: TObject; var Action: TCloseAction);

{Private declarations}

{Public declarations} ;: TForm8; P, d, Pp, N_p_0, Pp1, y_cp, h, n, Fp, F_p, y_cp_1, h_1, N_p_pg, N_p_e, P_p, n_c: Extended; Main;

{$ R * .dfm} TForm8.sButton1Click (Sender: TObject);.Visible:=False;.Visible:=True;.Checked:=True;:=strtofloat(sEdit1.text);:=strtofloat(sEdit2.text);:= P/sqr (3 * d) ;. Text:=FloatToStr (Pp) ;. Text:=FloatToStr (Pp) ;; TForm8.sButton2Click (Sender: TObject);.Visible:=false;.Checked:=True;_p_0:=strtofloat(sEdit4.text);_cp:=strtofloat(sEdit6.text);:=strtofloat(sEdit7.text);:=strtofloat(sEdit8.text);:= N_p_0/(Pp1 - y_cp * h * n) ;. Text:=FloatToStr (Fp) ;; TForm8.sRadioButton1Click (Sender: TObject) ;. Visible:=true; .Visible:=False ;; TForm8.sRadioButton2Click (Sender: TObject) ;. Visible:=true; .Visible:=False ;; TForm8.sButton3Click (Sender: TObject);:=strtofloat(sEdit10.text);_p:=strtofloat(sEdit11.text);_cp_1:=strtofloat(sEdit12.text);_1:=strtofloat(sEdit13.text);_p_pg :=N * F_p * y_cp_1 * h_1; .Text:=FloatToStr (N_p_pg) ;. Text:=FloatToStr (N_p_pg) ;; TForm8.sButton4Click (Sender: TObject); _ p_e:=strtofloat (sEdit15.text); _ p: =strtofloat (sEdit17.text); _ c:=(N_p_e + N_p_pg)/P_p; .text:=FloatToStr (n_c) ;; TForm8.FormClose (Sender: TObject; var Action: TCloseAction);

begin.show ;;.

unit zastavka ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, ExtCtrls, jpeg, ComCtrls, acProgressBar;=class (TForm): TImage ;: TTimer ;: TsProgressBar; Timer1Timer (Sender: TObject) ; Image1Click (Sender: TObject);

{Private declarations}

{Public declarations} ;: TZast; Main;

{$ R * .dfm} TZast.Timer1Timer (Sender: TObject) ;. Position:=sprogressbar1.Position +1; sprogressbar1.Position=200 then.Hide; .show; .Enabled:=false;

end;.