Другая задача с точками

Посмотреть архив целиком
запись точки,сортирует по длине от точки до следующей точки
program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

type XY=record
x:integer;
x1:integer;
y:integer;
y1:integer;
l:real;
end;
Tmas=array [1..100] of XY;
procedure vvod (var A:tmas;var n:integer);
Var i:integer;
begin
writeln ('vvedite kolvo elementov');
readln (n);
writeln ('VVEDITE massiv');
for i:=1 to n do begin
writeln ('vvedite x');
readln (A[i].x);
writeln ('vvedite x1') ;
readln (A[i].x1);
writeln ('vvedite y');
readln (a[i].y);
writeln ('vvedite Y1') ;
readln (A[i].y1); end;
end;
procedure vivod (a:tmas;n:integer);
var i: integer;
begin
writeln ('l' );
for i:=1 to n do
writeln (A[i].l:2:3);
end;
procedure sort (var A:tmas;var n:integer);
var i,j:integer; b:XY;
begin
for i:=1 to n do
A[i].l:=sqrt(sqr(A[i].x-A[i].x1)+sqr(A[i].y-A[i].y1));
for i:=1 to n do begin
for j:=1 to n-i do
if a[j].l>a[j+1].l then begin
b:=A[j];
A[j]:=A[j+1];
A[j+1]:= B; end; end;
end;

var b:tmas;k:integer;
BEGIN
vvod (b,k);
sort (b,k);
vivod (b,k);readln;
END.

Случайные файлы

Файл
README.TXT
ответы.txt
Dann.txt
student.txt
h.txt




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.