процедура Delphi7 (исправить за вознаграждение)

[warma2d]

Здравствуйте!

Пожалуйста, поймите меня правильно.
Сегодня у нас было занятие по информатике, но к сожалению, преподаватель не засчитал программку.
Поэтому настроение сегодня было не самое наилучшее...
Прошу вас, помогите пожалуйста её исправить!
Всем, кто поможет обещаю гарантированное вознаграждение!



Необходимо исправить только сортировку, чтобы не было так много лишнего кода. Преподаватель сказал сделать сортировку например через массив, и с использованием цикла.


Три точки заданы своими декартовыми координатами х={x1,x2}; у = {y1,y2}; z={z1,z2}. Вычислить и напечатать полярные координаты этих точек. Кроме этого, упорядочить и напечатать координаты точек по возрастанию полярного радиуса ρ. Полярный радиус ρ и полярный угол φ вычисляются по формулам . Перевод декартовых координат в полярные оформить в виде подпрограммы.

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.

[D@rkD@iver]

пиши сделаю
ICQ: 412842920

[mss]

Стучи в аську.

[fft]

могу сделать val20063@mail.ru

[RIO]

Здравствуйте! Хочу помочь Вам с Вашей проблемой. Реализую программу на высоком уровне, в срок, а главное недорого.
ICQ #: 371824579
Портфолио: http://www.weblancer.net/users/RIO/portfolio?affiliate=RIO

[Zer0]

если еще нужно - пиши 392459949, подскажу за спасибо)