Самостоятельная работа Вариант 8 Программирование циклических процессов Конструирование формы

Самостоятельная работа Вариант 8 Программирование циклических процессов


Самостоятельная работа

Вариант 8

Программирование циклических процессов
1. Конструирование формы:

При выполнении задания на форме были размещены следующие компоненты:

TLabel – используется для создания комментариев и вывода результата вычислений. Для этого использовалось свойство компонента Caption, которое имеет строковый тип. Для перевода результатов вычислений в строку была использована функция FormatFloat, позволяющая перевести число с плавающей запятой в требуемый формат в строковом виде. В программе используется 6 таких компонентов.

TImage – предназначен для просмотра изображения. Для размещения изображения используется свойство компонента Picture. В программе используется всего лишь один такой компонент.

TButton – кнопка, при нажатии которой производятся вычисления. Код вычислений прописан в методе OnClick, который срабатывает при нажатии кнопки во время исполнения программы. Комментарий на кнопке прописывается в свойстве кнопки Caption. В программе используется 3 таких кнопок.

TEdit – компонент предназначенный для ввода строковых данных. В свойстве Text данного компонента при создании программы были установлены необходимые значения переменных. Для перевода строковых данных в число использовалась функция StrToFloat. В программе используется 4 таких Edit.

ListBox- компонент, предназначенный для размещения результатов задачи. Находится в разделе Standart. В программе используется 1 ListBox.

2.Условие:




3.Форма:


4. Листинг Программы:

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls;
type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Image1: TImage;

Label3: TLabel;

Edit1: TEdit;

Label4: TLabel;

Edit2: TEdit;

Label5: TLabel;

Label6: TLabel;

Edit3: TEdit;

Edit4: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

ListBox1: TListBox;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;
var

Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);

var Z,f,x,a,h,x1,x2:real;

begin

a:=StrToFloat(Edit1.Text);

x1:=StrToFloat(Edit2.Text);

x2:=StrToFloat(Edit3.Text);

h:=StrToFloat(Edit4.Text);

x:=x1;

while x<=x2 do

begin

if x>0.3 then f:=sqrt(x+a);

if x<0.3 then f:=ln(abs(x+a)) else

f:=5*x;

Z:=4*f*f/(2+f);

Listbox1.Items.Add('x='+formatfloat('0.00',x));

Listbox1.Items.Add('Z='+formatfloat('0.00',Z));

x:=x+h;

end;

end;
procedure TForm1.Button2Click(Sender: TObject);

begin

application.Terminate;

end;
procedure TForm1.Button3Click(Sender: TObject);

begin

ListBox1.Clear;

end;

end.

5.Результат:

5. Вывод:
На данной самостоятельной работе были изучены все процедуры, связанные с такими формами, как TLabel, TButton , TEdit. Также было изучено, каким образом вставлять картинки в формы, обрабатывать их, а также в конечном итоге получать результат. Процедура выполнения каждой формы, может быть добавлена двойным нажатием на нее, или же самостоятельным написанием. Был изучен новый компонент Radiogroup, который необходим для разветвляющихся типов задач. В данной лабораторной работе мы сами выбирали условие в radiogroup, что позволило нам вывести необходимый результат.
http://fayllar.org