Определить радиус и центр окружности на которой лежит наибольшее число точек.

[Zoratul]

Определить радиус и центр окружности на которой лежит наибольшее число точек заданного на плоскости множества точек. Как нарисовать этот бред уже неделю мучаюсь

[_Dmitry]

Окружность можно провести через любые три точки плоскости. Ее уравнение: (x-Xc)^2+(y-Yc)^2=R^2, т.е. три неизвестных коэффициента Xc,Yc,R определяем через координаты трех точек, через которые проводим окружность (решаем систему трех уравнений).
В вашем случае, нужно рассмотреть все возможные варианты, т.е. выбираем последовательно все тройки точек из заданного множества, определяем коэффициенты уравнения окружности, подставляем в это уравнение координаты оставшихся точек и считаем, для скольких оно выполняется.

[puporev]

Что-то смотрю никаких сдвигов. Задача у вас на записи, множества и массивы. Для начала надо определить типы для точек и окружностей, примерно так:
type tck=record
x,y:integer;//координаты, лучше все делать в целых числах,
end; //больше вероятность совпадений
okrug=record
x,y,r,kol:integer;//координаты центра, радиус, кол-во совпадений
end;
var a:array[1..100] of tck;//массив точек
b:array[1..10] of okrug;//массив окружностей
i,n,m:integer;
Далее вводим значения n и m, В цикле рандомом присваиваем значения полей записей:
write('kol tocek=');readln(n);
write('kol okrugn=');readln(m);
for i:=1 to n do
begin
a[i].x:=random(50);
a[i].y:=random(50);
end;
for i:=1 to m do
begin
b[i].x:=random(25)+25;
b[i].y:=random(25)+25;
b[i].r:=randon(5)+20;
end;
Затем в тройном цикле определяем, сколько точек совпадают с каждой окружностью. Затем находим окружность с максимальным количеством совпадений и выводим данные ее полей на экран. Работа с записями часто рассматривается на форуме.