Выбор из массива точек точки, наиболее близкой к началу координат на Pascal

Выбор из массива точек точки, наиболее близкой к началу координат...

type
  Point = record
    x,y: integer;
  end;
 
var 
  a: array [1..5] of Point;
  min: real;
  indmin: integer;
 
begin
  a[1].x := 5; a[1].y := 3;
  a[2].x := 4; a[2].y := 4;
  a[3].x := 1; a[3].y := 8;
  a[4].x := -3; a[4].y := 2;
  a[5].x := -2; a[5].y := 4;
 
  min := MaxDouble;
  for var i:=1 to 5 do
  begin
    var p := sqr(a[i].x)+sqr(a[i].y);
    if p<min then
    begin
      min := p;
      indmin := i;
    end;      
  end;
 
  writeln('Точка, ближайшая к началу координат: ',a[indmin].x,' ',a[indmin].y);
  writeln('Ее расстояние до начала координат: ', sqrt(min):5:3);
end.



Просмотров: 1673
10.02.2015, 11:05 -

Категория: Статьи » Программирование » Pascal