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

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

Решение:

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

 Rmax:=0;
 x:=0;
 y:=0;

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

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

program Array132;

var

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

R,Rmax,x,y:real;

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

Rmax:=0;

x:=0;

y:=0;

for i:=1 to N do

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

begin

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

if R > Rmax then

begin

Rmax:=R;

x:=A[i,1];

y:=A[i,2];

end;

Writeln (x,', ', y);

end.

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

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

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

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

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

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