2 / 2 / 0
Регистрация: 09.10.2017
Сообщений: 132
1

Выбрать три различные точки первого множества так, чтобы круг, ограниченный окружностью, проходящей через три точки

17.02.2018, 17:25. Показов 2628. Ответов 6

Author24 — интернет-сервис помощи студентам
Даны два множества точек на плоскости. Выбрать три различные точки первого множества так, чтобы круг, ограниченный окружностью, проходящей через три точки, содержал все точки второго множества имел минимальную площадь.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.02.2018, 17:25
Ответы с готовыми решениями:

Массив: Выбрать три точки первого множества так, чтобы выполнялось заданное условие...
Даны два множества точек на плоскости. Выбрать три различные точки первого множества так, чтобы...

Выбрать три различные точки из заданного множества
Выбрать три различные точки из заданного множества точек на плоскости так, чтобы была минимальной...

Выбрать три различные точки из заданного множества
Доброго времени суток, буду вам очень признателен, если вы поможете мне решить вот эту задачу: ...

Выбрать три различные точки из заданного множества точек на плоскости по условию
вот у меня задача нарисовалась нужно выбрать три различные точки из заданного множества точек на...

6
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
18.02.2018, 11:15 2
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

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
99
100
101
102
const e=0.001;
type point=record
           x,y:real;
           end;
{вычисление координат центра и радиуса окружности
алгоритм отсюда http://algolist.manual.ru/maths/geom/equation/circle.php
вертикальные линии вычислил напрямую без обмена точек.}
procedure Okr(t1,t2,t3:point;var o:point;var r:real);
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;
o.y:=a/b;
if abs(m2) > e then x:=(m0-y*m1)/m2
else
  if abs(k2) > e then x:=(k0-y*k1)/k2
  else exit;
o.x:=x;
r:=sqrt(sqr(t1.x-x)+sqr(t1.y-y));
end;
{Принадлежность точки кругу}
function Prin(o:point;r:real;t:point):boolean;
begin
Prin:=sqr(o.x-t.x)+sqr(o.y-t.y)<=r*r; //квадрат расстояния между точкой и центром
                                      //не больше квадрата радиуса
end;
var a,b:array[1..20] of point;
    n,m,i,j,k,q,v,imn,jmn,kmn:integer;
    o:point;
    r,mn:real;
begin
repeat
write('Введите количество точек 1 множества от 3 до 20 n=');
readln(n);
until n in [3..20];
repeat
write('Введите количество точек 2 множества от 3 до 20 m=');
readln(m);
until m in [3..20];
randomize;
writeln('Первое множество');
for i:=1 to n  do
 begin
  a[i].x:=-9+18*random; //точки в квадрате (-9..9,-9..9))
  a[i].y:=-9+18*random;
  write(i:2,'(',a[i].x:4:1,';',a[i].y:4:1,') ');
  if i mod 5=0 then writeln;
 end;
writeln;
writeln('Второе множество');
for i:=1 to m  do
 begin
  b[i].x:=-7+18*random; //сдвинем на 2 вправо
  b[i].y:=-7+18*random; //и на 2 вверх
  write(i:2,'(',b[i].x:4:1,';',b[i].y:4:1,') ');
  if i mod 5=0 then writeln;
 end;
writeln;
v:=0;//пока нет нужной окружности
imn:=0;
jmn:=0;
kmn:=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(a[i],a[j],a[k],o,r);
  q:=1;
  while(q<=m)and prin(o,r,b[q])do inc(q);
  if q>m then
   begin
    if v=0 then
     begin
      mn:=r;
      imn:=i;
      jmn:=j;
      kmn:=k;
      v:=1;
     end
    else if r<mn then
     begin
      mn:=r;
      imn:=i;
      jmn:=j;
      kmn:=k;
     end;
   end;
 end;
if v=0 then write('Нет точек, образующих заданную окружность')
else writeln('Заданная окружность проходит через точки:');
writeln(imn:2,'(',a[imn].x:4:1,';',a[imn].y:4:1,')');
writeln(jmn:2,'(',a[jmn].x:4:1,';',a[jmn].y:4:1,') ');
writeln(kmn:2,'(',a[kmn].x:4:1,';',a[kmn].y:4:1,') ');
end.
1
2 / 2 / 0
Регистрация: 09.10.2017
Сообщений: 132
18.02.2018, 11:29  [ТС] 3
Спасибо *0*

Добавлено через 12 минут
А можно ли убрать рандом?
0
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
18.02.2018, 12:15 4
Да ради Бога. Вводите с клавиатуры. Или и это не умеете? Тогда бросьте эту учебу нафиг.
0
2 / 2 / 0
Регистрация: 09.10.2017
Сообщений: 132
18.02.2018, 12:18  [ТС] 5
умею, умею
0
2 / 2 / 0
Регистрация: 09.10.2017
Сообщений: 132
11.03.2018, 15:11  [ТС] 6
Могли бы вы объяснить, какие переменные за что отвечают? Ну, то есть что они там вообще означают.
Цитата Сообщение от Puporev Посмотреть сообщение
a,b,x,y:real;
* * k0,k1,k2,m0,m1,m2:real;
0
Почетный модератор
64299 / 47594 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
11.03.2018, 15:27 7
Я же дал ссылку на алгоритм, там и разберетесь с переменными, я так не помню. Вам же все равно нужно знать алгоритм, вдруг спросят.
0
11.03.2018, 15:27
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.03.2018, 15:27
Помогаю со студенческими работами здесь

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

Из заданного множества точек на плоскости выбрать две различные точки так, чтобы количества точек различались наименьшим образом
Из заданного множества точек на плоскости выбрать две различные точки так, чтобы количества точек,...

Начертить окружность минимального радиуса так, чтобы три заданные точки лежали на окружности
помогите плиз решить задачу на паскале.задаются три точки.начертить окружность минимального радиуса...

Из заданного множества точек на плоскости выбрать две различные точки по условию
из заданного множества точек на плоскости выбрать две различные точки так, чтобы количества точек,...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru