1.Конструирование формы:
При выполнении задания на форме были размещены следующие компоненты:
- TLabel – используется для создания комментариев и вывода результата вычислений. Для этого использовалось свойство компонента Caption, которое имеет строковый тип. Для перевода результатов вычислений в строку была использована функция FormatFloat, позволяющая перевести число с плавающей запятой в требуемый формат в строковом виде.
- TButton – кнопка, при нажатии которой производятся вычисления. Код вычислений прописан в методе onclick, который срабатывает при нажатии кнопки во время исполнения программы. Комментарий на кнопке прописывается в свойстве кнопки Caption.
- TListBox – используется для вывода результатов программы.
2.Условие:
3.Форма:
4.Программа:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
ListBox1: TListBox;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
const
a = 3.4;
var
x, y, z: real;
begin
x := 4;
while x <= 8 do
begin
y := x * x * x - exp(x);
if y < 1 then
z := cos(y * y) * cos(y * y) * cos(y * y) * cos(y * y) -
ln(abs(y) / ln(10));
if y >= 1 then
z := sqrt(abs(a * y + sin(a) / cos(a)));
ListBox1.Items.Add('z=' + formatfloat('##.###', z));
x := x + 0.5;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
application.Terminate;
end;
end.
5.Результат: