Решаем задачи Абрамян на Паскале. Array136

Array136. Дано множество $$A$$ из $$N$$ точек ($$N \gt 2$$, точки заданы своими координатами $$x$$, $$y$$). Найти такую точку из данного множества, сумма расстояний от которой до остальных его точек минимальна, и саму эту сумму.

Решение:

program Array136;
var
 A: array [1..10,1..2] of real;
 RminSum,RSum:real;
 N,i,i2,Point: integer;

begin
 Write('N: ');
 Readln(N);

 Writeln('A: ');
 for i:=1 to N do
  begin
   write(i,'.x :');
   readln(a[i,1]);
   write(i,'.y :');
   readln(a[i,2]);
  end;

 Point:=0;

 for i:=1 to N do
  begin
   Rsum:=0;
   for i2:=1 to N do RSum:=RSum+sqrt(sqr(A[i,1]-A[i2,1])+sqr(A[i,2]-A[i2,2]));
   if (RSum<RminSum) or (Point=0) then
    begin
     RminSum:=RSum;
     Point:=i;
    end;

  end;
  Writeln ('RSum:',RminSum,' (',A[Point,1],':',A[Point,2],')');
end.

program Array136;

var

A: array [1..10,1..2] of real;

RminSum,RSum:real;

N,i,i2,Point: integer;

begin

Write('N: ');

Readln(N);

Writeln('A: ');

for i:=1 to N do

begin

write(i,'.x :');

readln(a[i,1]);

write(i,'.y :');

readln(a[i,2]);

end;

Point:=0;

for i:=1 to N do

begin

Rsum:=0;

for i2:=1 to N do RSum:=RSum+sqrt(sqr(A[i,1]-A[i2,1])+sqr(A[i,2]-A[i2,2]));

if (RSum<RminSum) or (Point=0) then

begin

RminSum:=RSum;

Point:=i;

end;

Writeln ('RSum:',RminSum,' (',A[Point,1],':',A[Point,2],')');

end.

Задачи из раздела Array можно посмотреть здесь.

Комментарии 1

program Array136;//pabc.net

type
  dot = record
    x, y: real;
  end;

function FLen(a, b: dot) := Sqrt(Sqr(a.x - b.x) + Sqr(a.y - b.y)).Round(2);

begin
  var n := 10;
  var a := new dot[n];
  
  for var i := 0 to n - 1 do
  begin
    a[i].x := Random(-10.0, 10.0).Round();
    a[i].y := Random(-10.0, 10.0).Round();
  end;
//  a.Println;
  
  var SumLenMin := real.MaxValue;  
  var k : integer;
  
  for var i := 0 to n - 1 do
  begin
    var SumLen := 0.0;
    for var j := 0 to n - 1 do
      if j <> i then
        SumLen += FLen(a[i], a[j]);
//    Println(SumLen);
    if SumLenMin > SumLen then
    begin
      SumLenMin := SumLen;
      k := i;
    end;
  end;
  
  Print(a[k], 'SumLenMin =', SumLenMin)
end.

program Array136;//pabc.net

type

dot = record

x, y: real;

end;

function FLen(a, b: dot) := Sqrt(Sqr(a.x - b.x) + Sqr(a.y - b.y)).Round(2);

begin

var n := 10;

var a := new dot[n];

for var i := 0 to n - 1 do

begin

a[i].x := Random(-10.0, 10.0).Round();

a[i].y := Random(-10.0, 10.0).Round();

end;

// a.Println;

var SumLenMin := real.MaxValue;

var k : integer;

for var i := 0 to n - 1 do

begin

var SumLen := 0.0;

for var j := 0 to n - 1 do

if j <> i then

SumLen += FLen(a[i], a[j]);

// Println(SumLen);

if SumLenMin > SumLen then

begin

SumLenMin := SumLen;

k := i;

end;

Print(a[k], 'SumLenMin =', SumLenMin)

end.

Ответить

Решаем задачи Абрамян на Паскале. Array136

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ