unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    Edit3: TEdit;
    Label3: TLabel;
    Edit4: TEdit;
    Label4: TLabel;
    Button1: TButton;
    Edit5: TEdit;
    Label5: TLabel;
    Button2: TButton;
    Button3: TButton;
    Edit6: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
var
Qk,Qnom,Qpk,Gmin,N: real;
Gmax,R,Rp,Rrez:real;
begin

Gmax:=Qk+1.1*Qnom+Qpk ;
R:=1.2*Gmax*9.81 ;

  begin
if R<1 then  Edit6.Text:='Условие удержания кабины на направляющих не выполнено'
  else  Rp:=0.14*N*4
  end;
begin
Rrez:=Rp/Gmax/9.81;

if Rp/Gmax/9.81>1 then Edit6.Text:='Тормозное усилие обеспечено с коэффициентом запаса'+FloatToStr(Rrez)
  else Edit6.Text:='Тормозное усилие не обеспечено, коэффициент запаса'+FloatToStr(Rrez);
  end;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
Form1.Close
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
Edit1. Clear;
Edit2. Clear;
Edit3. Clear;
Edit4. Clear;
Edit5. Clear;
Edit6. Clear;
end;

end.