БАЛАКОВСКИЙ ИНСТИТУТ ТЕХНИКИ ТЕХНЛЛОГИИ И УПРАВЛЕНИЯ

ФАКУЛЬТЕТ ИНЖЕНЕРНО-СТРОИТЕЛЬНЫЙ

КАФЕДРА УПРАВЛЕНИЕ И ИНФОРМАТИКА В ТЕХНИЧЕСКИХ СИСТЕМАХ

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

«Программирование линейных алгоритмов»

дисциплина

СПО

Выполнила ст. гр. УИТ – 33

Принял:.

« » 2008 г.

Балаково, 2008

Балаково 2007

Цель работы: изучить основные элементы визуальной среды, освоить использование простейших компонентов DELPHI для ввода/вывода данных, и создать приложение, которое использует линейный алгоритм.

Задание: создать Windows-приложение для вычисления выражения:

Текст программы

unit UnLinAlg;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,

Buttons;

type

{ TForm1 }

TForm1 = class(TForm)

Button1: TButton;

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Memo1: TMemo;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

Form1: TForm1;

implementation

{ $R*.DFM }

//Процедура обработки события создания Формы:

procedure TForm1.FormCreate(Sender: TObject);

begin

Edit1.Text:='1.22';

Edit2.Text:='0.3';

Memo1.Clear;

//Вывод строки в Memo1:

Memo1.Lines.Add('Лабораторная работа №1 - Линейный алгоритм');

end;

//Процедура обработки события нажатия кнопки Button1:

procedure TForm1.Button1Click(Sender: TObject);

var

X,t,a,b:extended;

begin

X:=StrToFloat(Edit1.Text);

t:=StrToFloat(Edit2.Text);

//Вычисляется выражение

a:=exp(X*ln(2))*cos(X*t+1)-SQRT(abs(X*t+1));

b:=X*(sin(SQR(t)*cos(2*t))/cos(SQR(t)*cos(2*t)))+2*t;

Memo1.Lines.Add('X='+Edit1.Text+' t='+Edit2.Text);

Memo1.Lines.Add('a='+FloatToStrF(a,ffFixed,8,3));

Memo1.Lines.Add('b='+FloatToStrF(b,ffFixed,8,3));

end;

initialization

{$I unlinalg.lrs}

end.

Полученный результат