Найти все квадраты!

@Kissa · Регистрация: 14.11.2011

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

Сформировать список структур. Из исходного списка
сформировать новый список структур (в соответствии с вариантом задания) и
вывести его на экран. Определены структуры: «точка» (координата_X,
координата_Y), «отрезок» (точка, точка), «треугольник» (точка, точка, точка),
«четырехугольник» (точка, точка, точка, точка).
Посмотрите пожалуйста что то не получается!

Prolog

domains
  точка=коор(integer,integer)
  четырехуг=четыр(точка,точка,точка,точка)
  номер=symbol
predicates
  фигура(номер,четырехуг)
  квадрат(symbol)
clauses
  фигура(первый,четыр(коор(2,2),коор(2,6),коор(6,6),
                      коор(6,2))).
  фигура(второй,четыр(коор(2,2),коор(2,8),коор(9,8),
                      коор(9,2))).
  фигура(третий,четыр(коор(4,4),коор(4,7),коор(7,7),
                      коор(7,4))).
  квадрат(номер):-фигура(номер,четыр(коор(X,Y),
               коор(X1,Y1),коор(X2,Y2),коор(X3,Y3))),
               SX1=X1-X,SY1=Y1-Y,SX2=X2-X1,
               SY2=Y2-Y1,SX3=X3-X2,SY3=Y3-Y2,
               SX4=X-X3,SY4=Y-Y3,
               sqrt(SX1*SX1+SY1*SY1)=
               sqrt(SX3*SX3+SY3*SY3),
               sqrt(SX2*SX2+SY2*SY2)=
               sqrt(SX4*SX4+SY4*SY4),
               sqrt(SX3*SX3+SY3*SY3)=
               sqrt(SX2*SX2+SY2*SY2).

@Грымзик · 17.01.2012, 17:55

Названия переменных с большой буквы пишутся.

Prolog

1	квадрат(Номер):-фигура(Номер,....)

И sqrt излишне.

	17.01.2012, 17:55