Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 1
Регистрация: 22.03.2010
Сообщений: 4
1

Задано множество точек m в трехмерном пространстве.

31.03.2010, 13:37. Показов 1429. Ответов 1
Метки нет (Все метки)

Задано множество точек m в трехмерном пространстве. Найти такую из них, что шар заданного радиуса с центром в этой точке содержит максимальное число точек из M.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.03.2010, 13:37
Ответы с готовыми решениями:

Задано некоторое множество М и множество Т того же типа. Подсчитать, сколько элементов из множеств Т и М совпадает
Реализация нужно с помощью множеств. Лучше написать весь текст программы, а не маленький кусочек...

Задано некоторое множество М и множество Т того же типа. Подсчитать, сколько элементов из множеств Т и М совпадает.
Задано некоторое множество М и множество Т того же типа. Подсчитать, сколько элементов из множеств...

множества:задано некоторое множество...
Решите пожалуйста задачу: Задано некоторое множество M и множество Т того же типа.Подсчитать...

Дано множество A из N точек на плоскости. Найти точку (вывести её номер и значение) среди всех точек этого множества
Дано множество A из N точек на плоскости. Найти точку (вывести её номер и значение) среди всех...

1
0 / 0 / 1
Регистрация: 22.03.2010
Сообщений: 4
17.04.2010, 13:58  [ТС] 2
Лучший ответ Сообщение было отмечено YUrock007 как решение

Решение

У меня есть пример задачи с двумерном пространстве.
Вот были ее условия:

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

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
Program Ex24;
const
   N=5;
type
   TPoint=record
       X,Y:real
   end;
   TPointsSet=array [1..5] of TPoint;
const
  PointsSet:TPointsSet=((X:0;Y:0),(X:0;Y:2),
       (X:1;Y:1), (X:4;Y:2), (X:2;Y:4));
function Dist(X1,Y1,X2,Y2:real):real;
begin
   Dist:=sqrt(sqr(X1-X2)+sqr(Y1-Y2));
end;
procedure*MinDist(var*P:TPointsSet;
       var*IMin, JMin:integer;var*SMin:real);
var
   I,J:integer;
   D:real;
begin
   SMin:=Dist(P[1].X,P[1].Y,P[2].X,P[2].Y);
   IMin:=1;
   JMin:=2;
   for I:=1 to N-1 do
      for J:=I+1 to N do begin
         D:=Dist(P[I].X,P[I].Y,P[J].X,P[J].Y);
         if D<SMin then begin
            SMin:=D;
            IMin:=I;
            JMin:=J;
         end
      end
end;
var
   IMin,JMin:integer;
   SMin:real;
begin
   MinDist(PointsSet,IMin, JMin,SMin);
   writeln(IMin:3,'  ',JMin:3, '  ',SMin:7:2);
end.
Может кто-нибудь знает как осуществить поставленную в первом сообщении задачу? просто я
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.04.2010, 13:58

Множество точек
Добрый день. Нужно создать множество точек но не хватает опыта реализовать это. Нужно например...

множество точек
program Covers; type (*Тип, задающий точку.*) TDot = record X : Extended; Y :...

Написать программу для нахождения сумм расстояний от заданных точек до фиксированной прямой (в пространстве)
Программа почему-то не считает сумму..., проверьте пожалуйста... Задание. Написать программу для...

Множество точек на плоскости.
Задана множина точок на площині. Знайти опуклу оболонку цієї множини, тобто опуклий многокутник з...


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

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

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