Тема: Создание проекта линейной структуры программы с использованием визуальных компонентов

Лабораторное занятие № 6

Цель: приобретение навыка кодирования, отладки и тестирования линейных алгоритмов в среде Delphi 2010.

ТО и ПО: ОС Windows 7, Delphi 2010.

МО: методические указания.

Задание: Создать приложение, реализующее линейный алгоритм вычисления функции:

(1)

Индивидуальное задание: Создать приложение, реализующее линейный алгоритм вычисления функции:

(2)

Описание хода выполнения работы:

Создала Delphi-проект.

Разместила на форме компоненты, вид интерфейса представлен на рисунке 6.1.

Рисунок 6.1

Выполнила программирование обработчика нажатия на кнопку, осуществляющего вычисление значения функции по формуле 1 и выводящего результат в поле Memo.

Код программы и комментарии к нему:

unitUnit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Memo1: TMemo;

Button1: TButton;

procedureFormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

varx,y,z,a,b,c,s:real; //объявление вещественных переменных

begin

x:=strtofloat(edit1.Text); // преобразование строкового значения в

//вещественное и присвоение переменной х

y:=strtofloat(edit2.Text);

z:=strtofloat(edit3.Text);

a:=sqr(sin(x+y)/cos(x+y)); // вычисление квадрата тангенса

b:=abs(exp(3*y)-x*x); // вычисление модуля числителя дроби

c:=sqrt(arctan(z)+ln(x)); // вычисление квадратного корня в знаменателе дроби

s:=a*b/c; // вычисление результата функции

memo1.Lines.Add('x='+edit1.Text+'y='+edit2.Text+'z='+edit3.text);

//вывод значений переменных в поле memo1

memo1.Lines.Add('Результат s='+floattostr(s));

//вывод результата вычисления значения функции в поле memo1

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

memo1.Clear; //очистка содержимого поля memo1

end;

end.

Протокол работы программы представлен на рисунке 6.2.

Рисунок 6.2

Выполнила кодирование линейного алгоритма для вычисления значения функции по индивидуальному заданию.

Код программы индивидуального задания:

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;

Memo1: TMemo;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

varx,y,t,a,b,c,s:real;

begin

x:=strtofloat(edit1.Text);

y:=strtofloat(edit2.Text);

a:=sqr(cos(x));

b:=2/3+sqrt(x+y);

c:=ln(x);

s:=a+(b/c);

memo1.Lines.Add('x='+edit1.Text+'y='+edit2.Text);

memo1.Lines.Add('Результат t='+floattostr(s));

end;

end.

Протокол программы представлен на рисунке 6.3.

Рисунок 6.3

Вывод: В ходе лабораторного занятия созданы 2 программы, реализующие вычисления функций с помощью линейного алгоритма, выполнено тестирование и отладка алгоритмов работы программ. В ходе разработки программ приобрела навыки кодирования, отладки и тестирования линейных алгоритмов в среде Delphi.

Дата добавления: 2014-12-25