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

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

08.10.2009, 16:32. Показов 1516. Ответов 1
Метки нет (Все метки)

Задано N точек своими координатами. Найти номера и координаты точек, наиболее удаленных друг от друга. Расстояние между точками определить с помощью функции.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.10.2009, 16:32
Ответы с готовыми решениями:

Найти среди точек пару наиболее удаленных друг от друга
Даны n точек плоскости (x1,y2),...(xn,yn). Найти среди них пару наиболее удаленных друг от друга. ...

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

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

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

__________________
1
Модератор
63339 / 47049 / 32429
Регистрация: 18.05.2008
Сообщений: 114,044
08.10.2009, 16:52 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
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);
for i:=1 to n do
 begin
  a[i].x:=10*random-4;
  a[i].y:=10*random-4;
 end;
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.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.10.2009, 16:52

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

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

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

Напишите программу определения двух наиболее удаленных друг от друга точек
1. Координаты точек на плоскости заданы двумя массивами Х и У(в каждом по 10 элементов) . Напишите...

Найти номера двух наиболее удаленных друг от друга точек и расстояние между ними
Даны значения двух вещественных массивов


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

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

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