Вычислить площадь закрашенной области

@_sg · Регистрация: 12.05.2012

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

Определить функцию, возвращающую площадь закрашенной области.

@_sg · 01.06.2020, 10:47 **[ТС]**

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

Lisp

(defun curved-rectangle (n m a b c d)
  (- (* n m) (curved a) (curved b)
     (curved c) (curved d)))
 
(defun curved (r)
  (cond ((zerop r) 0)
        ((minusp r) (sector r))
        ((sine-sector r))))
 
(defun sine-sector (r)
  (- (* r r) (sector r)))
 
(defun sector (r)
  (/ (* pi (* r r)) 4))
 
> (curved-rectangle 20 30 4 -10 6 -5)
490.6659340719862734L0

@_sg 4699 / 4394 / 380 Регистрация: 12.05.2012 Сообщений: 3,096
		1
	Вычислить площадь закрашенной области 01.06.2020, 08:47. Показов 407. Ответов 1 Метки нет (Все метки) Определить функцию, возвращающую площадь закрашенной области. Миниатюры 0

	01.06.2020, 10:47

Опции темы