Версия для печати темы

Автор: santa-klaOs 17.12.2006 18:25

Помогите, пожалуйста, надо: Определить радиус и центр (т.е. в какой из точек он будет находиться) окружности, на которой лежит наибольшее количество точек заданного на плоскости множества точек.

program okruj_2;
uses crt;
const
z=10;
var
t : array[1..100,(x,y)] of real;
j, i, k, m, n, max :  integer;
r, a, b, cx, cy : real;
w: string;

BEGIN clrscr;
 writeln('...');
 writeln ('esli koordinaty sami xotite zabitb, to zhmite "S", esli net, to "R"');
 readln(w);   max:=(-1);
 if w='r' then begin
  writeln ('Skoka to4ek?');
  readln (n);
  for i:=1 to n do begin
  t[i,x]:=(random(100)-50);
  t[i,y]:=(random(100)-50);
  if t[i,x]>100 then t[i,x]:=random(100);
{eti dve stro4ki, po suti, ne nuzhny, no bez nix on vydaet 4isla > 65 000,
 stranno}
  if t[i,y]>100 then t[i,y]:=random(100);
  writeln('To4ka ',i,': (',t[i,x]2,'; ',t[i,y]2,')')
  end
 end;
 if w='s' then begin  writeln ('Skoka to4ek?');
  readln(n);
  for i:=1 to n do begin
  write('X',i,'=');  readLN(t[i,x]);
  write('Y',i,'=');  readLN(t[i,y]);
  end
 end;
 for i:=1 to n do
  for j:=1 to n do
  if j<>i then begin
  r:= sqrt(sqr(t[j,x]-t[i,x])+sqr(t[j,y]-t[i,y]));
  m:=0
  end;
   for k:=1 to n do
    if k<>j then
    if k<>i then
    if r = sqrt(sqr(t[k,x]-t[i,x])+sqr(t[k,y]-t[i,y])) then begin
    m:=m+1;
    if m>=max then
     if r>0 then begin
     max:=m; cx:=t[i,x]; cy:=t[i,y]
     end
    end;
 writeln('  MAX=',max, '  R=',r:4:2, '   C:(',cx:4:2,'; ',cy:4:2,')');
 readln;
END.

Выдает ваще неверный результат, т.е. центр - последняя точка множества, а МАХ=1.

Автор: Malice 17.12.2006 18:35

Как минимум: Цикл по k выполняется вне циклов по i и j, нужно после for j:=1 to n do поставить begin. потом условие if r = sqrt вряд ли когда выполнится, такое с вещественными числами не пройдет, надо делать так: if abs(r-sqrt..)<e, где e - необходимая точность.

Автор: santa-klaOs 17.12.2006 19:08

О, вроде заработала, родная...