Добавил:
Xer1t
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:2 сем_1 / 6 лаба / ПРОСТРАНСТОВООО / Unit1
.pas unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
btn1: TButton;
lbl1: TLabel;
lbledt1: TLabeledEdit;
lbledt2: TLabeledEdit;
procedure btn1Click(Sender: TObject);
procedure lbledt1KeyPress(Sender: TObject; var Key: Char);
procedure lbledt2KeyPress(Sender: TObject; var Key: Char);
procedure lbledt1Change(Sender: TObject);
procedure lbledt2Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure Prov(Pole:string; var SIM:Char);
begin
case SIM of
'0'..'9':;
#8:;
',':if Pos(',',pole)<>0 then SIM:=#0;
'-':if Pos('-',pole)<>0 then SIM:=#0;
else Sim:=#0;
end;
end;
procedure TForm1.btn1Click(Sender: TObject);
var cod:Integer; x, y,z:Real;
a:Boolean;
begin
x:=StrToFloat(lbledt1.text);
y:=StrToFloat(lbledt2.text);
a:=(y<=x+3)and(y<=-x+3)and(y>=0);
if a then
lbl1.Caption:='Точка принадлежит заданой области пространства'
else lbl1.Caption:='Мимо!!!';
end;
procedure TForm1.lbledt1KeyPress(Sender: TObject; var Key: Char);
begin
Prov(lbledt1.Text,Key);
end;
procedure TForm1.lbledt2KeyPress(Sender: TObject; var Key: Char);
begin
Prov(lbledt2.Text,Key);
end;
procedure TForm1.lbledt1Change(Sender: TObject);
begin
if (lbledt1.text='-')
or ((Pos('-',lbledt1.text)<>0)and(Pos('-',lbledt1.text)<>1))
or ((Pos('-',lbledt2.text)<>0)and(Pos('-',lbledt2.text)<>1))
or (lbledt1.Text='') or (lbledt2.Text='')
then
begin
btn1.Enabled:=False;
Exit;
end
else
btn1.Enabled:=true;
end;
procedure TForm1.lbledt2Change(Sender: TObject);
begin
if (lbledt2.text='-')
or ((Pos('-',lbledt2.text)<>0)and(Pos('-',lbledt2.text)<>1))
or ((Pos('-',lbledt1.text)<>0)and(Pos('-',lbledt1.text)<>1))
or (lbledt1.Text='') or (lbledt2.Text='')
then
begin
btn1.Enabled:=False;
Exit;
end
else
btn1.Enabled:=true;
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
btn1: TButton;
lbl1: TLabel;
lbledt1: TLabeledEdit;
lbledt2: TLabeledEdit;
procedure btn1Click(Sender: TObject);
procedure lbledt1KeyPress(Sender: TObject; var Key: Char);
procedure lbledt2KeyPress(Sender: TObject; var Key: Char);
procedure lbledt1Change(Sender: TObject);
procedure lbledt2Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure Prov(Pole:string; var SIM:Char);
begin
case SIM of
'0'..'9':;
#8:;
',':if Pos(',',pole)<>0 then SIM:=#0;
'-':if Pos('-',pole)<>0 then SIM:=#0;
else Sim:=#0;
end;
end;
procedure TForm1.btn1Click(Sender: TObject);
var cod:Integer; x, y,z:Real;
a:Boolean;
begin
x:=StrToFloat(lbledt1.text);
y:=StrToFloat(lbledt2.text);
a:=(y<=x+3)and(y<=-x+3)and(y>=0);
if a then
lbl1.Caption:='Точка принадлежит заданой области пространства'
else lbl1.Caption:='Мимо!!!';
end;
procedure TForm1.lbledt1KeyPress(Sender: TObject; var Key: Char);
begin
Prov(lbledt1.Text,Key);
end;
procedure TForm1.lbledt2KeyPress(Sender: TObject; var Key: Char);
begin
Prov(lbledt2.Text,Key);
end;
procedure TForm1.lbledt1Change(Sender: TObject);
begin
if (lbledt1.text='-')
or ((Pos('-',lbledt1.text)<>0)and(Pos('-',lbledt1.text)<>1))
or ((Pos('-',lbledt2.text)<>0)and(Pos('-',lbledt2.text)<>1))
or (lbledt1.Text='') or (lbledt2.Text='')
then
begin
btn1.Enabled:=False;
Exit;
end
else
btn1.Enabled:=true;
end;
procedure TForm1.lbledt2Change(Sender: TObject);
begin
if (lbledt2.text='-')
or ((Pos('-',lbledt2.text)<>0)and(Pos('-',lbledt2.text)<>1))
or ((Pos('-',lbledt1.text)<>0)and(Pos('-',lbledt1.text)<>1))
or (lbledt1.Text='') or (lbledt2.Text='')
then
begin
btn1.Enabled:=False;
Exit;
end
else
btn1.Enabled:=true;
end;
end.
Соседние файлы в папке ПРОСТРАНСТОВООО