Выбор из массива точек точки, наиболее близкой к началу координат на 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.
10.02.2015, 11:05 -
Категория: Статьи » Программирование » Pascal