лабораторная работа / лабораторные работы по LAZARUS / СПО1 отчёт

САРАТОВСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

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

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

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

ЛАБОРАТОРНАЯ РАБОТА №1

по дисциплине «СПО»

ПРОГРАММИРОВАНИЕ ЛИНЕЙНЫХ АЛГОРИТМОВ

НА ЯЗЫКЕ LAZARUS

Вариант №8

Выполнил: ст.гр. УИТ-32

Павлов А. Э.

Принял:

Капралова О. А.

2011

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

Задание: создать Windows-приложение (форму и модуль проекта) для вычисления выражения

1) Листинг программы

unit Unit1;

{$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;

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

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);

begin

edit1.Text:='1.1';

edit2.Text:='0.004';

edit3.Text:='0.2';

memo1.clear;

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

end;

procedure TForm1.Button1Click(Sender: TObject);

var

a,b,x,y,z : extended;

begin

a:=strtofloat(edit1.text);

b:=strtofloat(edit2.text);

x:=strtofloat(edit3.text);

y:=exp(3*ln(sin(sqr(sqr(x)+a))))-sqrt(x/b);

z:=sqr(x)/a+cos(exp(3*ln((x+b))));

memo1.lines.add('a='+edit1.text+' b='+edit2.text+' x='+edit3.text);

memo1.lines.add('y='+floattostrf(y,fffixed,8,3));

memo1.lines.add('z='+floattostrf(z,fffixed,8,3));

end;

initialization

{$I unit1.lrs}

end.

2) Окно формы с полученными результатами