Определить длину отрезка во 2-м квадранте системы координат

[kolduev]

Вводятся координаты отрезка. Определить длину отрезка во втором квадранте системы координат.

[Карась]

Вы хвастаетесь, что вам досталась простая задача?
Где вопрос

[puporev]

Задача не такая и простая. Если оба конца отрезка находятся во второй четверти, то нет вопросов. Если один конец во второй четверти, а другой в первой или третьей, то найти часть отрезка во второй четверти не очень сложно. А вот если другой кнец в четвертой четверти, то несколько вариантов. Также не просто, если концы в третьей и первой четвертях и отрезок средней своей частью проходит через вторую четверть. Так что есть над чем подумать.

[B_N]

Не вижу ничего сложного в задаче, если честно. Система линейных уравнений. А вот автору не мешало бы по крайней мере, язык указать, который его интересует.

[puporev]

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

[B_N]

Сообщение от puporev

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

Ну... ладно..... согласен

[Карась]

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

"Ребятишку" 20 лет....

Вообщем алгоритм решения, как и стоило ожидать, довольно прост.
Строим отрезок по двум точкам.
Смотрим не находится ли какая из точек в нужном квадранте.
Если да, то составляем систему и находим точку пересечения с осями x и\или y.
Вычисляем длину отрезка.

[kolduev]

меня вот как раз и интересуют два последних варианта, про которые говорил puporev!! как в них длину определить!? впринце у мня есть решение, но тогда для каждого варианта придётся создавать отдельное условие, а в некоторых случаях и не одно, или мож как проще можно!?
нада тогда будет систему линейных уравнений повторить!=)

[puporev]

Я уж думал ты решил. Вот посмотри вариант.
Чтобы было понятно, нарисуй все возможные положения отрезка относительно осей координат. Если я не ошибся их 9, в трех из них решений нет.
Для удобства примем х2>=x1; d-общая длина отрезка; d2-длина во второй четверти.
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
Что-то много ошибок нашел в своей писанине при написании программного кода, поэтому выложу лучше его. Ты его всетаки протестируй с пристрастием и попрвь, если что. Мне лично он надоел.

program otrezok;
uses crt;
var x1,x2,y1,y2,d,d2,x0,y0:real;label 1;
begin
clrscr;
write('vvedite x1: ');readln(x1);
write('vvedite y1: ');readln(y1);
1: write('vvedite x2>=x1: ');readln(x2);
if x2<x1 then
   begin
     write('neverno!');
     readln;
     goto 1;
   end;
write('y2=');readln(y2);
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
if (x1>=0)or((y1<=0)and(y2<=0))then
  begin
   writeln('Reshenii net');
   readln;
   exit;
  end
  {2 qw}
else if (x1<0)and(x2<=0)and((y1>0)and(y2>=0))then d2:=d
  {2-1 qw}
else if ((x1<0)and(x2>0))and((y1>=0)and(y2>=0))then d2:=d/abs(x2-x1)*abs(x1)
  {2-3 qw}
else if (x1<0)and(x2<0)and(y1>0)and(y2<0) then d2:=d/abs(y2-y1)*abs(y2)
   {3-1 qw}
else if (x1<0)and(x2>0)and(y1<0)and(y2>0)then
    begin
      x0:=-y1*(x2-x1)/(y2-y1)+x1;
      y0:=-x1*(y2-y1)/(x2-x1)+y1;
      if x0>0 then
         begin
           writeln('Reshenii net');
           readln;
           exit;
         end
       else d2:=sqrt(sqr(x0)+sqr(y0));
    end;
  {2-4 qw}
if (x1<0)and(x2>0)and(y1>0) and(y2<0) then
         begin
           x0:=-y1*(x2-x1)/(y2-y1)+x1;
           y0:=-x1*(y2-y1)/(x2-x1)+y1;
           if x0>0 then d2:=d/abs(x2-x1)*abs(x1)
           else if x0<0 then d2:=d/abs(y2-y1)*abs(y1);
         end;
writeln('d2=',d2:5:2);
readln;
end.

[kolduev]

спасибо ограмное, есть небольшие неточности, исправил, вроде работает!!!!!!!!