1.Конструирование формы:
При выполнении задания на форме были размещены следующие компоненты:
- Label1 – используется для текста “Введите t, x”.
- Label2 – используется для текста “Вычисление у”.
- Label2 – используется для текста “Вычисление у”.
- Button1 – кнопка, при нажатии которой производятся вычисления. Код вычислений прописан в методе onclick, который срабатывает при нажатии кнопки во время исполнения программы.
- Button2 – кнопка, при нажатии которой форма закрывается.
- Edit1 – однострочный редактор для ввода t.
- Edit2 – однострочный редактор для ввода x.
- Edit3 – однострочный редактор для вывода у.
Для перевода строковых данных в число использовалась функция StrToFloat. Для перевода результатов вычислений в строку была использована функция FormatFloat, позволяющая перевести число с плавающей запятой в требуемый формат в строковом виде.
2.Условие:
Вычислить: y = при а = 2.3*sin(t); b = 17.6*x3; t = 3; x = 1.38.
3.Форма
4. Программа:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Label2: TLabel;
Edit3: TEdit;
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);
var
t, x, a, b, y: real;
begin
t := strtofloat(Edit1.Text); // Переводит строку в число
x := strtofloat(Edit2.Text); // Переводит строку в число
a := 2.3 * sin(t);
b := 17.6 * x * x * x;
y := (exp(-a * t) * (t + sqrt(abs(t + a)))) / (t - (sqrt(abs(4 * t - b))));
Edit3.Text := ('y=' + formatfloat('##.###', y));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;
end.
5. Результат: