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

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

Задание Вариант № 8

a = 1,1 b = 0,004 x = 0,2

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;

Label4: 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'; // начальное значение a

Edit2.Text:='0.004'; // начальное значение b

Edit3.Text:='0.2'; // начальное значение x

Memo1.Clear; // очистка Memo1

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

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

procedure TForm1.Button1Click(Sender: TObject);

var

a,b,x,z,y: extended; // объявление локальных переменныхbegin

begin

a:=StrToFloat(Edit1.Text); // a присваивается содержимое Edit1

b:=StrToFloat(Edit2.Text); // b присваивается содержимое Edit2

x:=StrToFloat(Edit3.Text); // x присваивается содержимое Edit3

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

y:=Sqr(sin(Sqr((Sqr(x)+a))))-Sqrt(x/b);

z:=(Sqr(x))/a+cos((sqr(x+b))*(x+b));

Memo1.Lines.Add('a = '+Edit1.Text+' b = '+Edit2.Text+' x = '+Edit3.Text); // контрольный вывод a, b, x в Memo1

// Вывод результата в Memo1:

Memo1.Lines.Add(' Y = '+FloatToStrF(y,ffFixed,8,3)+' Z = '+FloatToStrF(z,ffFixed,8,3));

end;

initialization

{$I unit1.lrs}

end.