Объясните условие

@exper1mentok · Регистрация: 25.11.2014

Author24 — интернет-сервис помощи студентам

Задача звучит так: Множество точек на плоскости задано своими координатами. Построить в декартовых координатах эти точки и выпуклую оболочку множества, то есть многоугольник минимальной площади, охватывающий все точки.
Программа:

Pascal

uses crt, graphABC;
var
x:array[1..100] of integer;
y:array[1..100] of integer;
i,j,n,f,f1:integer;
begin
writeln('введите количество точек');
read(n);
clrscr;
for i:=1 to n do
begin
writeln ('Введите точку x');
read(x[i]);
writeln ('Введите точку y');
read(y[i]);
end;
clrscr;
for j:=1 to n-1 do
for i:=1 to n-j do
if sqr(y[i])+sqr(x[i]) < sqr(y[i+1])+sqr(x[i+1]) then
begin
f:=y[i];
f1:=x[i];
y[i]:=y[i+1];
x[i]:=x[i+1];
y[i+1]:=f;
x[i+1]:=f1;
end; 
clrscr;
for i:=1 to n do
begin
line(x[i],y[i],x[i+1],y[i+1]);
end;
line(x[n],y[n],x[1],y[1]);
end.

Объясните подробней, пожалуйста, что за условие:

Pascal

for j:=1 to n-1 do
for i:=1 to n-j do
if sqr(y[i])+sqr(x[i]) < sqr(y[i+1])+sqr(x[i+1]) then
begin
f:=y[i];
f1:=x[i];
y[i]:=y[i+1];
x[i]:=x[i+1];
y[i+1]:=f;
x[i+1]:=f1;
end;

	09.12.2014, 08:39

Опции темы