Interface

Uses

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

Type

TForm1 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Label3: TLabel;

Edit3: TEdit;

Button1: TButton;

Edit2: TEdit;

Button2: TButton;

Label4: TLabel;

Memo1: TMemo;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Button2Click(Sender: TObject);

Private

{Private declarations}

Public

{Public declarations}

end;

Var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

Var

x, y, z: integer;

Begin

// Вводим стороны треугольника

x:=StrToInt(Edit1.Text); //Считывается значение X

Y:=StrToInt(Edit2.Text); //Считывается значение Y

Z:=StrToInt(Edit3.Text); //Считывается значение Z

// Проверяем возможность построения треугольника

If ((x+y)>z) and ((x+z)>y) and ((y+z)>x) then

Label4.Caption:='Можно построить треугольник '

Else

Label4.Caption:='Нельзя построить треугольник ';

// Выводим в поле Label4 ответ

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Memo1.Clear;

Memo1.Lines.Add('Начальные значения отрезков задаются в программе');

Memo1.Lines.Add('Вы можете ввести другие длины ');

Memo1.Lines.Add('Для того, чтобы узнать, можно ли из этих отрезков построить');

Memo1.Lines.Add('треугольник, нажмите кнопку Вычислить');

Edit1.Text:='34'; // Начальное значение Х

Edit2.Text:='74'; // Начальное значение Y

Edit3.Text:='19'; // Начальное значение Z

end;

procedure TForm1.Button2Click(Sender: TObject);

Begin

Form1.Close;

end;

End.