Привет всем! Нужна помощь. Неработает прога!
На плоскости есть набор точек. Выявить все точки, которые являются центрами окружностей, проходящих по крайней мере через 3 точки из данного набора.
| Код |
program m1;
uses crt;
var
X: array[1..10] of longint; {KOOPDuHATbI X}
Y: array[1..10] of longint; {KOOPDuHATbI Y}
W: array[1..9,1..9] of real; {BCE PACCTO9IHu9I}
a,i{TO4KA},z{kol-vo},n,k,l: longint;
d: real;
Begin
clrscr;
for i:=1 to 10 do
begin
write('BBEDuTE KOOPDuHATbI TO4Ku ',i,' ');
write('x= ');read(x[i]);
write('y= ');read(y[i]);
end;{MbI 3AHECJIu B MACCuB DCE 10 TO4EK}
for k:=1 to 10 do
for n:=1 to 10 do
if n<>k then
begin
d:=sqrt(sqr(x[n]-x[k])+sqr(y[n]-y[k]));
w[k,n]:=d;
end;
{uTAK, HA4HEM!!!}
z:=1;
k:=1;
repeat
for n:=2 to 9 do
if w[k,1]=w[k,n] then z:=Z+1;
if z>=3 then writeln(k,' TO4KA');readln(l);
k:=k+1;
until k<9;
end.
|
|