может быть так:
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Edit1: TEdit; //размешение на форме edit'ов
Edit2: TEdit;
Edit3: TEdit;
procedure Button1Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
a,b,x,y,z: real; //вместо констант - переменные, на всякий пожарный вещ. типа
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
x:=StrToInt(Edit1.Text); //считываем значения edit'ов
y:=StrToInt(Edit2.Text);
z:=StrToInt(Edit3.Text);
a:= (2*cos(x-3.14/6)) / (0.5 +sin(sqr(y)));
b:= 1 + (sqr(z)) / 3+ sqr(z) / 5;
label1.caption := floattostr(a);
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not ( Key in ['0'..'9',Char (vk_back) ] ) then Key:=#0; // проверка, что во время ввода в edit'ы нажимаются только цифры
end;
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not ( Key in ['0'..'9',Char (vk_back) ] ) then Key:=#0;
end;
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if not ( Key in ['0'..'9',Char (vk_back) ] ) then Key:=#0;
end;
end.
|
|
