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

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

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

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

30.04.2011, 17:30. Просмотров 947. Ответов 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.
 Комментарий модератора 
Используйте теги форматирования кода!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.04.2011, 17:30
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Определить радиус и центр окружности.... (C++):

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

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

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

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

Задать массив точек, и определить радиус и центр окружности, на которой лежит наибольшее число точек - C++
Необходимо задать массив точек и определить радиус и центр окружности на которой лежит наибольшее число точек +(еще надо вывести на экран...

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

1
GuardNW
29 / 29 / 1
Регистрация: 08.12.2009
Сообщений: 106
30.04.2011, 22:36 #2
Вот здесь http://http://algolist.manual.ru/maths/geom/equation/circle.phpесть пример как найти радиус и центр, по трем точкам.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.04.2011, 22:36
Привет! Вот еще темы с ответами:

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

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

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

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


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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