Количество общих точек у двух отрезков, конвертация кода

@twofourty · Регистрация: 11.05.2017

Студворк — интернет-сервис помощи студентам

В общем, как звучит само задание: "Определите количество общих точек у двух отрезков, заданных координатами своих концов. Поместите на форме данные отрезки"
На этом же форуме я нашел по такой же задаче готовый код в паскале:

Pascal

var x11,x12,x21,x22,y11,y12,y21,y22,u1,u2: real;
 
BEGIN
    Writeln('Первый отрезок');
    Write('x1 = '); Read(x11);
    Write('y1 = '); Readln(y11);
    Write('x2 = '); Read(x12);
    Write('y2 = '); Readln(y12);
    Writeln('Второй отрезок');
    Write('x1 = '); Read(x21);
    Write('y1 = '); Readln(y21);
    Write('x2 = '); Read(x22);
    Write('y2 = '); Readln(y22);
    if (y22-y21)*(x12-x11)-(x22-x21)*(y12-y11)=0 then 
        if ((x22-x21)*(y11-y21)-(x11-x21)*(y22-y21)=0)or((x12-x11)*(y11-y21)-(y12-y11)*(x11-x21)=0) then
            writeln('Отрезки лежат на одной прямой')
            else Writeln('Отрезки лежат на параллельных прямых')
        else begin
    u1:=((x22-x21)*(y11-y21)-(x11-x21)*(y22-y21))/((y22-y21)*(x12-x11)-(x22-x21)*(y12-y11));
    u2:=((x12-x11)*(y11-y21)-(y12-y11)*(x11-x21))/((y22-y21)*(x12-x11)-(x22-x21)*(y12-y11));
    if (u1>=0)and(u1<=1)xor(u2>=0)and(u2<=1) then Writeln('Отрезки не пересекаются');
    if (u1>=0)and(u1<=1)and(u2>=0)and(u2<=1) then
        Writeln('Точка пересечения: (',x11+u1*(x12-x11),';',y11+u1*(y12-y11),')');
    end;
END.

По скольку нужно это всё дело оформить в delphi с рисованием самих отрезков на форме и тому подобного, переделал всё это таким образом:

Delphi

begin
if Mst(Edit_x11) or Mst(Edit_x12) or Mst(edit_y11) or Mst(edit_y12)
 or Mst(edit_x21) or Mst(edit_x22) or Mst(edit_y21) or Mst(edit_y22)
   then ShowMessage('Не все координаты введены')
   else    begin
    x11 := StrToFloat (Edit_x11.Text);
    x12 := StrToFloat (Edit_x12.Text);
    y11 := StrToFloat (Edit_y11.Text);
    y12 := StrToFloat (Edit_y12.Text);
    x21 := StrToFloat (Edit_x21.Text);
    x22 := StrToFloat (Edit_x22.Text);
    y21 := StrToFloat (Edit_y21.Text);
    y22 := StrToFloat (Edit_y22.Text);
    if (y22-y21)*(x12-x11)-(x22-x21)*(y12-y11)=0 then
        if ((x22-x21)*(y11-y21)-(x11-x21)*(y22-y21)=0)or((x12-x11)*(y11-y21)-(y12-y11)*(x11-x21)=0) then
            mess:=('Отрезки находятся на одной прямой')
            else mess:=('Отрезки находятся на параллельных прямых')
        else begin
    u1:=((x22-x21)*(y11-y21)-(x11-x21)*(y22-y21))/((y22-y21)*(x12-x11)-(x22-x21)*(y12-y11));
    u2:=((x12-x11)*(y11-y21)-(y12-y11)*(x11-x21))/((y22-y21)*(x12-x11)-(x22-x21)*(y12-y11));
    if (u1>=0)and(u1<=1)xor(u2>=0)and(u2<=1) then mess:=('Отрезки не пересекаются');
    if (u1>=0)and(u1<=1)and(u2>=0)and(u2<=1) then
        mess:=('Отрезки имеют одну общую точку');
  Label_R.Caption := mess;
  end;
  begin
with Canvas do
 
 
begin
Image1.Picture:= nil;
Image1.Canvas.Pen.Color:=clRed;
Image1.Canvas.Pen.Width:=3;
Image1.Canvas.MoveTo(Round(x11),Round(y11));
Image1.Canvas.LineTo(Round(x12),Round(y12));
Image1.Canvas.Pen.Color:=clGreen;
Image1.Canvas.MoveTo(Round(x21),Round(y21));
Image1.Canvas.LineTo(Round(x22),Round(y22));
 
end;
end;
end;
end;

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

DenNik · 11.05.2017, 09:37

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

Определите количество общих точек у двух отрезков, заданных координатами своих концов.

дикое описание задачи.
общая точка у двух отрезков может быть только одна - это точка пересечения. а у тебя общая точка нашлась у параллельных отрезков. это как?

я предполагаю, что общими (вернее. одинаковыми, но никак не общими) в данной задаче считаются одна из координат, как на последнем рисунке. ну так давайте называть вещи своими именами, а то Евклид в гробу перевернется

@Puporev · 11.05.2017, 10:48

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

Определите количество общих точек у двух отрезков,

Может быть 3 варианта: 1(пересекаются), 0(не пересекаются), бесконечное количество(частично или полностью совпадают).

DenNik · 11.05.2017, 11:12

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

бесконечное количество(частично или полностью совпадают).

Puporev, имеется в виду, меньший отрезок полностью лежит на большем?

@Puporev · 11.05.2017, 11:15

Да если хоть какая-то часть одного отрезка совпадает с какой-то частью другого.

DenNik · 11.05.2017, 11:18

блин, я в какой-то момент подумал об отрезках как о прямых и хотел возмутиться "как они могут частично совпадать?"

@twofourty · 11.05.2017, 15:38 **[ТС]**

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

Delphi

    if (y22-y21)*(x12-x11)-(x22-x21)*(y12-y11)=0 then
        if ((x22-x21)*(y11-y21)-(x11-x21)*(y22-y21)=0)or((x12-x11)*(y11-y21)-(y12-y11)*(x11-x21)=0) then
            mess:=('Отрезки находятся на одной прямой')
            else mess:=('Отрезки находятся на параллельных прямых')
        else begin

@Animalia · 11.05.2017, 18:19

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

Ни разу сообщение об выполнении одного из этих условий не выводилось.

И не будет. Вообще. Никогда.
Раз в два тря дня на форуме всплывает эта проблема, о которой почему то не говорят на лекциях.
Вещественные типы сравнивать на равенство нельзя. Больше, меньше - пожалуйста, на равенство НЕЛЬЗЯ! Точнее сравнить вы можете, ни кто не запрещает, но они почти никогда не будут равны. Почти, потому как их можно сравнить только если их значения представимы в виде конечной двоичной дроби вида m/2ⁿ.
Если вы запишите X:=0,1 думаете там будет 0,1? Да ни разу. На самом деле 0,100000000000000006.
Поэтому If x=0,1 then никогда не выполнится.
Прочтите, что такое Машинный эпсилон.
Все еще хотите сравнить? ОК. Сравнивайте модуль от числа с числом близким к нулю для данного типа.

Delphi

1	if abs((y22-y21)(x12-x11)-(x22-x21)(y12-y11)) < 1.0E-37 then

И это для Single, у вас Double (real - устаревший тип, замена ему Double) значит сравниваем с 2,3E−307

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

var x11,x12,x21,x22,y11,y12,y21,y22,u1,u2: real;

Почему? Зачем?! Зачем вам вещественный тип данных, хотя судя по скринам все числа у вас целые?! Эх, хорошо хоть не Extended.

DenNik Житель Земли 2999 / 2998 / 391 Регистрация: 26.07.2011 Сообщений: 11,463 Записей в блоге: 1
	11.05.2017, 09:37	2
	Сообщение от twofourty Определите количество общих точек у двух отрезков, заданных координатами своих концов. дикое описание задачи. общая точка у двух отрезков может быть только одна - это точка пересечения. а у тебя общая точка нашлась у параллельных отрезков. это как? я предполагаю, что общими (вернее. одинаковыми, но никак не общими) в данной задаче считаются одна из координат, как на последнем рисунке. ну так давайте называть вещи своими именами, а то Евклид в гробу перевернется 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	11.05.2017, 10:48	3
	Сообщение от twofourty Определите количество общих точек у двух отрезков, Может быть 3 варианта: 1(пересекаются), 0(не пересекаются), бесконечное количество(частично или полностью совпадают). 0

DenNik Житель Земли 2999 / 2998 / 391 Регистрация: 26.07.2011 Сообщений: 11,463 Записей в блоге: 1
	11.05.2017, 11:12	4
	Сообщение от Puporev бесконечное количество(частично или полностью совпадают). Puporev, имеется в виду, меньший отрезок полностью лежит на большем? 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	11.05.2017, 11:15	5
	Да если хоть какая-то часть одного отрезка совпадает с какой-то частью другого. 0

DenNik Житель Земли 2999 / 2998 / 391 Регистрация: 26.07.2011 Сообщений: 11,463 Записей в блоге: 1
	11.05.2017, 11:18	6
	блин, я в какой-то момент подумал об отрезках как о прямых и хотел возмутиться "как они могут частично совпадать?" 0

Опции темы