Фрилансеры предложат решение вашей задачи уже через несколько минут!

Публикация заказа на фриланс бирже не займет много времени.

10 лет назад
Алексей
31 год, Россия
13 лет в сервисе
Был онлайн 2 дня назад
24 отзыва
100% фрилансеров рекомендуют 89% заказов с выбором исполнителя
10 лет назад

Требуется исправить сортировку в этой программе. То есть, чтобы в сортировке было меньше кода. Сделать сортировку с использованием массива и цикла.

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<y1 then
if y1<z1 then begin
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<z1 then begin
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<z1 then begin
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<z1 then begin
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.

Выбранный исполнитель
Руслан Захаров
32 года, Украина
11 лет в сервисе
Был онлайн 6 лет назад
10 лет назад

$1

1 день

Отзыв заказчика
Всё прошло оперативно и чётко!
Запомнилось высокое качество работы, разумеется, работа была представлена в срок!

Также понравились прекрасные человеческие чувства!
Отзыв фрилансера
Андрей превосходный заказчик !
И как человек, он порядочный и честный.
Задание было поставлено четко, что обеспечило его оперативное выполнение.
Рекомендую !
Руслан Захаров
32 года, Украина
11 лет в сервисе
Был онлайн 6 лет назад
10 лет назад

Другие заказы в категории «Прикладное ПО»

Здесь заказчик и фрилансеры могут обсуждать заказ до начала его выполнения.
Фрилансеры могут участвовать в обсуждении только после подачи заявки.
Здесь заказчик будет контролировать выполнение заказа и общаться с исполнителем.
Доступ к этому разделу имеют только заказчик и выбранный исполнитель.
Все материалы этого раздела закрыты от поисковых систем.