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

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

29.11.2014, 05:33. Просмотров 1346. Ответов 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)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.11.2014, 05:33
Ответы с готовыми решениями:

Найти номера пары точек, расстояние между которыми наибольшее
Даны координаты n точек на плоскости: (X1, Y1),…, (Xn , Yn) (n≤30). Найти номе-ра пары точек,...

Найти номера пары точек, расстояние между которыми наибольшее
Даны координаты n точек на плоскости: (X1, Y1),…, (Xn , Yn) (n≤30). Найти номе-ра пары точек,...

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

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

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

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
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.11.2014, 14:57

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

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

Вывести те пары слов, расстояние между которыми наименьшее
Вывести те пары слов, расстояние между которыми наименьшее.(Расстояние между словами это количество...


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

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

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