Uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs
StdCtrls;
Type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
Memo1: TMemo;
Button1: ТВutton;
procedureFormCreate(Sender: TObject);
procedureButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Var
Form1: TForm1;
Implementation
{$R *.DFM}
// Процедура обробки події створення Форми:
procedureTForm1.FormCreate(Sender: TObject);
Begin
Edit1.Text:='0.4'; // початкове значення X
Edit2.Text:='8.75e-2'; // початкове значення Y
Edit3.Text:='-19.63'; // початкове значення Z
Memo1.Clear; // очищення Memo1
//Виведення рядка в Memo1:
Memo1.Lines.Add('Лабораторна робота №1 - Лінійний алгоритм');
end;
// Процедура обробки події натиснення кнопки Button1:
procedureTForm1.Button1Click(Sender: TObject);
Var
x,y,z,a,b,c,u : extended; // оголошення локальних змінних
Begin
x:=StrToFloat(Edit1.Text); // X привласнюється вміст Edit1
y:=StrToFloat(Edit2.Text); // Біля привласнюється вміст Edit2
z:=StrToFloat(Edit3.Text); // Z привласнюється вміст Edit3
// Обчислюється вираз
а:=sqrt(x)-y*y*y;
b:=sin(a)/cos(a);
з:=Exp(5*Ln(b));
u:=c+exp(у/z)*sin(z*z);
Memo1.Lines.Add('X= '+Edit1.Text+' Y = '+Edit2.Text+ ' Z = '+Edit3.Text); // контрольний вивід X, Y, Z в Memo1
//Виеедення результату в Memo1:
Memo1.Lines.Add(' U = '+FloatToStrF(u,ffFixed,8,3));
end;
End.
Дані, з якими працюють компоненти Edit і Memo, мають тип String. Тому в процедурі TForm1.Button1Click при привласненні вмісту полів Edit1,Edit2,Edit3 змінним X,Y,Z за допомогою функції StrToFloat здійснюється перетворення даних типа String в дійсні значення з плаваючою точкою типа Extended. Якщо необхідно працювати з даними цілого типу, використовується функція StrToInt.
При виведення даних в Memo1 використовується метод Addвластивості Lines, причому для перетворення даних з дійсного значення в рядкове і управління формою представлення результату, що виводиться, використовується функція FloatToStrF.