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

Найти среди точек пару наиболее удаленных друг от друга

15.04.2010, 21:49. Просмотров 5471. Ответов 6
Метки нет (Все метки)


Даны n точек плоскости (x1,y2),...(xn,yn). Найти среди них пару наиболее удаленных друг от друга.
ну хоть кто нибудь подскажите как это делать!!!!! плизз
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.04.2010, 21:49
Ответы с готовыми решениями:

Определить пару наиболее удаленных друг от друга точек
Четыре точки заданны координатами А(4,8,2) ; В(-6,5,I.2) ; С(-3,7,-4.5) ; D(7,8,2). Определить...

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

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

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

6
4337 / 1469 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
15.04.2010, 21:54 2
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
uses crt;
var x,y:array[1..100]of real;
 
i,j,n,n1,n2:integer;
max, d : real;
 
begin
    clrscr;
    write('N -> ');
    readln(N);
    for i:=1 to N do
    begin
        write(i,'-я точка -> ');
        readln(x[i],y[i]);
    end;
    max := -1;
    n1 := 1;
    n2 := 2;
    for i := 1 to N do for j:=i+1 to N do
    begin
        d :=sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]));
        if d > max then
        begin
            max := d;
            n1 := i;
            n2 := j;
        end;
    end;
    writeln('Точки ',n1,' и ',n2);
    readln;
end.
0
Модератор
62884 / 46920 / 32338
Регистрация: 18.05.2008
Сообщений: 113,693
15.04.2010, 21:55 3
Делать нужно головой и руками, а не выть на форуме, вымаливая халяву.
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
uses crt;
const nmax=29;
var x,y:array[1..nmax] of real;
    n,i,j,imx,jmx:byte;
    mx:real;
begin
clrscr;
randomize;
repeat
write('Количество точек от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
for i:=1 to n do
 begin
  x[i]:=10*random-4;
  y[i]:=10*random-4;
 end;
writeln('Координаты:');
write('X');
for i:=1 to n do
write(x[i]:5:1);
writeln;
write('Y');
for i:=1 to n do
write(y[i]:5:1);
writeln;
writeln;
mx:=sqrt(sqr(x[1]-x[2])+sqr(y[1]-y[2]));
imx:=1;
jmx:=2;
for i:=1 to n-1 do
for j:=i+1 to n do
if sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]))>mx then
 begin
  mx:=sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]));
  imx:=i;
  jmx:=j;
 end;
writeln('Максимальное расстояние между точками ',imx,'-',jmx,' = ',mx:0:2);
readln
end.
0
771 / 576 / 324
Регистрация: 17.06.2009
Сообщений: 1,187
15.04.2010, 21:55 4
Прошу прощения пропустил, что
на плоскости
.
0
Платежеспособный зверь
8736 / 4154 / 1604
Регистрация: 28.10.2009
Сообщений: 11,227
15.04.2010, 22:01 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
max:=0;
for i:=1 to n do
for j:=1 to n do
r:=sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]));
if r>max then begin
max:=r;
x1:=x[i];
y1:=y[i];
x2:=x[j];
y2:=y[j];
end;
writeln('1 tochka=',x1,' ',y1);
writeln('2 tochka=',x2,' ',y2);
readln;
end.
Ввод точек, надеюсь, сам сможешь дописать

Добавлено через 1 минуту
Puporev, ты шустрее меня
1
Puporev
15.04.2010, 22:02
  #6

Не по теме:

кот Бегемот, А я все думал, кто следующий будет?

0
0 / 0 / 0
Регистрация: 08.04.2010
Сообщений: 11
15.04.2010, 22:03  [ТС] 7
спасибо большое
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.04.2010, 22:03

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

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

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

Определить пару наиболее удаленных друг от друга окружностей
помогите решить задачу. На плоскости задано n произвольно расположенных окружностей. Определить...

Определить номера наиболее удаленных друг от друга точек
В одномерном массиве с количеством элементов 2N содержатся координаты N точек плоскости. Они...


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

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

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