Программирование
+1Помогите с Delphi пожалуйста
На форме создать кнопку для расчета значения функции. Кнопка имеет надпись, иконку и реагирует на клавишу Enter. Операция расчета выполняется по запросу. Функция для расчета имеет вид:
Проверка: при a=1, b=2, c=3, ответ Q = 5,29)
Результат вывести в текстовое поле на форме и округлить до 2 знаков после запятой; (2
По дате
По рейтингу
1234567891011121314151617181920212223242526272829303132333435363738394041424344454647
unit MainForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Math;
type
TForm1 = class(TForm)
CalculateButton: TButton;
ResultLabel: TLabel;
ResultEdit: TEdit;
procedure CalculateButtonClick(Sender: TObject);
procedure FormKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.CalculateButtonClick(Sender: TObject);
var
a, b, c, Q: Double;
begin
a := 1;
b := 2;
c := 3;
Q := (6 * a + Power(b, 2)) / (Sqrt(Power(c, 2) - b) + Sin(Power(b, 2)));
ResultEdit.Text := FormatFloat('0.00', Q);
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then // Обработка клавиши Enter
CalculateButtonClick(Sender);
end;
end.