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

@deform88 · Регистрация: 12.06.2014

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

@APALoff · 13.06.2014, 02:55

Pascal

Function Pryamoug(Ax,Ay,Bx,By,Cx,Cy,Dx,Dy : Integer) : Boolean;
  Function Leng(x1,y1,x2,y2 : Integer) : Real;
  Begin
    Leng:=Sqrt(sqr(x2-x1)+sqr(y2-y1));
  end;
Begin
   Pryamoug:=((Leng(Ax,Ay,Cx,Cy)=Lengt(Bx,By,Dx,Dy)) and 
              (Leng(Ax,Ay,Bx,By)=Lengt(Cx,Cy,Dx,Dy)) and
              (Leng(Ax,Ay,Dx,Dy)=Lengt(Bx,By,Cx,Cy)));
end;

@Sergio Leone · 13.06.2014, 10:42

идея понравилась! а я уж думал, придётся копать в сторону перпендикуляров.

Идея отличная, а вот реализация требует маленькой доработки.

во-первых, Lengt - нет такой функции.

// понимаю, банальная опечатка

а во-вторых, нельзя вещественые числа так просто сравнивать!
Их обязательно нужно сравнивать с допустимой погрешностью.
ну, так, например,
if Abs(len1 - len2)<0.0001 // тогда равны Len1 и Len2

@Puporev · 13.06.2014, 10:52

Сообщение от Sergio Leone

во-первых, Lengt - нет такой функции.

Кто это сказал? А это что?

Pascal

 Function Leng(x1,y1,x2,y2 : Integer) : Real;
  Begin
    Leng:=Sqrt(sqr(x2-x1)+sqr(y2-y1));
  end;

@Sergio Leone · 13.06.2014, 12:07

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

Кто это сказал? А это что?

Lengt

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

Function Leng(x1,y1,x2,y2 : Integer) : Real;

реально разницы не видно?

@APALoff · 13.06.2014, 14:36

Да опечатался.
И на счет сравнения вещественных значений согласен.

Все таки было 3 ночи когда писал... уже почти заснул =)

@Sergio Leone · 13.06.2014, 15:24

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

Все таки было 3 ночи когда писал... уже почти заснул =)

да я всё понимаю. я же пост написал не с целью обидеть Вас или "принизить" ваше решение, а для того, чтобы показать автору темы, как его правильно использовать.
А решение, повторяю, отличное!

@deform88 0 / 0 / 0 Регистрация: 12.06.2014 Сообщений: 18
		1
	Составить программу, которая определяла бы, является ли данный четырехугольник прямоугольником 12.06.2014, 22:51. Показов 4649. Ответов 6 Метки нет (Все метки) пусть даны координаты вершин четырехугольника. Составьте программу,которая определяла бы,является ли данный четырехугольник прямоугольником. 0

@Sergio Leone 2509 / 1130 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	13.06.2014, 10:42	3
	идея понравилась! а я уж думал, придётся копать в сторону перпендикуляров. Идея отличная, а вот реализация требует маленькой доработки. во-первых, Lengt - нет такой функции. // понимаю, банальная опечатка а во-вторых, нельзя вещественые числа так просто сравнивать! Их обязательно нужно сравнивать с допустимой погрешностью. ну, так, например, if Abs(len1 - len2)<0.0001 // тогда равны Len1 и Len2 0

@Sergio Leone 2509 / 1130 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	13.06.2014, 12:07	5
	Сообщение от Puporev Кто это сказал? А это что? Lengt Сообщение от Puporev Function Leng(x1,y1,x2,y2 : Integer) : Real; реально разницы не видно? 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	13.06.2014, 14:36	6
	Да опечатался. И на счет сравнения вещественных значений согласен. Все таки было 3 ночи когда писал... уже почти заснул =) 1

@Sergio Leone 2509 / 1130 / 582 Регистрация: 07.06.2014 Сообщений: 3,286
	13.06.2014, 15:24	7
	Сообщение от APALoff Все таки было 3 ночи когда писал... уже почти заснул =) да я всё понимаю. я же пост написал не с целью обидеть Вас или "принизить" ваше решение, а для того, чтобы показать автору темы, как его правильно использовать. А решение, повторяю, отличное! 1

Опции темы