Исправить программу на Delphi
Требуется исправить сортировку в этой программе. То есть, чтобы в сортировке было меньше кода. Сделать сортировку с использованием массива и цикла.
program rabota820yes;
{$APPTYPE CONSOLE}
uses
SysUtils,
math;
Procedure Polar(a,b:real; var c,d:real);
begin
c:=sqrt(sqr(a)+sqr(b));
d:=arctan(b/a);
end;
var x1,x2,y1,y2,z1,z2:real;
begin
writeln('Tochka x');
write('x1='); readln(x1);
write('x2='); readln(x2);
writeln('Tochka y');
write('y1='); readln(y1);
write('y2='); readln(y2);
writeln('Tochka z');
write('z1='); readln(z1);
write('z2='); readln(z2);
Polar(x1,x2,x1,x2);
Polar(y1,y2,y1,y2);
Polar(z1,z2,z1,z2);
writeln('Polar coord:');
writeln('Tochka x{P=',x1:2:2,'; Fi=',x2:2:2,'}');
writeln('Tochka y{P=',y1:2:2,'; Fi=',y2:2:2,'}');
writeln('Tochka z{P=',z1:2:2,'; Fi=',z2:2:2,'}');
writeln('Sort:');
if x1
if y1
writeln('x{ P=',x1:2:2,'; Fi=',x2:2:2,'}');
writeln('y{ P=',y1:2:2,'; Fi=',y2:2:2,'}');
writeln('z{ P=',z1:2:2,'; Fi=',z2:2:2,'}');
end
else if x1
writeln('x{ P=',x1:2:2,'; Fi=',x2:2:2,'}');
writeln('z{ P=',z1:2:2,'; Fi=',z2:2:2,'}');
writeln('y{ P=',y1:2:2,'; Fi=',y2:2:2,'}');
end
else begin
writeln('z{ P=',z1:2:2,'; Fi=',z2:2:2,'}');
writeln('x{ P=',x1:2:2,'; Fi=',x2:2:2,'}');
writeln('y{ P=',y1:2:2,'; Fi=',y2:2:2,'}');
end
else if x1
writeln('y{ P=',y1:2:2,'; Fi=',y2:2:2,'}');
writeln('x{ P=',x1:2:2,'; Fi=',x2:2:2,'}');
writeln('z{ P=',z1:2:2,'; Fi=',z2:2:2,'}');
end
else if y1
writeln('y{ P=',y1:2:2,'; Fi=',y2:2:2,'}');
writeln('z{ P=',z1:2:2,'; Fi=',z2:2:2,'}');
writeln('x{ P=',x1:2:2,'; Fi=',x2:2:2,'}');
end
else begin
writeln('z{ P=',z1:2:2,'; Fi=',z2:2:2,'}');
writeln('y{ P=',y1:2:2,'; Fi=',y2:2:2,'}');
writeln('x{ P=',x1:2:2,'; Fi=',x2:2:2,'}');
end;
readln;
end.