Логические выражения. Графика

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  xc,yc:integer;
  m:real;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
with form1.Canvas do
 begin
  xc:=180;
  yc:=form1.clientheight div 2;
  m:=xc/9;
  pen.Color:=clMedGray;
  brush.Color:=clMedGray;
  rectangle(xc-round(2*m),yc-round(2*m),xc+round(6*m),yc+round(6*m));
  brush.Color:=clWhite;
  ellipse(xc-round(2*m),yc-round(2*m),xc+round(2*m),yc+round(2*m));
  pen.Color:=clWhite;
  moveto(xc+round(4*m),yc);
  lineto(xc+round(6*m),yc);
  moveto(xc,yc+round(4*m));
  lineto(xc,yc+round(6*m));
  arc(xc-round(4*m),yc-round(4*m),xc+round(4*m),yc+round(4*m),
      xc,yc+round(4*m),xc+round(4*m),yc);
  arc(xc-round(6*m),yc-round(6*m),xc+round(6*m),yc+round(6*m),
      xc,yc+round(6*m),xc+round(6*m),yc);
  brush.Color:=clWhite;
  floodfill(xc+round(5*m),yc+10,clWhite,fsborder);
  pen.Color:=clBlue;
  moveto(xc-180,yc);
  lineto(xc+180,yc);
  moveto(xc,yc-180);
  lineto(xc,yc+180);
  brush.Style:=bsClear;
  textout(xc+170,yc-15,'X');
  textout(xc+10,yc-180,'Y');
  for i:=1 to 8 do
   begin
    moveto(xc-round(i*m),yc-3);
    lineto(xc-round(i*m),yc+3);
    moveto(xc+round(i*m),yc-3);
    lineto(xc+round(i*m),yc+3);
    moveto(xc-3,yc-round(i*m));
    lineto(xc+3,yc-round(i*m));
    moveto(xc-3,yc+round(i*m));
    lineto(xc+3,yc+round(i*m));
    if i mod 2=0 then
     begin
      brush.Style:=bsClear;
      textout(xc-round(i*m),yc+15,'-'+IntToStr(i));
      textout(xc+round(i*m),yc+15,IntToStr(i));
      textout(xc-20,yc+round(i*m),'-'+IntToStr(i));
      textout(xc-20,yc-round(i*m),IntToStr(i));
     end;
   end;
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var x,y:double;
    s:integer;
begin
if not TryStrToFloat(Edit1.Text,x) then
 begin
  s:=MessageDlg('Неверно введена кордината Х',mtInformation,[mbOk],0);
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
if not TryStrToFloat(Edit2.Text,x) then
 begin
  s:=MessageDlg('Неверно введена кордината Y',mtInformation,[mbOk],0);
  Edit2.Clear;
  Edit2.SetFocus;
  exit
 end;
x:=StrToFloat(Edit1.Text);
y:=StrToFloat(Edit2.Text);
if((x>=-2)and(x<=6)and(y>=0)and(y<=2)and(x*x+y*y>=4))//2-1 четверти
or((x>=-2)and(x<=0)and(y>=-6)and(y<0)and(x*x+y*y>=4))//3 четверть
or((x>0)and(x<=6)and(y<0)and(y>=-6)and((x*x+y*y>=4)and(x*x+y*y<=16))
or(x*x+y*y>=36))//4 четверть
then s:=MessageDlg('Точка с координатами ('+Edit1.Text+';'+Edit2.Text+') принадлежит закрашенной области',
mtInformation,[mbOk],0)
else s:=MessageDlg('Точка с координатами ('+Edit1.Text+';'+Edit2.Text+')'+'не принадлежит закрашенной области',
mtInformation,[mbOk],0)
end;
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
close
end;
 
end.