Реализация алгоритма разветвляющейся структуры — Delphi(Делфи)

1. Конструирование формы:

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

• TLabel – используется для создания комментариев и вывода результата вычислений. Для этого использовалось свойство компонента Caption, которое имеет строковый тип. Для перевода результатов вычислений в строку была использована функция FormatFloat, позволяющая перевести число с плавающей запятой в требуемый формат в строковом виде.
• TImage – предназначен для просмотра изображения. Для размещения изображения используется свойство компонента Picture.
• TButton – кнопка, при нажатии которой производятся вычисления. Код вычислений прописан в методе onclick, который срабатывает при нажатии кнопки во время исполнения программы. Комментарий на кнопке прописывается в свойстве кнопки Caption.
• TEdit – компонент предназначенный для ввода строковых данных. В свойстве Text данного компонента при создании программы были установлены необходимые значения переменных. Для перевода строковых данных в число использовалась функция StrToFloat.

2.Условие:

Вычислить: при a=13,7; b=8,91; x=0,07.

3.Форма:

 4.Программа:

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, math, jpeg, ExtCtrls;

type
  TForm1 = class(TForm)

    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Label5: TLabel;
    Button1: TButton;
    Label7: TLabel;
    Edit3: TEdit;
    Image1: TImage;

    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  a, b, x, y: real;
begin
  Label5.Caption := '';
  a := StrToFloat(Edit1.Text);
  b := StrToFloat(Edit2.Text);
  x := StrToFloat(Edit3.Text);
  if (sqrt(a - b) < x) then
    y := a * power(x, 3) + b * log10(2 * x);
  if (sqrt(a - b) = x) then
    y := sqrt(abs(a + sin(2 * x)));
  if (sqrt(a - b) > x) then
    y := arctan(5 * x) - b * power(cos(x), 3);
  Label5.Caption := 'y=' + FormatFloat('0.000', y);
end;

end.

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