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

Учреждение образования Гомельский государственный технический университет имени П. О. Сухого Кафедра «Информатика»

Лабораторная работа № 4

по курсу: «Информатика»

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

Выполнила студентка Мельникова Ирина Принял преподаватель: Емельяненко Н. С

Цель работы: Получить навыки разработки линейных алгоритмов и их реализации в среде Delphi. Научиться составлять тесты для проверки программы Условие задачи 1: Путь, пройденный за время t со скоростью v. S = vt

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

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

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

Тест

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

Ожидаемый результат : s=v*t= 3*5=15

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

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

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

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

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: .

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

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

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

Тест

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

Ожидаемый результат : = -1,62 653 326 565 218

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

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

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls;

type

TForm1 = class (TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label4: TLabel;

Edit4: TEdit;

Button1: TButton;

Image1: TImage;

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, b: real;

begin

x:=StrToFloat (Edit1.Text);

y:=StrToFloat (Edit2.Text);

z:=StrToFloat (Edit3.Text);

b:=sqr (cos (z))+(sin (2*x)/cos (2*x))+abs (y);

Edit4.Text:=FloatToStr (b);

end;

end.

Вывод

Я получила навыки разработки линейных алгоритмов и их реализации в среде Delphi и научилась составлять тесты для проверки программы.