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

e

real

15.

Диаметр блока и барабана по дну канавки

D

d

real

16.

Диаметр уравнительного блока

Dy

du

real

6. Текст программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Grids,math;

type

TForm1 = class(TForm)

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Label1: TLabel;

Label2: TLabel;

Edit1: TEdit;

Label3: TLabel;