Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 22.11.2015
Сообщений: 8
1

Найти координаты точек, находящихся на максимальном расстоянии

10.02.2016, 20:51. Просмотров 571. Ответов 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
program record5;{найти координаты точек, находящихся на максимальном расстоянии};
 
type
  Coord = record
    x: real;
    y: real;
  end;
  To4ki = array[1..30] of coord;
 
var
  t: to4ki;
  n: 1..30;
  i, j: byte;
  d, max, x1, y1, x2, y2: real;
  c: integer;
 
begin
  writeln('введите количество точек :');
  readln(n);
  writeln('введите координаты точек :');
  for i := 1 to n do 
    readln(t[i].x, t[i].y);
  for j := 1 to n do 
  begin
    for i := j + 1 to n do
    begin
      d := sqrt(sqr(t[j].x - t[i].x) + sqr(t[j].y - t[i].y)); {формула расстояния};
      if d > max then 
      begin
        max := d;
        x1 := (t[j].x);
        y1 := (t[j].y);
        x2 := (t[i].x);
        y2 := (t[i].y);
      end; 
    end;
  end;
  writeln('координаты точек, находящихся на максимальном расстоянии: А(', x1, ';', y1, '), Б(', x2, ';', y2, ')');
end.

Буду очень благодарен за помощь!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.02.2016, 20:51
Ответы с готовыми решениями:

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

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

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

Найти число точек, находящихся вне круга
Пара(Xk,Yk) представляет координаты одной из n точек на плоскости.найти числоточек находящихся вне...

2
Модератор
62948 / 46960 / 32362
Регистрация: 18.05.2008
Сообщений: 113,785
10.02.2016, 21:18 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
program record5;{найти координаты точек, находящихся на максимальном расстоянии}
 
type
  Coord = record
    x: real;
    y: real;
  end;
  To4ki = array[1..30] of coord;
 
var
  t: to4ki;
  n: 1..30;
  i, j: byte;
  d, max, x1, y1, x2, y2: real;
 
begin
  writeln('введите количество точек :');
  readln(n);
  writeln('введите координаты точек :');
  for i := 1 to n do
  readln(t[i].x, t[i].y);
  max:=sqr(t[1].x - t[2].x) + sqr(t[1].y - t[2].y);//корень можно не извлекать
  x1:=t[1].x;
  y1:=t[1].y;
  x1:=t[2].x;
  y1:=t[2].y;
  for j := 1 to n-1 do
   begin
    for i := j + 1 to n do
     begin
      d := sqr(t[j].x - t[i].x) + sqr(t[j].y - t[i].y); {формула расстояния};
      if d > max then
       begin
        max := d;
        x1 := t[j].x;
        y1 := t[j].y;
        x2 := t[i].x;
        y2 := t[i].y;
      end;
    end;
  end;
  writeln('координаты точек, находящихся на максимальном расстоянии:');
  write('А(', x1:0:2, ';', y1:0:2, '), Б(', x2:0:2, ';', y2:0:2, ')');
 end.
1
0 / 0 / 0
Регистрация: 22.11.2015
Сообщений: 8
10.02.2016, 23:37  [ТС] 3
Спасибо! Она, действительно, не нужна. И еще я забыл про переполнение...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.02.2016, 23:37

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

Заданы координаты 10 точек.Найти точку самую дальнюю от начала координат и найти расстояние.
Заданы координаты 10 точек.Найти точку самую дальнюю от начала координат и найти расстояние.

Найти координаты всех седловых точек матрицы
Дана прямоугольная матрица, состоящая из n строк и m столбцов. Найти координаты (номер строки и...

Найти координаты точек пересечения прямой и окружности
1) на цикл if Найти координаты точек пересечения прямой y=kx+b и окружности радиусом R и с центром...

Найти координаты всех седловых точек матрицы
Напишите программу по нахождению седловой точки. В ответе выведите координаты всех седловых точек....


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

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

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