Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/11: Рейтинг темы: голосов - 11, средняя оценка - 4.55
0 / 0 / 0
Регистрация: 01.10.2011
Сообщений: 67
1

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

02.12.2011, 00:02. Показов 2293. Ответов 3
Метки нет (Все метки)

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

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.12.2011, 00:02
Ответы с готовыми решениями:

На плоскости заданы своими координатами n точек. Создать массив размером n(n-1), элементами которого является расстояние от каждой из точек до n-1 др.
Помогите пожалуйста решить! Пожалуйста! На плоскости заданы своими координатами n точек. Создать...

На плоскости заданы своими координатами n точек
На плоскости заданы своими координатами n точек.Создать массив размером n(n-1) элементами которого...

Три точки на плоскости заданы своими координатами. Между какими точками расстояние наименьшее?
Три точки на плоскости заданы своими координатами. Между какими точками расстояние наименьшее?

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

3
Модератор
64059 / 47474 / 32728
Регистрация: 18.05.2008
Сообщений: 115,185
02.12.2011, 09:25 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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
uses crt;
const nmax=15;
function Rast(x1,y1,x2,y2:real):real;
begin
Rast:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
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('N');
for i:=1 to n do
write(i:5);
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:=Rast(x[1],y[1],x[2],y[2]);
imx:=1;
jmx:=2;
for i:=1 to n-1 do
for j:=i+1 to n do
if Rast(x[i],y[i],x[j],y[j])>mx then
 begin
  mx:=Rast(x[i],y[i],x[j],y[j]);
  imx:=i;
  jmx:=j;
 end;
writeln('Максимальное расстояние между точками ',imx,'-',jmx,' = ',mx:0:2);
readln
end.
1
17 / 16 / 9
Регистрация: 20.02.2011
Сообщений: 26
02.12.2011, 11:44 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
const
MAXLEN=100;
 
var
n,i,j,c1,c2:integer;
max:real;
a:array[1..MAXLEN,1..2]of real;
 
procedure Search(k:integer);
 var
  i:integer;
  cmax:real;
  begin
   for i:=k+1 to n do
    begin
     cmax:=sqr(a[k,1]-a[i,1])+sqr(a[k,2]-a[i,2]);
     if cmax>max then
      begin
       max:=cmax;
       c1:=k;
       c2:=i;
      end;
    end;
   if k<n then Search(k+1);
  end;
 
begin
readln(n);
for i:=1 to n do
 for j:=1 to 2 do read(a[i,j]);
Search(1);
writeln(a[c1,1],' ',a[c1,2]);
writeln(a[c2,1],' ',a[c2,2]);
end.
0
Модератор
64059 / 47474 / 32728
Регистрация: 18.05.2008
Сообщений: 115,185
02.12.2011, 11:49 4
Цитата Сообщение от GodLikeRu Посмотреть сообщение
все таки под "решить с помощью подпрограммы" скорей всего имелся ввиду рекурсивный перебор
Извините, это типа горе от ума?
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.12.2011, 11:49

Определить, принадлежит ли точка с координатами (X,Y) множеству точек плоскости
Составьте программу, определяющую принадлежит ли точка с координатами (X,Y) множеству точек...

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

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

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


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

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

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