Автор: Bronislav

Bronislav — Fri, 24 Aug 2018 08:44:13 +0000

program Array132;//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 MaxLen := 0.0;
  var j := 0;//индекс самой удаленнной точки от начала координат
  
  for var i := 1 to n do
  begin
    if (a[i].x < 0) and (a[i].y > 0) then
    begin
      var Len := FLen(a[i], a[0]);
      if MaxLen < Len then
      begin
        MaxLen := Len;
        j := i;
      end
    end;
  end;
  
  Write('a', a[j]);
end.

program Array132;//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 MaxLen := 0.0;

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

for var i := 1 to n do

begin

if (a[i].x < 0) and (a[i].y > 0) then

begin

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

if MaxLen < Len then

begin

MaxLen := Len;

j := i;

end

end;

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

end.

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

Автор: Bronislav