ЛАБОРАТОРНАЯ РАБОТА 1

Разработка простейшего приложения в визуальной среде Delphi

Постановка задачи:

Разработать линейное приложение с использованием компонент TLabel, TEdit, TMemo, TButton в соответствии с индивидуальным вариантом задания.

Задание:

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

unit lr1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

edt1: TEdit;

edt2: TEdit;

edt3: TEdit;

lbl1: TLabel;

lbl2: TLabel;

lbl3: TLabel;

mmo1: TMemo;

lbl4: TLabel;

btn1: TButton;

procedure FormCreate(Sender: TObject);

procedure btn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

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

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

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

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

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

Mmo1.Lines.Add('Лa6.раб.№1. Ст.гр. 41703113 Сушкина Д.В.');

end;

procedure TForm1.btn1Click(Sender: TObject);

var

x, y, z : real;

a, b, u, c : real;

begin

Mmo1.Clear;

Mmo1.Lines.Add('Лa6.раб.№1. Ст.гр. 41703113 Сушкина Д.В.');

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

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

Mmo1.Lines.Add('x = ' + Edt1.Text);

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

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

Mmo1.Lines.Add('y = ' + Edt2.Text);

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

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

Mmo1.Lines.Add('z = ' + Edt3.Text);

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

a := Exp(-x*ln(2));

b := Sqrt((x+Exp(1/4*ln(Abs(y)))));

u := Exp(1/3*ln(Exp((x-1/sin(z)))));

c:= a*b*u;

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

Mmo1.Lines.Add('Результат c:= ' + FloatToStrF(c, ffFixed, 8, 3));

end;

end.

Результат работы программы:

1. При запуске программы появляется следующее окно:

Выводы:

Мы изучили основы среды DELPHI и составили простейшую программу для линейного алгоритма. Использовали компоненты: Label, Memo, Edit, Button. Изучили их основные свойства такие как: Caption, Name, Font.