Лабораторная работа 3. Создание простого приложения в интегрированной среде разработки (ИСР) Turbo Delphi.

Создание простого приложения в интегрированной среде разработки (ИСР) Turbo Delphi.

Цель работы: Изучить интерфейс ИСР Turbo Delphi, этапы работы при создании приложения в ИСР; научиться создавать интерфейс простого приложения и процедуры обработки событий, выводить тексты процедур (или весь модуль) и формы с результатами работы на принтер; получить навыки тестирования программ.

Условие задачи: Ввести два вещественных числа x и y и вычислить их сумму z:

Вид окна проекта:

Таблица свойств компонентов:

Элемент интерфейса	Визуальный компонент	Свойство компонента	Значение свойства
Заголовок окна	Form1	Caption	Линейные алгоритмы
Введите x	Label1	Caption	Введите x
Поле ввода x	Edit1	Text
Введите y	Label2	Caption	Введите y
Поле ввода y	Edit2	Text
Нажмите	Label3	Caption	Нажмите
Кнопка ОК	Button1	Caption	ОК
Поле вывода x,y	Label4	Caption
И получили z=	Label5	Caption	И получили z=
Поле вывода z	Edit3	Text
Поле вывода z	Edit3	ReadOnly	True

Таблица используемых событий:

Компонент	Событие	Имя процедуры обработки события	Реализуемый алгоритм
Button1	OnClick	Tform1.Button1Click	Вычисление z

Таблица используемых переменных:

Имя переменной в задаче	Имя переменной в программе	Тип переменной	Комментарий
x,y	x,y	real	Исходные данные
-	z	real	Искомое значение, результат

Тесты:

Тест1:

Исходные данные: х=2

у=3

Ожидаемый результат:

z=2+3=5

Тест2:

Исходные данные: х=5

у=10

Ожидаемый результат:

z=10+5=15

Графическая схема алгоритма:

Распечатка результатов

(окно формы в режиме выполнения):

Распечатка текста модуля:

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

Button1: TButton;

Label4: TLabel;

Label5: TLabel;

Edit3: TEdit;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

x,y,z:real;

begin

x:=StrToFloat(Edit1.Text);

y:=StrToFloat(Edit2.Text);

Label4.Caption:='Вы ввели х='+FloatToStr(x)+' y='+FloatToStr(y);

z:=x+y;

Edit3.Text:=FloatToStr(z);

end;

end.

Дата добавления: 2015-08-18