Программирование линейных алгоритмов на языке Delphi
Учреждение
образования
Гомельский
государственный технический университет имени П.О. Сухого
Кафедра
«Информатика»
Лабораторная
работа № 4
по
курсу: “Информатика”
Программирование
линейных алгоритмов на языке Delphi.
Выполнила студентка Мельникова
Ирина
Принял преподаватель:
Емельяненко Н.С
Цель работы: Получить навыки разработки
линейных алгоритмов и их реализации в среде Delphi.
Научиться составлять тесты для проверки
программы
Условие задачи 1: Путь, пройденный за время
t со
скоростью v.
S = vt
Таблица свойств компонентов
|
Элемент
интерфейса
|
Компонент
|
Свойство
|
Значение
свойства
|
|
Заголовок
окна
|
Form1
|
Caption
|
Вычисление
пути
|
|
Скорость
|
Label1
|
Caption
|
Скорость
|
|
Время
|
Label2
|
Caption
|
Время
|
|
Поле
ввода v
|
Edit1
|
Text
|
|
|
Поле
ввода t
|
Edit2
|
Text
|
|
|
Кнопка
вычислить
|
Button1
|
Caption
|
Вычислить
|
|
Путь
|
Label3
|
Caption
|
S=
|
|
Поле
вывода пути
|
Edit3
|
Text
|
|
Таблица используемых событий
|
Компонент
|
Событие
|
Имя
процедуры обработки события
|
Реализуемый
алгоритм
|
|
Button1
|
OnClick
|
Tform1.Button1Click
|
Расчет
пути
|
Таблица используемых переменных
|
Имя
переменной в задаче
|
Имя
переменной в программе
|
Тип
переменной
|
Комментарий
|
|
v,t
|
t,v
|
Extended
|
Скорость
и время
|
|
-
|
s
|
Extended
|
Путь,
результат
|
Тест
Исходные данные: v=3
t=5
Ожидаемый результат : s=v*t=
3*5=15
линейный алгоритм интерфейс графический
Распечатка результатов (окно формы в
режиме выполнения)
Распечатка текста модуля
unit Unit1;, Messages, SysUtils,
Variants, Classes, Graphics, Controls, Forms,, StdCtrls;= class(TForm):
TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TButton;Button1Click(Sender:
TObject);
{ Private declarations }
{ Public declarations };: TForm1;
{$R
*.dfm}TForm1.Button1Click(Sender: TObject);S,t,v: Extended;:=StrToFloat(Edit1.Text);:=StrToFloat(Edit2.Text);:=v*t;.Text:=FloatToStr(S);
end;.
Условие задачи 2: 
.
Таблица свойств компонентов
|
Элемент
интерфейса
|
Компонент
|
Свойство
|
Значение
свойства
|
|
Заголовок
окна
|
Form1
|
Caption
|
Вычисление
функции
|
|
x
|
Label1
|
Caption
|
x
|
|
y
|
Label2
|
Caption
|
y
|
|
z
|
Label3
|
Caption
|
z
|
|
Поле
ввода x
|
Edit1
|
Text
|
|
|
Поле
ввода y
|
Edit2
|
Text
|
|
|
Поле
ввода z
|
Edit3
|
Text
|
|
|
Кнопка
вычислить
|
Button1
|
Caption
|
Вычислить
|
|
b
|
Label4
|
Caption
|
b=
|
|
Поле
вывода b
|
Edit4
|
Text
|
|
|
Рисунок
|
TImage
|
TJPEGImage
|
|
Таблица используемых событий
|
Компонент
|
Событие
|
Имя
процедуры обработки события
|
Реализуемый
алгоритм
|
|
Button1
|
OnClick
|
Tform1.Button1Click
|
Расчет
b
|
Таблица используемых переменных
|
Имя
переменной в задаче
|
Имя
переменной в программе
|
Тип
переменной
|
Комментарий
|
|
x,y,z
|
real
|
x,y,z
|
|
-
|
b
|
real
|
b, результат
|
Тест
Исходные данные: x=4
y=5 z=2
Ожидаемый результат : 
=
-1,62653326565218
Графическая схема алгоритма
Распечатка текста модуля:
Unit1;
interface, Messages, SysUtils,
Variants, Classes, Graphics, Controls, Forms,, StdCtrls, jpeg, ExtCtrls;=
class(TForm): TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TLabel;:
TEdit;: TButton;: TImage;Button1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm1;
{$R
*.dfm}TForm1.Button1Click(Sender:
TObject);x,y,z,b:real;:=StrToFloat(Edit1.Text);:=StrToFloat(Edit2.Text);:=StrToFloat(Edit3.Text);:=sqr(cos(z))+(sin(2*x)/cos(2*x))+abs(y);.Text:=FloatToStr(b);;
end.
Вывод
Я получила навыки разработки линейных алгоритмов
и их реализации в среде Delphi
и научилась составлять тесты для проверки
программы.