Question

Пусть дано N произвольных точек плоскости, абсциссы и ординаты которых записаны соответственно в целочисленные массивы X и Y. Определить длину наибольшего из всех возможных отрезков, составленных из этих точек. Оформить процедурами ввод и вывод координат точек. Оформить функцией расчет длины каждого отрезка. Составить программу на Паскале. Срроооочно!!!!!!

Answer 1

Var
x,y,rast:array [1..100] of Integer ;
n:Integer;

function maxrast(n:Integer;x,y:array [1..100] of integer): real;
var i,j:integer;
max:real;
begin
for i:=1 to n do
for j:=1 to n do
if sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]))>max then
max:= sqrt(sqr(x[i]-x[j])+sqr(y[i]-y[j]));
maxrast:=max;
end;

procedure vvod(n:Integer);
var i:integer;
begin
for
i:=1 to n do
begin
WriteLn('Введите координату x ',i,' отрезка');
ReadLn(x[i]);
WriteLn('Введите координату y ',i,' отрезка');
ReadLn(y[i]);
end;
end;

begin
Writeln('Введите количество точек');
ReadLn(n);
vvod(n);
Writeln('Длина наибольшего отрезка составленного из заданных точек = ',maxrast(n,x,y));
end.

Answer 2

Конечно! Вот программа на Pascal, которая решает данную задачу:

pascalCopy code
program LongestSegment;

type
  TPoint = record
    x, y: Integer;
  end;

var
  Points: array of TPoint;

function Distance(p1, p2: TPoint): Real;
begin
  Distance := Sqrt(Sqr(p2.x - p1.x) + Sqr(p2.y - p1.y));
end;

procedure ReadPoints(var Points: array of TPoint);
var
  N, i: Integer;
begin
  Write('Введите количество точек N: ');
  Readln(N);
  
  SetLength(Points, N);
  
  for i := 0 to N - 1 do
  begin
    Write('Введите абсциссу точки ', i + 1, ': ');
    Readln(Points[i].x);
    
    Write('Введите ординату точки ', i + 1, ': ');
    Readln(Points[i].y);
  end;
end;

function LongestSegmentLength(const Points: array of TPoint): Real;
var
  i, j: Integer;
  maxDistance: Real;
begin
  maxDistance := 0.0;
  
  for i := 0 to High(Points) do
  begin
    for j := i + 1 to High(Points) do
    begin
      if Distance(Points[i], Points[j]) > maxDistance then
        maxDistance := Distance(Points[i], Points[j]);
    end;
  end;
  
  LongestSegmentLength := maxDistance;
end;

procedure OutputPoints(const Points: array of TPoint);
var
  i: Integer;
begin
  for i := 0 to High(Points) do
  begin
    Write('Точка ', i + 1, ': (', Points[i].x, ', ', Points[i].y, ')');
    writeln;
  end;
end;

var
  Longest: Real;

begin
  ReadPoints(Points);
  OutputPoints(Points);
  
  Longest := LongestSegmentLength(Points);
  writeln('Длина наибольшего отрезка составленного из этих точек: ', Longest:0:2);
end.

Программа предоставляет процедуры для ввода координат точек, расчета длины отрезков и вывода результатов. Вы можете скопировать этот код в среду разработки Pascal, такую как Free Pascal, и выполнить программу. После выполнения она запросит ввод координат точек, выведет их список и выдаст длину наибольшего отрезка, составленного из этих точек.