Найти две точки, расстояние между которыми самое большое - Turbo Pascal

  1. N точек задано своими координатами на плоскости массив X содержит абсциссы точек, массив Y - ординаты (Ai (x [i], y [i])). Найти две точки, расстояние между которыми самое большое.


textual

Код к задаче: «Найти две точки, расстояние между которыми самое большое - Turbo Pascal»

uses crt;
const nmax=15;
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(21);
  y[i]:=-10+random(21);
 end;
writeln('Исходные координаты:');
write('#');
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;
mx:=sqrt(sqr(x[1]-x[2])+sqr(y[1]-y[2]));
imx:=1;
jmx:=2;
for i:=2 to n-1 do
for j:=i+1 to n do
if sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]))>mx then
 begin
  mx:=sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]));
  imx:=i;
  jmx:=j
 end;
writeln('Максимальное расстояние=',mx:0:1);
write('Между точками ',imx,'(',x[imx]:0:1,';',y[imx]:0:1,') и ',
       jmx,'(',x[jmx]:0:1,';',y[jmx]:0:1,')');
readln
end.

СДЕЛАЙТЕ РЕПОСТ

15   голосов, оценка 4.133 из 5



Похожие ответы
  1. Определить расстояние между двумя точками ломанной на плоскости для вычисления наибольшей цепи ломанной, заданной координатами ее вершин. Входные данные: A(-2,-3); B(1,4); C(4,5); D(7,7).

  1. ша плавал в бассейне размером NM метров и устал. В этот момент он обнаружил, что находится на расстоянии x метров от одного из длинных бортиков (не обязательно от ближайшего) и y метров от одного из коротких бортиков. Какое минимальное расстояние должен проплыть Яша, чтобы выбраться из бассейна на бортик? Входные данные Программа получает на вход числа N, M, x, y. Выходные данные Программа должна вывести число метров, которое нужно проплыть Яше до бортика. Примеры входные данные 23 52 8 43 выходные данные 8

  1. Выбрать три разные точки заданного на плоскости множества точек, составляющие равносторонний треугольник наибольшего периметра. // [10_3]

  1. Пусть отрезок [ a,b] разбит точками на n равных частей. В каждой точке вычисляется значение функции: (x^2-3x+2)/√(2x^3-1) Найдите те точки , в которых функция принимает наибольшее и наименьшее значение.

  1. Три точки заданы своими координатами X(x1, x2), Y(y1, y2) и Z(z1, z2). Найти и напечатать координаты точки, для которой угол между осью абсцисс и лучом, соединяющим начало координат с точкой, минимальный. Вычисления оформить в виде процедуры.

  1. Сама задача: Дано множество точек с координатами на плоскости. Написать программу, которая использует подпрограммы и выведит на экран наименьшее расстояние между двумя точками. Заранее спасибо.Добавлено через 38 минут UP!

  1. Даны координаты вершин треугольника и координаты некоторой точки внутри него. Составить программу, находящую расстояние от данной точки до ближайшей стороны треугольника. (При определении расстояний учесть, что площадь треугольника вычисляется и через три его стороны, и через основание и высоту.)

  1. Прошу знатоков помочь в решении задачи, заранее благодарен. Используя функции Otr и Area, описать процедуру Dist(Px,Py,Ax,Ay,Bx,By,D), находящую расстояние D от точки P до прямой AB по формуле D = 2*SPAB / |AB|, где SPAB — площадь треугольника PAB. С помощью этой процедуры найти расстояния от точки P до прямых AB, AC, BC, если даны координаты точек P, A, B, C.

  1. Здраствуйте! Нужно написать программу с использованием подпрограммы-процедуры или подпрограммы-функции решения задачи. Процедуру вычислений, которые повторяются, записать в виде подпрограммы. Условие: Для каждой из точек указать расстояние до точки координатами Хс, Ус. Здесь Хс, Ус - среднее арифметическое элементов массива Х и У соответственно. X=(-4;3;2.5;0.5;1.5;6;-5;5;-4.5;3.5) Y=(-3;-2;6.5;5;-4;3.5;-2;6;2.5;-4.5) Спасибо!