Курсовая работа: Расчет механизма подъема

Edit17: TEdit;

Label20: TLabel;

Label21: TLabel;

Label22: TLabel;

Label23: TLabel;

Label24: TLabel;

Label25: TLabel;

Label26: TLabel;

Button4: TButton;

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Q,kpdb,nk,e,sp,dk,db,d,du:real;

nb:integer;

mdk:array[1..16]of real=(8.1,9.7,11.5,13.0,14.5,16.0,17.5,19.5,21.0,22.5,

24.0,25.5,27.5,29.0,32.0,35.5); //Приложение 4//

msp:array[1..16]of integer=(3430,4930,6750,8805,11100,13650,16550,19800,

23250,27000,31000,35300,39900,44750,54950,66600);Приложение 4

implementation

uses Unit2;

{$R *.DFM}