Найти все треугольники, которые вписаны в окружность

@EnioGry · Регистрация: 25.12.2016

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

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

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

Нашел как генерировать список случайных числе, но мне это не помогло.

Кликните здесь для просмотра всего текста

Prolog

DOMAINS
  list = integer*
PREDICATES              
  randList(integer, list)
CLAUSES
      randList(0, []):-!.
      randList(Size, [Head|Tail]):-
        Size > 0,
          NextSize = Size - 1, random(200, Rn), !,
          Head = Rn - 100,
          randList(NextSize, Tail).  
GOAL
    write("N :"), readint(N),
    randList(N, List).

Генерировать точки хотел так (да, без рекурсии, т.к. не могу её понять после C

)

Но не понял как правильно делать интерфейс класса, как объявить точку и вообще не понятно :\
Думаю неправильное решение было делать это данным методом.

main.cl

Prolog

class main
    open core
predicates
    run : core::runnable.
end class main
class points : pointp
constructors
new : (integer X, integer Y).
end class points

resourceIdentifiers.i

Prolog

interface resourceIdentifiers
end interface resourceIdentifiers
 
interface pointp
properties
rePoint : (integer, integer).        ----- ???
end interface pointp

main.pro

Prolog

implement points
facts
point:(integer X, integer Y).
clauses
new(Точка):- point := Точка.
rePoint()=point.
rePoint(Точка):- point:=Точка.
end implement points
implement main
    open core,console,math
clauses
    run() :-
    Точка1 = points:new(random(200),random(200)),
    writef("Точка:%", Точка1:rePoint),                             ----------- и так 100 раз =-O
    _ = readchar().
end implement main
goal
    console::runUtf8(main::run).

Заранее спасибо всем откликнувшимся!

@Black Fregat · 03.02.2019, 17:42

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

все возможные треугольники вписанные в заданную окружность.

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

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

да, без рекурсии, т.к. не могу её понять после C

Вы так пишете, как будто в С нет рекурсии.
А в Прологе без рекурсии, однако, не выжить..

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

как правильно делать интерфейс класса

Да не нужно для этой задачи делать для точки отдельный класс, достаточно домена.

Prolog

domains
    point = p(real, real).
 
class predicates
    generate : (integer) -> point*.
clauses
    generate(N) = L :-
        L = [ p(math::random(), math::random()) || _ = std::cIterate(N) ].

@EnioGry · 03.02.2019, 18:09 **[ТС]**

Да нет, просто когда в университете учили С, С++, С#, нам объясняли. А здесь есть задание и просто не зная языка, например, я начинаю думать как сделал бы это на С++, потом понимаю что Prolog так не работает, а как работает..?
И все

Запутался, решил обратиться к знающим людям.

--

Prolog

1
2
3

clauses
    generate(N) = L :-
        L = [ p(math::random(), math::random()) || _ = std::cIterate(N) ].

Немного не понял как работает, особенно _ = std::cIterate(N).

Можете немного рассказать как эта строка работает и как сделать "обход" для того чтобы "сгенерировать" N треугольников и отобрать, с помощью nth0(Index, List, Elem)?

@Black Fregat · 03.02.2019, 22:51

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

Коллектор списков в старших версиях Visual Prolog - это синтаксический сахар для findall - находятся все варианты истинности предиката (группы предикатов) после || и собираются в список соответствующие значения выражения перед ||

В результате предикат делает то, что просили - собирает в список N случайных точек

@Black Fregat Фрилансер 3707 / 2079 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	03.02.2019, 22:51	4
	Если в чистом виде решать сформулированную задачу, то надо посчитать количество различных точек, лежащих на окружности, и пять от них число сочетаний по 3. Как я уже писал, если не подбирать числа как-то специально, скорее всего, таких треугольников будет 0. Коллектор списков в старших версиях Visual Prolog - это синтаксический сахар для findall - находятся все варианты истинности предиката (группы предикатов) после \|\| и собираются в список соответствующие значения выражения перед \|\| В результате предикат делает то, что просили - собирает в список N случайных точек 0

Опции темы