Запуск и работа с программой

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

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

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

 

unit tema1;

 

interface

 

uses

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

StdCtrls;

 

type

TForm1 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

Edit3: TEdit;

Label4: TLabel;

Memo1: TMemo;

Button1: TButton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.DFM}

 

procedure TForm1.FormCreate(Sender: TObject);

begin

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

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

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

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

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

Memo1.Lines.Add('Лаб. раб. N1. Ст. гр. 740102 Иванов А.А.');

end;

 

procedure TForm1.Button1Click(Sender: TObject);

var

x,y,z,a,b,c,u : extended;

begin

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

Memo1.Lines.Add(' X = '+Edit1.Text); // Вывод X в окно Memo1

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

Memo1.Lines.Add(' Y = '+Edit2.Text); // Вывод Y в окно Memo1

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

Memo1.Lines.Add(' Z = '+Edit3.Text); // Вывод Z в окно Memo1

 

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

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.