40 / 40 / 0
Регистрация: 07.02.2012
Сообщений: 63
1

Составить программу определения максимального расстояния между двумя точками из некоторой совокупности точек трехмерного пространства

14.06.2012, 06:10. Показов 1933. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Составить программу определения максимального расстояния между двумя точками из некоторой совокупности точек трехмерного пространства. Вычисление расстояния оформить в виде процедуры.

Добавлено через 10 часов 10 минут
помогите
1
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.06.2012, 06:10
Ответы с готовыми решениями:

Даны координаты n точек. Составьте программу для вычисления расстояния между данными точками
Даны координаты n точек. Составьте программу для вычисления расстояния между данными точками....

Нахождение расстояния между двумя точками
Коллеги помогите пожалуйста решить данную задачу по паскалю. Или просто объясните алгоритм действия...

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

Функция вычисления расстояния между двумя точками на плоскости
Составить функцию вычисления расстояния между двумя точками на плоскости. С ее помощью вычислить...

1
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
14.06.2012, 10:14 2
Лучший ответ Сообщение было отмечено roland123 как решение

Решение

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
const
  nmax=100;
  m=3;
type
  tArr=array[1..nmax,1..m] of integer;
  
procedure init(n1: integer; var ar: tArr);
var i,j: integer;
begin
  for i:=1 to n1 do
  begin
    write('Координаты ',i,'-й точки: (');
    for j:=1 to m do
    begin
      ar[i,j]:=random(19)-9;
      write(ar[i,j]:4);
    end;
    writeln(')');
  end;
  writeln;
end;
 
procedure space(n: integer; var ar: tArr);
var i,j,i_k,j_k: integer;
  s,max: real;
begin
  for i:=1 to n-1 do
  begin
    for j:=i+1 to n do
    begin
      s:=sqrt(sqr(ar[i,1]-ar[j,1])+sqr(ar[i,2]-ar[j,2])+sqr(ar[i,3]-ar[j,3]));
        if s>max then 
          begin
            max:=s;
            i_k:=i;
            j_k:=j;
          end;
    end;
  end;
  writeln('Самые удаленные точки: ',i_k,' и ',j_k);
  writeln('Максимальное расстояние между точками: ',max:6:2);
end;
 
var
  n: integer;
  a: tArr;
begin
  write('Введите количество точек пространства: ');
  readln(n);
  init(n,a);
  space(n,a);
  readln;
end.
Добавлено через 1 минуту
з.ы. удобнее было бы через функции, но если сказано "люминий", значит "люминий" =)
1
14.06.2012, 10:14
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.06.2012, 10:14
Помогаю со студенческими работами здесь

Программа вычисления расстояния между двумя точками с заданными координатами
Напишите программу вычисления расстояния между двумя точками с заданными координатами X1,Y1, X2,Y2,...

Составить программу для вычисления расстояния между двумя точками
Составить программу для вычисления расстояния между двумя точками А (x1,y1) и В (x2,y2).

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

Составить программу для вычисления расстояния между точками пересечения окружностей
Две окружности на плоскости заданы координатами своих центров и радиусами. Составить программу для...


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

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

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