Racket sheme 语言编程示例

Racket sheme 语言编程示例

时间:
2015-02-28 21:37

作者:
lsgxeva

分类:
我的笔记>>基础深入>>scheme

摘要:
Racket sheme 语言编程示例

标签:
Racket sheme 语言编程示例

提示:
文章均来自网络,版权为原作者所有,如有侵犯权益,请联络我们.

#
||

|----------------------------------------------

|
Source
File
Header
Section

|----------------------------------------------

|
Copyright
(
C
)
,
2008-2016
,
LSGX
.

|
lsgxeva
team
.
All
rights
reserved
.

|

|
@文件名称
3.3
-函数复合练习-3
.
3.4
.
rkt

|
@项目模块
3.3
-函数复合练习

|
@作者/公司
jjx/LSGX

|
@邮箱
lsgxthink@163
.
com

|
@版本
V1
.
0

|
@日期
2016-02-13
22
:55:26

|
@指令集架构
x86

|
@操作系统
Linux
,
FreeBSD

|
@编译器
Racket
V6
.
1.1

|
@描述
根据管道的内半径和厚度以及高度计算表面积

|
@许可证
MIT

|
@链接 http://git .
oschina
.
net/lsgx

|
@文件源
无

|
@其它说明
无

|

|
@修订历史

|----------------------------------------------

|
@@编号
1001

|
@@版本
V1
.
0

|
@@日期
2016-02-13
22
:55:26

|
@@作者
jjx
<lsgxthink
AT
163
DOT
com>

|
@@模块名
3.3
-函数复合练习

|
@@修订类别
新功能

|
@@影响范围
3.3
-函数复合练习

|
@@简要描述
根据管道的内半径和厚度以及高度计算表面积

|

|
@@详细描述

|
**************

|
根据管道的内半径和厚度以及高度计算表面积

|

|----------------------------------------------

|#

#
lang
racket

#
||

|----------------------------------------------

|
Multi-Include-Prevent
Section

|----------------------------------------------

|#

#
||

|----------------------------------------------

|
Debug
switch
Section

|----------------------------------------------

|#

#
||

|----------------------------------------------

|
Include
File
Section

|----------------------------------------------

|#

#
||

|----------------------------------------------

|
Macro
Define
Section

|----------------------------------------------

|#

;;; <定义> 常量定义

(
define
常量_数值_PI
3.1415926
)

#
||

|----------------------------------------------

|
Structure
Define
Section

|----------------------------------------------

|#

#
||

|----------------------------------------------

|
Extern
Prototype
Declare
Section

|----------------------------------------------

|#

#
||

|----------------------------------------------

|
Extern
Variable
Declare
Section

|----------------------------------------------

|#

#
||

|----------------------------------------------

|
Global
Variable
Define
Section

|----------------------------------------------

|#

#
||

|----------------------------------------------

|
File
Static
Variable
Define
Section

|----------------------------------------------

|#

#
||

|----------------------------------------------

|
Prototype
Define
Section

|----------------------------------------------

|#

#
||

|----------------------------------------------

|
@函数名称
过程_数值_圆周长

|
@功能描述
根据半径计算圆的周长

|
@调用函数清单
无

|
@被调用函数清单

|
1
:
过程_数值_圆柱侧面积
;; 根据圆柱的半径和高度计算圆柱的侧面积

|
@被访问的数据库表
无

|
@被更新的数据库表
无

|
@被访问的磁盘文件
无

|
@被更新的磁盘文件
无

|
@输入参数

|
1
:
输入参数_数值_圆半径

|
@输出参数
无

|
@函数返回值

|
1
:
返回值_数值_圆周长
;; 正确或成功

|
@例子
无

|
@其它说明
无

|----------------------------------------------

|#

;;; <定义>

(
define
(
过程_数值_圆周长
输入参数_数值_圆半径
)

(
*
2
输入参数_数值_圆半径
常量_数值_PI
))

#
||

|----------------------------------------------

|
@函数名称
过程_数值_管道内表面积

|
@功能描述
根据管道内半径和长度计算管道外表面积

|
@调用函数清单

|
1
:
过程_数值_圆周长
;; 根据圆柱的半径和高度计算圆柱的侧面积

|
@被调用函数清单

|
1
:
过程_数值_管道表面积_复合函数版本
;; 根据管道的内半径和厚度以及长度计算管道的表面积

|
@被访问的数据库表
无

|
@被更新的数据库表
无

|
@被访问的磁盘文件
无

|
@被更新的磁盘文件
无

|
@输入参数

|
1
:
输入参数_数值_管道内半径

|
2
:
输入参数_数值_管道长度

|
@输出参数
无

|
@函数返回值

|
1
:
返回值_数值_管道内表面积
;; 正确或成功

|
@例子
无

|
@其它说明
无

|----------------------------------------------

|#

;;; <定义>

(
define
(
过程_数值_管道内表面积
输入参数_数值_管道内半径
输入参数_数值_管道长度
)

(
*
(
过程_数值_圆周长
输入参数_数值_管道内半径
)
输入参数_数值_管道长度
))

;;; <测试>

(
过程_数值_管道内表面积
30
10
)
; 预期的值 1884.9555599999999

#
||

|----------------------------------------------

|
@函数名称
过程_数值_管道外表面积

|
@功能描述
根据管道内半径和厚度以及长度计算管道外表面积

|
@调用函数清单

|
1
:
过程_数值_圆周长
;; 根据圆柱的半径和高度计算圆柱的侧面积

|
@被调用函数清单

|
1
:
过程_数值_管道表面积_复合函数版本
;; 根据管道的内半径和厚度以及长度计算管道的表面积

|
@被访问的数据库表
无

|
@被更新的数据库表
无

|
@被访问的磁盘文件
无

|
@被更新的磁盘文件
无

|
@输入参数

|
1
:
输入参数_数值_管道内半径

|
2
:
输入参数_数值_管道厚度

|
3
:
输入参数_数值_管道长度

|
@输出参数
无

|
@函数返回值

|
1
:
返回值_数值_管道外表面积
;; 正确或成功

|
@例子
无

|
@其它说明
无

|----------------------------------------------

|#

;;; <定义>

(
define
(
过程_数值_管道外表面积
输入参数_数值_管道内半径
输入参数_数值_管道厚度
输入参数_数值_管道长度
)

(
*
(
过程_数值_圆周长
(
+
输入参数_数值_管道内半径
输入参数_数值_管道厚度
))
输入参数_数值_管道长度
))

;;; <测试>

(
过程_数值_管道外表面积
30
10
10
)
; 预期的值 2513.27408

#
||

|----------------------------------------------

|
@函数名称
过程_数值_圆面积

|
@功能描述
根据半径计算圆的面积

|
@调用函数清单
无

|
@被调用函数清单

|
1
:
过程_数值_管道截面圆环表面积
;; 根据内圆半径和厚度计算管道圆环表面积

|
@被访问的数据库表
无

|
@被更新的数据库表
无

|
@被访问的磁盘文件
无

|
@被更新的磁盘文件
无

|
@输入参数

|
1
:
输入参数_数值_圆半径

|
@输出参数
无

|
@函数返回值

|
1
:
返回值_数值_圆面积
;; 正确或成功

|
@例子
无

|
@其它说明
无

|----------------------------------------------

|#

;;; <定义>

(
define
(
过程_数值_圆面积
输入参数_数值_圆半径
)

(
*
输入参数_数值_圆半径
输入参数_数值_圆半径
常量_数值_PI
))

;;; <测试>

(
过程_数值_圆面积
30
)
; 预期的值 2827.43334

#
||

|----------------------------------------------

|
@函数名称
过程_数值_管道截面圆环表面积

|
@功能描述
根据内圆半径和厚度计算管道圆环表面积

|
@调用函数清单

|
1
:
过程_数值_圆面积
;; 根据半径计算圆的面积

|
@被调用函数清单

|
1
:
过程_数值_管道表面积_复合函数版本
;; 根据管道的内半径和厚度以及长度计算管道的表面积

|
@被访问的数据库表
无

|
@被更新的数据库表
无

|
@被访问的磁盘文件
无

|
@被更新的磁盘文件
无

|
@输入参数

|
1
:
输入参数_数值_管道内半径

|
2
:
输入参数_数值_管道厚度

|
@输出参数
无

|
@函数返回值

|
1
:
返回值_数值_管道截面圆环表面积
;; 正确或成功

|
@例子
无

|
@其它说明
无

|----------------------------------------------

|#

;;; <定义>

(
define
(
过程_数值_管道截面圆环表面积
输入参数_数值_管道内半径
输入参数_数值_管道厚度
)

(
-
(
*
常量_数值_PI

(
sqr
(
+
输入参数_数值_管道内半径
输入参数_数值_管道厚度
)))

(
*
常量_数值_PI

(
sqr
输入参数_数值_管道内半径
))))

;;; <测试>

(
过程_数值_管道截面圆环表面积
30
10
)
; 预期的值 2199.1148200000002

#
||

|----------------------------------------------

|
@函数名称
过程_数值_管道表面积_复合函数版本

|
@功能描述
根据管道的内半径和厚度以及长度计算管道的表面积

|
@调用函数清单

|
1
:
过程_数值_管道内表面积
;; 根据管道内半径和长度计算管道外表面积

|
2
:
过程_数值_管道外表面积
;; 根据管道内半径和厚度以及长度计算管道外表面积

|
3
:
过程_数值_管道截面圆环表面积
;; 根据内圆半径和厚度计算管道圆环表面积

|
@被调用函数清单
无

|
@被访问的数据库表
无

|
@被更新的数据库表
无

|
@被访问的磁盘文件
无

|
@被更新的磁盘文件
无

|
@输入参数

|
1
:
输入参数_数值_管道内半径

|
2
:
输入参数_数值_管道厚度

|
3
:
输入参数_数值_管道长度

|
@输出参数
无

|
@函数返回值

|
1
:
返回值_数值_管道表面积
;; 正确或成功

|
@例子
无

|
@其它说明
无

|----------------------------------------------

|#

;;; <定义>

(
define
(
过程_数值_管道表面积_复合函数版本
输入参数_数值_管道内半径
输入参数_数值_管道厚度
输入参数_数值_管道长度
)

(
+
(
过程_数值_管道内表面积
输入参数_数值_管道内半径
输入参数_数值_管道长度
)

(
过程_数值_管道外表面积
输入参数_数值_管道内半径
输入参数_数值_管道厚度
输入参数_数值_管道长度
)

(
*
2
(
过程_数值_管道截面圆环表面积
输入参数_数值_管道内半径
输入参数_数值_管道厚度
))))

;;; <测试>

(
过程_数值_管道表面积_复合函数版本
30
10
10
)
; 预期的值 8796.45928

#
||

|----------------------------------------------

|
@函数名称
过程_数值_管道表面积_单一函数版本

|
@功能描述
根据管道的内半径和厚度以及长度计算管道的表面积

|
@调用函数清单
无

|
@被调用函数清单
无

|
@被访问的数据库表
无

|
@被更新的数据库表
无

|
@被访问的磁盘文件
无

|
@被更新的磁盘文件
无

|
@输入参数

|
1
:
输入参数_数值_管道内半径

|
2
:
输入参数_数值_管道厚度

|
3
:
输入参数_数值_管道长度

|
@输出参数
无

|
@函数返回值

|
1
:
返回值_数值_管道表面积
;; 正确或成功

|
@例子
无

|
@其它说明
无

|----------------------------------------------

|#

;;; <定义>

(
define
(
过程_数值_管道表面积_单一函数版本
输入参数_数值_管道内半径
输入参数_数值_管道厚度
输入参数_数值_管道长度
)

(
+
(
*
2
常量_数值_PI
输入参数_数值_管道内半径
输入参数_数值_管道长度
)

(
*
2
常量_数值_PI
(
+
输入参数_数值_管道内半径
输入参数_数值_管道厚度
)
输入参数_数值_管道长度
)

(
*
2
(
-
(
*
常量_数值_PI
(
sqr
(
+
输入参数_数值_管道内半径
输入参数_数值_管道厚度
)))

(
*
常量_数值_PI
(
sqr
输入参数_数值_管道内半径
))))))

;;; <测试>

(
过程_数值_管道表面积_单一函数版本
30
10
10
)
; 预期的值 8796.45928

来自为知笔记(Wiz)