Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 17.06.2013
Сообщений: 3
1

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

21.06.2013, 00:26. Показов 887. Ответов 1
Метки нет (Все метки)

Задано N точек своими координатами. Найти номера и координаты точек, наиболее удаленных друг от друга. Расстояние между точками определить при помощи функции.
Программа работает, но не так как нужно

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
program prakt_8_1;
uses crt;
var n,i,k:byte;
     a,a1,b,b1:integer;
 {----------------------------------------------------------}
function r(x,y,x1,y1:integer):real;
    
   begin
     r:=sqrt((x1-x)*(x1-x)+(y1-y)*(y1-y));
   end;
 
 
{-------------Основная программа------------------}
 begin
 i:=0;
write('Введите количество точек N: '); readln(n);
   while i<n do
     begin
      inc(i);
      write('Введите координаты ',i,' точки: '); readln(a,b);
      inc(i);
        if i<=n then
          begin
           write('Введите координаты ',i,' точки: '); readln(a1,b1);
          end 
     end;
      write('Расстояние равно: ',r(a,b,a1,b1):3:4); 
      readln;
 end.
0

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

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

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

Рекурсия: найти пару треугольников, максимально удаленных друг от друга
Пусть дано n треугольников, заданных координатами своих вершин. Найдите пару треугольников,...

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

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

1
Модератор
63400 / 47085 / 32454
Регистрация: 18.05.2008
Сообщений: 114,133
21.06.2013, 12:05 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
program prakt_8_1;
uses crt;
type point=record
           x,y:integer
           end;
function r(a,b:point):real;
begin
 r:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y));
end;
 
var a:array[1..100] of point;
    n,i,j,imx,jmx:byte;
    mx:real;
 
begin
write('Введите количество точек N: ');
read(n);
for i:=1 to n do
 begin
  writeln('Введите координаты ',i,' точки: ');
  read(a[i].x,a[i].y);
 end;
imx:=1;
jmx:=2;
mx:=r(a[1],a[2]);
for i:=1 to n-1 do
for j:=i+1 to n do
if r(a[i],a[j])>mx then
 begin
  mx:=r(a[i],a[j]);
  imx:=i;
  jmx:=j
 end;
write('Максимальное расстояние=',mx:0:2,' между точками ',i,' и ',j);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.06.2013, 12:05

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

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

Выяснить, какие из 4х точек находятся на максимальном расстоянии друг от друга.
не могу решить Четыре точки заданы своими координатами Х(х1, х2), У(у1, у2), Z(z1, z2), Р(р1,...

У квадрата ABCD на плоскости известны координаты двух противоположных вершин - точек A и C. Найти координаты точек B и
У квадрата ABCD на плоскости известны координаты двух противоположных вершин - точек A и C. Найти...

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


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

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

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