Полный текст сформированного модуля Unit1.Pas

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, Buttons, ExtCtrls;

type

TForm1 = class(TForm)

Panel1: TPanel;

Panel2: TPanel;

Button1: TButton;

Button2: TButton;

BitBtn1: TBitBtn;

Label1: TLabel;

StaticText1: TStaticText;

StaticText2: TStaticText;

Edit1: TEdit;

Edit2: TEdit;

Memo1: TMemo;

Memo2: TMemo;

procedure Button1Clik(Sender: TObject);

procedure Edit1KeyPress(Sender: TObject; var Key:Char);

procedure Button2Click(Sender: TObject);

private { Private declarations }

public { Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

{Процедура вычисления значений x и y, активизируется при нажатии кнопки "Вычислить" }

procedure TForm1.Button1Clik(Sender: TObject);

var a,b : integer;//исходные данные

x,y : integer;//результаты вычислений

begin {Формирование числовых значений a и b}

a:=StrtoInt(Edit1.Text);

b:=StrtoInt(Edit2.Text);

{Вычисление значений x и y}

x:=a+b*b div a; y:=(a-b)*x;

{Вывод результатов вычислений}

Memo1.Lines.Add(' Результаты вычислений');

Memo1.Lines.Add(' x = '+IntToStr(x));

Memo1.Lines.Add(' y = '+FloatToStr(y));

end;

{Ввод символа в поле Edit1 при нажатии клавиши Enter}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key:Char );

begin //KEY-символ, соответствующий нажатой клавши

case Key of

'0'..'9' : ; // цифра

#8 : ; // Клавиша [Back Spaсe]

#13 : Edit2.SetFocus; // Клавиша [Enter]

else Key:=Chr(0);

end; // Завершение оператора case

end;

{Очистка полей ввода-вывода, активизируется при нажатии кнопки "Очистить"}

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Clear; Edit2.Clear; Memo1.Clear;

Edit1.SetFocus; //установка фокуса ввода (курсора для ввода) в поле Edit1

end;

//Изменение названия формы при запуске программы

procedure TFrom1.FormCreate (Sender: TObgect);

begin

Form1.Caption:= ‘Задание1. Вычисления по формулам’;

End;

end.