VPF::Помогите разобраться с задачей

roalang

Дата 24.3.2009, 10:50 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 66
Регистрация: 30.3.2008

Репутация: нет
Всего: нет

Дана задача: определите функцию (f a b c), которая равна истине тогда и только тогда, когда из отрезков с длинами a,b и c можно построить треугольник. Не могу сообразить как построить условие.

Код


(defun f( a b c)
(if (not null f)

а дальше не получается :(

kosmonaFFFt

Дата 24.3.2009, 20:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 538
Регистрация: 14.4.2008
Где: Иннополис

Репутация: нет
Всего: 5

Код


(defun f (a b c)
  (< c (+ a b)))

оно?

--------------------

VH_

Дата 24.3.2009, 21:24 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 182
Регистрация: 31.10.2006

Репутация: 10
Всего: 11

Код

(defun F (a b c)
  (and
   (< c (+ a b))
   (> c (- a b))))

adejneka

Дата 25.3.2009, 22:37 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 105
Регистрация: 8.7.2005
Где: Москва, Россия

Репутация: 9
Всего: 11

Теперь моя очередь вспоминать школьную геометрию:

Код


(defun F (a b c)
  (and
   (< c (+ a b))
   (> c (abs (- a b)))))

или так:

Код


(defun F (a b c)
  (and
   (< c (+ a b))
   (< a (+ b c))
   (< b (+ c a))))

_sg

Дата 25.4.2014, 07:14 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 119
Регистрация: 16.5.2007

Репутация: 2
Всего: 2

как вариант:

Код


(defun triangle (a b c)
  (< (abs (- a b)) c (+ a b)))

> (triangle 2 2 3)
T
> (triangle 1 2 3)
NIL
> (triangle 2 1 3)
NIL

--------------------

vk.com/ansicommonlisp

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| LISP \| Следующая тема »