Дан круг с центром в точке А1 и радиусом R.

[DomiR]

В последнее время совсем никак!

[__STDC__]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    ecx: TEdit;
    ecr: TEdit;
    esy: TEdit;
    ess: TEdit;
    ecy: TEdit;
    esx: TEdit;
    lstate: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  cx,cy,sx,sy,cr,sl,len,hyp:real;
begin
  cx := StrToFloat(ecx.Text); //Центр окружности (X)
  cy := StrToFloat(ecy.Text); //Центр окружности (Y)  
  sx := StrToFloat(esx.Text); //Центр квадрата (X)
  sy := StrToFloat(esy.Text); //Центр квадрата (Y)
  cr  := StrToFloat(ecr.Text); // Радиус окружности
  sl  := StrToFloat(ess.Text); //Сторона квадрата

  hyp := sqrt(sqr(sl)/2);
  len := sqrt(sqr(sx-cx)+sqr(sy-cy));

  if (len < cr) then
    if (cr - len > hyp) then
      lstate.Caption := 'IN'
    else
      lstate.Caption := 'MEET'
  else
    if (abs(cr-len) < hyp) then
      lstate.Caption := 'MEET'
    else
      lstate.Caption := 'OUT';

  with image1.Canvas do begin
    brush.Color := clWhite;
    fillRect(ClipRect);
    ellipse(round(cx-cr),
            round(cy-cr),
            round(cx+cr),
            round(cy+cr)
    );
    rectangle(round(sx-sl/2),
              round(sy-sl/2),
              round(sx+sl/2),
              round(sy+sl/2)
    );

  end;
end;

end.

[DomiR]

Спс большое!

[Jora_Kornev]

Во как нонче экзамены сдают... Эх, молодежь....

[DomiR]

можно теперь немного пояснить текст.. что такое len и hyp?

[Stilet]

hyp это вроде гипотенуза.
А len на длину похоже к чему-то.

[__STDC__]

hyp - это гипотенуза прямоугольного треугольника, катетами которого являются половины длин сторон квадрата...
len - расстояние от центра окружности до центра квадрата вроде... я уже сам не помню)