Запуск программы

Запустить программу можно нажав Run в главном меню Run, или клавишу F9, или пиктограмму . При этом происходит трансляция и, если нет ошибок, компоновка программы и создание единого загружаемого файла с расширением.exe. На экране появляется активная форма программы (рисунок 1.2).

Работа с программой происходит следующим образом. Нажмите (щелкните мышью) кнопку “Выполнить”. В окне Memo1 появляется результат. Измените исходные значения x, y, z в соответствующих окнах Edit и снова нажмите кнопку “Выполнить” - появятся новые результаты. Завершить работу программы можно нажимая кнопку на форме или выполнив команду Program Reset, вызываемую из главного меню с пунктом Run.

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

Unit LabRab_1;

interface

uses

Windows, Messages, SysUlits, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type

TForm1=class(TForm)

Edit1:TEdit;

Edit2: TEdit;

Edit3: TEdit; Label1: TLabel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Memo1:TMemo;

Button1:TButton;

procedure FormCreate(Sender: TObject);

procedure Вutton1Click(Sender: TObject):

private

{Private declarations}

public

{ Public declarations}

end;

var

Form1: TForrn1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

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

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

EditЗ.Техt:= '19,43'; // Начальное значение Z

Memo1.Clear; //Очистка окна редактора Memo1

// Вывод строки в многострочный редактор Memol

Memo1.Lines.Add('Лa6.раб.№1. Ст. гр. 107218 Юртаева Т.А.');

end;

procedure TForm1.Button1Click(Sender: TObject);

var

x, y, z: real;

a, b, c, u: real;

begin

x: = StrToFloat(Edit1.Техt); // Считывается значение x

// Вывод x в окно Memo1

Memo1.Lines.Add(‘x = ' + Edit1.Text);

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

// Вывод y в окно Memol

Memo1.Lines.Add(‘y =' + Edit2.Text);

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

// Вывод z в окно Memo1

Memo1.Lines.Add(‘z = ' + Edit3.Text);

// Вычисляем арифметическое выражение

a:= Sqr(Sin(x+y) / Cos(x+y));

b:= Exp(y-z);

c:= Sqrt(Cos(Sqr(x))+Sin(Sqr(z)));

u:= a – b*c;

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

Memo1.Lines.Add(‘Результат u:= ’ + FloatToStrF(u, ffFixed, 8, 3));

end;

end.