Автор: Bronislav

Bronislav — Fri, 24 Aug 2018 08:55:23 +0000

program Array133;//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 + 1];
  
  (a[0].x, a[0].y) := (0, 0);//точка начала координат
  
  for var i := 1 to n do
    (a[i].x, a[i].y) := 
    (Random(-10.0, 10.0).Round(), Random(-10.0, 10.0).Round());//a.Println;
  
  var MinLen := real.MaxValue;
  var j := 0;//индекс самой ближней точки к началу координат
  
  for var i := 1 to n do
  begin
    if a[i].x * a[i].y > 0 then
    begin
      var Len := FLen(a[i], a[0]);
      if MinLen > Len then
      begin
        MinLen := Len;
        j := i
      end
    end
  end;
  
  Write('a', a[j]);
end.

program Array133;//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 + 1];

(a[0].x, a[0].y) := (0, 0);//точка начала координат

for var i := 1 to n do

(a[i].x, a[i].y) :=

(Random(-10.0, 10.0).Round(), Random(-10.0, 10.0).Round());//a.Println;

var MinLen := real.MaxValue;

var j := 0;//индекс самой ближней точки к началу координат

for var i := 1 to n do

begin

if a[i].x * a[i].y > 0 then

begin

var Len := FLen(a[i], a[0]);

if MinLen > Len then

begin

MinLen := Len;

j := i

end

end;

Write('a', a[j]);

end.

Комментарии: Решаем задачи Абрамян на Паскале. Array133

Автор: Bronislav