Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.89/9: Рейтинг темы: голосов - 9, средняя оценка - 4.89
6 / 5 / 0
Регистрация: 23.11.2009
Сообщений: 83
1

Определить пару наиболее удаленных друг от друга точек

17.12.2009, 07:50. Просмотров 1869. Ответов 1
Метки нет (Все метки)


Четыре точки заданны координатами А(4,8,2) ; В(-6,5,I.2) ; С(-3,7,-4.5) ; D(7,8,2). Определить пару наиболее удаленных друг от друга точек .Вычаслить расстояние и оформить ввиде подпрограммы
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.12.2009, 07:50
Ответы с готовыми решениями:

Найти среди точек пару наиболее удаленных друг от друга
Даны n точек плоскости (x1,y2),...(xn,yn). Найти среди них пару наиболее удаленных друг от друга. ...

Найти номера и координаты точек, наиболее удаленных друг от друга
Задано N точек своими координатами. Найти номера и координаты точек, наиболее удаленных друг от...

Выяснить, какие из 4х точек находятся на максимальном расстоянии друг от друга.
не могу решить Четыре точки заданы своими координатами Х(х1, х2), У(у1, у2), Z(z1, z2), Р(р1,...

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

1
Модератор
62832 / 46891 / 32315
Регистрация: 18.05.2008
Сообщений: 113,621
17.12.2009, 08:55 2
Лучший ответ Сообщение было отмечено 987654 как решение

Решение

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
uses crt;
type point=record
           x,y,z:real;
           im:char;
           end;
function Rasst(a,b:point):real;
begin
Rasst:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y)+sqr(a.z-b.z));
end;
 
var a,b,c,d:point;
    mx:real;
    s1,s2:char;
begin
clrscr;
a.x:=4;a.y:=8;a.z:=2;a.im:='A';
b.x:=-6;b.y:=5;b.z:=1.2;b.im:='B';
c.x:=-3;c.y:=7;c.z:=-4.5;c.im:='C';
d.x:=7;d.y:=8;d.z:=2;d.im:='D';
writeln('Расстояния:');
writeln('A - B =',Rasst(a,b):0:2);
writeln('A - C =',Rasst(a,c):0:2);
writeln('A - D =',Rasst(a,d):0:2);
writeln('B - C =',Rasst(b,c):0:2);
writeln('B - D =',Rasst(b,d):0:2);
writeln('C - D =',Rasst(c,d):0:2);
writeln;
mx:=Rasst(a,b);s1:='A';s2:='B';
if Rasst(a,c)>mx then
 begin
  mx:=Rasst(a,c);s1:='A';s2:='C';
 end;
if Rasst(a,d)>mx then
 begin
  mx:=Rasst(a,d);s1:='A';s2:='D';
 end;
if Rasst(b,c)>mx then
 begin
  mx:=Rasst(b,c);s1:='B';s2:='C';
 end;
if Rasst(b,d)>mx then
 begin
  mx:=Rasst(b,d);s1:='B';s2:='D';
 end;
if Rasst(c,d)>mx then
 begin
  mx:=Rasst(c,d);s1:='C';s2:='D';
 end;
writeln('Максимальное расстояние ',s1,' - ',s2,' =',mx:0:2);
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.12.2009, 08:55

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

Определить суммарный обьем в литрах 12 вложенных друг в друга шаров
решите пожалуйста))))Определить суммарный обьем в литрах 12 вложенных друг в друга шаров со...

Найти номера и координаты точек, наиболее удаленных друг от друга
Здравствуйте, кто может помогите с задачами: 1.Задано N точек своими координатами. Найти номера и...

Найти номера и координаты точек, наиболее удаленных друг от друга
Задано N точек своими координатами. Найти номера и координаты точек, наиболее удаленных друг от...

Рекурсия: найти пару треугольников, максимально удаленных друг от друга
Пусть дано n треугольников, заданных координатами своих вершин. Найдите пару треугольников,...


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

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

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