Chinaunix首页 | 论坛 | 博客
  • 博客访问: 220898
  • 博文数量: 136
  • 博客积分: 2919
  • 博客等级: 少校
  • 技术积分: 1299
  • 用 户 组: 普通用户
  • 注册时间: 2011-03-11 09:08
文章分类

全部博文(136)

文章存档

2013年(1)

2011年(135)

我的朋友

分类: LINUX

2011-12-07 09:19:58

  1. ;; mht created on Nov 9, 2011

  2. ;; volume-cylinder : number number -> number
  3. ;; to conmute the volume of a cylinder given the radius of base disk and its height
  4. (define (volume-cylinder r h)
  5.   (* pi (* r r) h))
  6. ;;test
  7. (volume-cylinder 1 3)

  8. ;; area-cylinder : number number -> number
  9. ;; to consume the surface area of the cylinder given
  10. ;; the radius of base disk and its height
  11. (define (area-cylinder r h)
  12.   (/ 1 6 (volume-cylinder r h)))
阅读(387) | 评论(0) | 转发(0) |
0

上一篇:exam3.3.1

下一篇:exam3.3.5

给主人留下些什么吧!~~