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)