определить точка принадлежит окружности

[DiemonStar]

На фига?

ну так проще же вычислить 5 радиусов и взять из них максимальный, чем увеличивать окружности непойми как)

[Zer0]

А вообще по факту можно найти максимально удаленную точку и сразу строить окружность нужного радиуса

[Karlen1990]

Terrance! я написал твою программу в паскале но не сработал

[BDA]

Karlen1990, если вы ничего не меняли в программе Terrance!, то и не заработает, т.к. код для Дельфи.

[Karlen1990]

извените я не знал правил. для паскал мне надо

[Utkin]

Сообщение от Zer0

А вообще по факту можно найти максимально удаленную точку и сразу строить окружность нужного радиуса

Я это и имел ввиду

[Terrance!]

если всё ещё не слишком поздно , то вот, на паскале написал

program OHO;
uses
graph;
var
Driver:integer;
Px,Py:array[1..10]of integer;
i,mode:integer; mr,j,R:real;
begin
MR:=0;
Driver:=detect;
//незабудьте указать свой путь к BGI
randomize;
initGraph(Driver,driver,'D:\iso\pascal\tp7\BGI\');
for i:=1 to 5 do begin
PX[i]:=200+random(100);
PY[i]:=200+random(100);
j:=sqrt(sqr(PX[i]-200)+sqr(py[i]-200));
if j>MR then MR:=j;
end;

repeat
R:=r+1;
setcolor(0);

Bar(1,1,640,480);
setcolor(128);

circle(200,200,round(R));
for i:=1 to 5 do
circle(px[i],py[i],2);

until R>MR;
readln(R);
end.

[BDA]

type
  tpoint = record
    x, y: integer;
  end;

var
  a: tpoint;
  t: array [1 .. 5] of tpoint;
  i: integer;
  r: real;

function max(a, b: real): real;
begin
  if a > b then
    max := a
  else
    max := b;
end;

begin
  writeln('Input coordinates of center of circle');
  readln(a.x, a.y);
  r := 0;
  for i := 1 to 5 do
  begin
    writeln('Input coordinates of ', i, ' point');
    readln(t[i].x, t[i].y);
  end;
  for i := 1 to 5 do
    r := max(r, sqrt(sqr(a.x - t[i].x) + sqr(a.y - t[i].y)));
  writeln('Radius: ', r:0:3);
  readln;
end.