Вывести все точки внутри окружности (Prolog)

Программирование Помощь с решением задач на Prolog Вывести все точки внутри окружности (Prolog)

Помечено: ,

В этой теме 1 ответ, 2 участника, последнее обновление 3 нед., 3 дн. назад.

  • Автор
    Сообщения
  • #5574
    @mihail

    Вывести все точки принадлежащие кругу с центром в точке (2,5) и радиусом R=1,8

  • #5575
    @admin

    Вам понадобится функция вычисления расстояния между точками. Следующим образом можно проверить что точка находится внутри окружности:

    inner(Point, circle(Center, Radius)):-
        distance(Point, Center, Distance),
        Distance < Radius.

    Что требуется сделать дальше — не понятно. Точек внутри круга бесконечно много. Если точки находятся в базе данных — то выбираете точку и передаете в эту функцию…

    Я писал на SWI Prolog, но на Visual переписать не очень трудно.

Для ответа в этой теме необходимо авторизоваться.