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

Array133. Дано множество $$A$$ из $$N$$ точек (точки заданы своими координатами $$x$$, $$y$$). Среди всех точек этого множества, лежащих в первой или третьей четверти, найти точку, наиболее близкую к началу координат. Если таких точек нет, то вывести точку с нулевыми координатами.

Решение:

program Array133;

var
 A: array [1..10,1..2] of real;
 R,Rmin,x,y:real;
 N,i: 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;

 Rmin:=0;
 x:=0;
 y:=0;



 for i:=1 to N do
  if ((A[i,1]>0) and (A[i,2]>0)) or ((A[i,1]<0) and (A[i,2]<0))then
   begin
    R:=sqrt(sqr(A[i,1])+sqr(A[i,2]));
    if (R < Rmin) or (x+y=0) then
     begin
      Rmin:=R;
      x:=A[i,1];
      y:=A[i,2];
     end;
   end;

  Writeln (x,', ', y);
end.

program Array133;

var

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

R,Rmin,x,y:real;

N,i: 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;

Rmin:=0;

x:=0;

y:=0;

for i:=1 to N do

if ((A[i,1]>0) and (A[i,2]>0)) or ((A[i,1]<0) and (A[i,2]<0))then

begin

R:=sqrt(sqr(A[i,1])+sqr(A[i,2]));

if (R < Rmin) or (x+y=0) then

begin

Rmin:=R;

x:=A[i,1];

y:=A[i,2];

end;

Writeln (x,', ', y);

end.

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

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

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

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

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

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