Форум программистов, компьютерный форум, киберфорум
Наши страницы
С++ для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Мингиян
0 / 0 / 0
Регистрация: 29.11.2014
Сообщений: 3
1

Найти номера пары точек, расстояние между которыми максимально (Паскаль -> С++)

29.11.2014, 05:33. Просмотров 1010. Ответов 2
Метки нет (Все метки)

переведите пожалуйста или решите на си++
вот задача:
Даны координаты n точек на плоскости: (Х1, У1),.......,(Хn, Уn) (n <30) найти номера пары точек, расстояние между которыми наиболее максимальное (считать, что такая пара единственная).

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
uses crt;
const n=29;
var x,y:array[1..n] of real;
    i,j,imx,jmx:byte;
    mx:real;
begin
clrscr;
randomize;
for i:=1 to n do
 begin
  x[i]:=10*random;
  y[i]:=10*random;
 end;
writeln('Координаты:');
write('X   ');
for i:=1 to n do
write(x[i]:4:1);
writeln;
write('Y   ');
for i:=1 to n do
write(y[i]:4: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
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.11.2014, 05:33
Ответы с готовыми решениями:

Найти номера пары точек, расстояние между которыми наибольшее (считать, что такая пара единственная).
Доброго времени, никак не могу понять как делать эти две программки. Во второй...

Найти номера двух точек, расстояние между которыми наибольшее
Надеюсь сможет кто-нибудь помочь, буду премного благодарен :) 1. Даны...

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

Функция, которая вернет номера двух из трех заданных точек на плоскости, расстояние между которыми минимально
Написать функцию Otr(x1,y1,x2,y2,х3,у3) вещественного типа, которая вернет...

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

2
Amandosov
Знаток
156 / 156 / 185
Регистрация: 18.11.2012
Сообщений: 411
Записей в блоге: 2
29.11.2014, 09:23 2
Лучший ответ Сообщение было отмечено Мингиян как решение

Решение

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#include <iostream>
 
using namespace std;
int main ()
{
double x [30], y [30];
int n;
cin>> n;
for (int i=0; i <n; i++)
cin>> x [i]>> y [i];
 
double max=0, a, b;
for(int i=0; i <n; i++)
for (int j=i; j <n; j++)
{
double s=(x [i]-x [j])*(x [i]-x [j])+(y [i]-y [j])*(y [i]-y [j]));
if (s> max){max=s; a=i; b=j;}
}
 
cout <<a <<` `<<b;
 
return 0;
}
1
Мингиян
0 / 0 / 0
Регистрация: 29.11.2014
Сообщений: 3
29.11.2014, 14:57  [ТС] 3
Спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.11.2014, 14:57

Найти в массиве пары чисел, разность между которыми минимальна
Дан двум. массив целых чисел(10х10). Найти в этом массиве пары чисел, разница...

Найти все пары простых чисел, разность между которыми равна 4
Дано натуральное число n&gt;13. Найти все пары простых чисел, разность между...

Расстояние между двумя множествами точек - это расстояние между наиболее близко расположенными точками этих
1. Расстояние между двумя множествами точек - это расстояние между наиболее...


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

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

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