БЕЛОРУССКИЙ НАЦИОНАЛЬНЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ
МЕЖДУНАРОДНЫЙ ИНСТИТУТ ДИСТАНЦИОННОГО ОБРАЗОВАНИЯ
КОНТРОЛЬНАЯ РАБОТА
по дисциплине «Разработка приложений в визуальных средах»
вариант 10
выполнил:
ст. гр. 41703113 Сушкина Д.В.
проверил:
канд. техн. наук М.А.Раджух
Минск 2015
Лабораторная работа 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.
Результат работы программы:
При запуске программы появляется следующее окно:
Выводы:
Мы изучили основы среды DELPHI и составили простейшую программу для линейного алгоритма. Использовали компоненты: Label, Memo, Edit, Button. Изучили их основные свойства такие как: Caption, Name, Font.
Лабораторная работа 2
Разработка приложения, реализующего разветвляющийся вычислительный процесс
Постановка задачи:
Разработать приложение, реализующее разветвляющийся вычислительный процесс в соответствии с индивидуальным заданием. В качестве f(x) использовать по выбору: sh(x), х2; е.
Задание:
.
Текст программы:
unit lr1;
Interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
edt1: TEdit;
edt2: TEdit;
lbl1: TLabel;
lbl3: TLabel;
mmo1: TMemo;
lbl4: TLabel;
btn1: TButton;
rg1: TRadioGroup;
procedure FormCreate(Sender: TObject);
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;