Форум программистов, компьютерный форум CyberForum.ru

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Паника
0 / 0 / 0
Регистрация: 30.04.2011
Сообщений: 18
#1

Определить радиус и центр окружности.... - C++

30.04.2011, 17:30. Просмотров 934. Ответов 1
Метки нет (Все метки)

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
uses crt;
const nmax=28;
      e=0.01;
type
    Point=record {точка}
              x,y:real;{координаты}
            end;
    Okruz=record {окружность}
              o:Point;{координаты центра}
              r:real;{радиус}
            end;
    MassP=array[1..nmax] of Point; {множество-массив точек}
procedure Tochki(var t:MassP;var n:integer);{создание множества точек}
var i:integer;
begin
  repeat
  write('Количество точек 3 do ',nmax,' n=');
  readln(n);
  until n in [3..nmax];
  for i:=1 to n do
   begin
    t[i].x:=10*random;
    t[i].y:=10*random;
   end;
  write('X:');
  for i:=1 to n do
   write(t[i].x:5:2);
  writeln;
  write('Y:');
  for i:=1 to n do
   write(t[i].y:5:2);
  writeln;
end;
{вычисление параметров окружности, проходящей через три точки}
procedure Okr(t1,t2,t3:Point;var ok:Okruz);
var a,b,x,y:real;
    k0,k1,k2,m0,m1,m2:real;
begin
  k0:=sqr(t1.x)-sqr(t2.x)+sqr(t1.y)-sqr(t2.y);
  k1:=2*(t1.y-t2.y);
  k2:=2*(t1.x-t2.x);
  m0:=sqr(t1.x)-sqr(t3.x)+sqr(t1.y)-sqr(t3.y);
  m1:=2*(t1.y-t3.y);
  m2:=2*(t1.x-t3.x);
  a:=k2*m0-k0*m2;
  b:=k2*m1-k1*m2;
  if b=0 then exit;
  y:=a/b;
  ok.o.y:=y;
  if abs(m2) > e then x:=(m0-y*m1)/m2
    else
     if abs(k2) > e then x:=(k0-y*k1)/k2
       else exit;
        ok.o.x:=x;
  ok.r:=sqrt(sqr(t1.x-x)+sqr(t1.y-y));
end;
{определение принадлежности точки окружности}
function Prin(a:Point;ok:Okruz):boolean;
begin
if (sqr(a.x-ok.o.x)+sqr(a.y-ok.o.y))-sqr(ok.r)<-e then Prin:=true
  else Prin:=false
end;
var t:MassP;
    ok:Okruz;
    n,i,j,k,l,kol,mx:integer;
    mxr,mxx,mxy:real;
begin
  clrscr;
  randomize;
  Tochki(t,n);
  mx:=0;
  mxr:=0;
  mxx:=0;
  mxy:=0;
  for i:=1 to n-2 do
   for j:=i+1 to n-1 do
    for k:=j+1 to n do
     begin
      Okr(t[i],t[j],t[k],ok);
      kol:=0;
      for l:=1 to n do
       if Prin(t[l],ok)then kol:=kol+1;
       if kol>mx then
         begin
          mx:=kol;
          mxr:=ok.r;
          mxx:=ok.o.x;
          mxy:=ok.o.y;
         end;
     end;
  if mx=0 then write('Окружности, содержащей точки внутри нет!')
    else
      begin
       writeln('Окружность: координаты центра X=',mxx:0:2,' Y=',mxy:0:2,' R=',mxr:0:2);
       writeln('Внутри точек=',mx);
      end;
  readln;
end.
 Комментарий модератора 
Используйте теги форматирования кода!
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.04.2011, 17:30     Определить радиус и центр окружности....
Посмотрите здесь:

Определить радиус и центр окружности - C++
определить радиус и центр окружности, проходящей по крайней мере через­ три различные точки заданного множества точек ...

Определить радиус и центр наибольшей окружности в области заданных точек, внутри которой нет точек - C++
Определить радиус и центр наибольшей окружности в области заданных точек, внутри которой нет точек Помогите пожалуйста,точки нужно задать...

Класс "Окружность" с данными центр и радиус окружности. Вычислить длину и площадь окружности. - C++
Объявить класс и определить для него конструктор по умолчанию, конструктор инициализации. Определить функции-члены класса для ввода и...

Найдите центр и радиус окружности, проходящей через три заданные точки на плоскости. - C++
Народ!! Помогите, пожалуйста, решить задачу Найдите центр и радиус окружности, проходящей через три заданные точки на плоскости.

Найти минимальный радиус шара, который будет охватывать все заданные точки(центр окружности лежит на одной из заданных точек) - C++
есть программа, проблема в передаче массива в функцию a #include &quot;stdio.h&quot; #include &quot;conio.h&quot; #include &quot;math.h&quot; #include...

Класс "Окружность" с данными центр и радиус окружности. - C++
Помогите, пожалуйста, решить задачу: Класс &quot;Окружность&quot; с данными центр и радиус окружности. Задание. 1. Объявить класс в...

Найти центр и радиус вписанной - C++
Дан треугольник с координатами вершин А(х1,у1), В(х2,у2), С(х3,у3). Найти центр и радиус вписанной в него окружность

Радиус вписанной окружности - C++
Пользователь вводит 3 стороны треугольника. Найти радиус вписанной окружности. Можно простенькую функцию для вычисления? С граф....

Найти наименьший радиус круга и его центр в который бы попали данные точки - C++
Найти наименьший радиус круга и его центр в который бы попали данные точки. На первой строке подается кол-во точек n, затем на n...

Найти радиус описанной окружности - C++
Если три заданных положительных числа являются сторонами правильного треугольника, то найти радиус описанной около него окружности.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
GuardNW
29 / 29 / 1
Регистрация: 08.12.2009
Сообщений: 106
30.04.2011, 22:36     Определить радиус и центр окружности.... #2
Вот здесь http://http://algolist.manual.ru/maths/geom/equation/circle.phpесть пример как найти радиус и центр, по трем точкам.
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru