Программирование линейных алгоритмов на языке Delphi

Исследование особенностей разработки линейных алгоритмов и их реализации в среде Delphi. Составление тестов для проверки программы. Характеристика основных элементов интерфейса, компонентов, значения их свойств. Построение графической схемы алгоритма.
Краткое сожержание материала:

Размещено на http:///

Учреждение образования

Гомельский государственный технический университет имени П.О. Сухого

Кафедра «Информатика»

Лабораторная работа № 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

линейный алгоритм интерфейс графический

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

Размещено на http:///

Распечатка результатов (окно формы в режиме выполнения)

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

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var S,t,v: Extended;

begin

v:=StrToFloat(Edit1.Text);

t:=StrToFloat(Edit2.Text);

S:=v*t;

Edit3.Text:=FloatToStr(S);

end;

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	x,y,z	real	x,y,z
-	b	real	b, результат

Тест

Исходные данные: x=4 y=5 z=2

Ожидаемый результат : = -1,62653326565218

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

Размещено на http:///

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

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Cont...