SICP 习题2.3 计算矩形面积和周长

关注

原创最新推荐文章于 2026-05-19 09:34:14 发布 828 阅读 AI 写同款· GEO 优化 ›

如何求面积矩_【中考专题】面积系列之铅垂法求三角形的面积是几何题中常见问题之一，可用的方法也比较多，比如面积公式、割补、等积变形、三角函数甚至海伦公式，本文介绍的方法是在二次函数问题中常用的一种求面积的方法——铅垂法．问题描述在平面直角坐标系中，已知A(1,1)、B(7,3)、C(4,7)，求△ABC的面积．【分析】显然对于这样一个位置的三角形，面积公式并不太好用，割补倒是可以一试，比如这样：构造矩形ADEF，用矩形面积减去三个三角形面积... 阅读详情

我是用两个点表示的一个矩形，矩形的左下方的点和右上方的点。

还有一种方法可以用一个左下方的点，一个长，一个宽就可以了。

建立抽象屏障就是要求每个表示方法都能求出一个矩形的长和宽，根据这两个信息，就可以求出矩形面积和周长。

(define make-rect cons)
(define s-rect car)
(define e-rect cdr)

(define make-point cons)
(define x-point car)
(define y-point cdr)

(define rect-width
  (lambda (rect)
    (- (x-point (e-rect rect)) 
       (x-point (s-rect rect)))))

(define rect-heigth
  (lambda (rect)
    (- (y-point (e-rect rect))
       (y-point (s-rect rect)))))

(define rect-area
  (lambda (rect)
    (* (rect-width rect)
       (rect-heigth rect))))

(define rect-perimeter
  (lambda (rect)
    (* (+ (rect-width rect)
      (rect-heigth rect))
       2)))

(define rect 
  (make-rect (make-point 1 2) (make-point 3 4)))

(newline)
(display (rect-area rect))
(newline)
(display (rect-perimeter rect))