SICP по-русски

Конструктор получается достаточно прямолинейно по формулам

lower-bound = center - center * percent / 100,
upper-bound = center + center * percent / 100:

(define (make-center-percent c p)
  (let ((w (* c (/ p 100))))
    (make-interval (- c w) (+ c w))))

Еще проще выразить конструктор через имеющийся make-center-width. 

Селектор для percent можно получить, воспользовавшись таким математическим результатом, выразив percent из последней формулы для конструктора:

percent = (upper-bound - center) / center * 100 = (upper-bound - (lower-bound + upper-bound)/2) / [(lower-bound + upper-bound)/2] * 100 = (upper-bound - lower-bound) / (upper-bound + lower-bound) * 100

Соответственно селектор примет следующий вид:

(define (percent i)
  (let ((l (lower-bound i)) (u (upper-bound i)))
    (* 100 (/ (- u l) (+ u l)))))

И действительно:

> (make-center-percent 400 3)
(388 . 412)

> (percent (make-center-percent 400 3))
3