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

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

02.03.2010, 19:10. Просмотров 2639. Ответов 1
Метки нет (Все метки)


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

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

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

Из заданного множества точек на плоскости выбрать две различные точки так, чтобы количества точек различались наименьшим образом
Из заданного множества точек на плоскости выбрать две различные точки так, чтобы количества точек,...

Для заданного множества чисел найти разность между максимальным и минимальным числами
Ввести 8 целых чисел. Найти разницу между наибольшим и наименьшим из них.

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

__________________
Помогаю в написании курсовых работ и дипломов здесь.
1
Модератор
63219 / 46976 / 32377
Регистрация: 18.05.2008
Сообщений: 113,858
03.03.2010, 12:14 2
Лучший ответ Сообщение было отмечено SeaFlyer как решение

Решение

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
uses crt;
type point=record
           x,y:real;
           end;
function Rasst(a,b:point):real;
begin
Rasst:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y));
end;
var a:array[1..100] of point;
    max:real;
    n,i,j,imx,jmx:integer;
begin
clrscr;
randomize;
write('Количество точек (нормально до 13) = ');
readln(n);
writeln('Введите координаты точек:');
for i:=1 to n do
 begin
  writeln('Точка ',i);
  write('x=');readln(a[i].x);
  write('y=');readln(a[i].y);
 end;
clrscr;
write('Нoмер точки ');
for i:=1 to n do write(i:5);
writeln;
write('координата Х');
for i:=1 to n do write(a[i].x:5:1);
writeln;
write('координата Y');
for i:=1 to n do write(a[i].y:5:1);
writeln;
writeln;
max:=0;imx:=1;jmx:=1;
for i:=1 to n-1 do
for j:=i+1 to n do
if Rasst(a[i],a[j])>max then
 begin
  max:=Rasst(a[i],a[j]);
  imx:=i;
  jmx:=j;
 end;
write('Максимальное расстояние между точками ',imx,' и ',jmx,' =',max:0:1);
readln
end.
2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.03.2010, 12:14

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

Дано множество A из N точек на плоскости. Найти точку (вывести её номер и значение) среди всех точек этого множества
Дано множество A из N точек на плоскости. Найти точку (вывести её номер и значение) среди всех...

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

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

Перечислить точки заданного множества точек на плоскости
Порядок на точках плоскости определим следующим образом: (х,у)=<(u,v), если либо x<u, либо x=u и...


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

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

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