VPF::Проверьте ошибки - Форум программистов

Kuperus

Дата 15.5.2007, 12:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 7.5.2007

Репутация: нет
Всего: нет

Привет всем! Нужна помощь. Неработает прога!
На плоскости есть набор точек. Выявить все точки, которые являются центрами окружностей, проходящих по крайней мере через 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.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »