文档章节

Math 中常用的数学函数

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 540
阅读 8
收藏 0
//整除与余数: DivMod
const
  a = 11;
  b = 3;
var
  x,y: Word;
begin
  ShowMessage(IntToStr(a div b)); {整除得 3}
  ShowMessage(IntToStr(a mod b)); {余数 2}

  DivMod(a,b,x,y);
  ShowMessage(IntToStr(x)); {3}
  ShowMessage(IntToStr(y)); {2}
end;

 
 
 
 
 

 

 

  
//返回整数: Ceil、Floor var d1,d2: Real; const d = 1.2; begin {向大补入} d1 := Ceil(d); d2 := Ceil(-d); ShowMessage(FloatToStr(d1)); {2} ShowMessage(FloatToStr(d2)); {-1} {向小舍入} d1 := Floor(d); d2 := Floor(-d); ShowMessage(FloatToStr(d1)); {1} ShowMessage(FloatToStr(d2)); {-2} end;
//最大值与最小值: Max、Min var d: Real; begin d := Max(5.2, -2); ShowMessage(FloatToStr(d)); {5.2} d := Min(5.2, -2); ShowMessage(FloatToStr(d)); {-2} end;
//Double 数组求和: Sum var d: Real; const arr: array[0..3] of Double = (1, 2, 3, -4.5); begin d := Sum(arr); {要求必须是 Double 数组} ShowMessage(FloatToStr(d)); {1.5} end;
//Double 数组求平均值: Mean var arr: array[0..5] of Double; d: Double; begin arr[0] := -1.2; arr[1] := 1.0; arr[2] := 2.5; arr[3] := 3.0; arr[4] := 4.5; arr[5] := 25.0; d := Mean(arr); ShowMessage(FloatToStr(d)); {5.8} end;
//计算一个数的 n 次方: Power var d: Real; begin d := Power(3,2); {3 的 2 次方} ShowMessage(FloatToStr(d)); {9} end;
//判断在一个误差范围内, 一个数字是否为0: IsZero const d1 = 0.4; d2 = -0.1; d3 = 3; var b: Boolean; begin b := IsZero(d1, 0.4); {参数2是误差范围} ShowMessage(BoolToStr(b)); {True} b := IsZero(d2, 0.4); ShowMessage(BoolToStr(b)); {True} b := IsZero(d3, 0.4); ShowMessage(BoolToStr(b)); {False} b := IsZero(d3); {参数2是可选的, 默认是0} ShowMessage(BoolToStr(b)); {False} end;
//比较两个参数在一定误差范围内是否相等: SameValue var b: Boolean; begin b := SameValue(1.2, 1.21, 0.01); {误差是 0.01} ShowMessage(BoolToStr(b)); {True} b := SameValue(1.2, 1.21); {误差默认是 0} ShowMessage(BoolToStr(b)); {False} end;
//判断一个数的正负 var v: TValueSign; {-1..1} begin v := Sign(22); ShowMessage(IntToStr(v)); {返回 1 表示是正数} v := Sign(-22); ShowMessage(IntToStr(v)); {返回 -1 表示是负数} v := Sign(0); ShowMessage(IntToStr(v)); {返回 0 表示是 0} end;
//舍入位数: RoundTo、SimpleRoundTo var d: Real; const d1 = 1234567; d2 = 1.234; d3 = 1.235; d4 = - 1.235; begin d := RoundTo(d1,3); ShowMessage(FloatToStr(d)); {123500} d := RoundTo(d2,-2); ShowMessage(FloatToStr(d)); {1.23} d := RoundTo(d3,-2); ShowMessage(FloatToStr(d)); {1.24} d := RoundTo(d4,-2); ShowMessage(FloatToStr(d)); {-1.24} d := SimpleRoundTo(d1,3); ShowMessage(FloatToStr(d)); {123500} d := SimpleRoundTo(d2,-2); ShowMessage(FloatToStr(d)); {1.23} d := SimpleRoundTo(d3,-2); ShowMessage(FloatToStr(d)); {1.24} d := SimpleRoundTo(d4,-2); ShowMessage(FloatToStr(d)); {-1.24} {RoundTo 使用银行家舍入法; SimpleRoundTo 使用不均衡算法舍入, 适合更大的值} end;

本文转载自:http://www.cnblogs.com/del/archive/2007/12/28/1018318.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
JavaScript数学对象Math的创建与使用

Js中Math对象不用使用new创建,直接使用即可 常用的功能有,取绝对值,四舍五入,取整,随机数,取最大最小值 取绝对值:Math.abs(number) <script type="text/javascript">// 绝对值documen...

MaoKe
2015/11/14
0
0
观点 | 我们该如何学习机器学习中的数学

  选自ycombinator博客   机器之心编译   作者:Vincent Chen   参与:机器之心编辑部      数学在机器学习中非常重要,不论是在算法上理解模型代码,还是在工程上构建系统,数学...

机器之心
08/04
0
0
黑马程序员分享:Python web开发中常用的标准库

在这些年的开发过程中,深有体会的一点就是,学习一门编程语言,除了要精通它的语法以外,更需要我们去学习该门语言的标准库。标准库是多年以来,大量开发人员留给我们的宝贵财富,它涵盖了编...

传智播客
2017/02/23
180
0
C#数学计算包 Math.NET

1.Math.NET基本介绍 Math.NET官方网站:http://www.mathdotnet.com/ Math.NET的目标是为提供一款自身包含清晰框架的符号运算和数学运算/科学运算,它是C#开发的开源类库。Math.NET含了一个支...

CSharpKit
2017/12/18
0
0
必读 | 我们该如何学习机器学习中的数学

数学达到什么水平才可以开始机器学习?人们并不清楚,尤其是那些在校期间没有研究过数学或统计学的人。 本文的写作目的是介绍构建机器学习产品或进行相关学术研究所必需的数学背景,以及数学...

技术小能手
08/08
0
0

没有更多内容

加载失败,请刷新页面

加载更多

Spring Boot 使用parent方式引用时 获取值属性方式默认@

采用官网提供的 引入依赖时,application.properties中的值变量,无法通过${}获取,这是由于Spring Boot 已经将字符方式调整为 <resource.delimiter>@</resource.delimiter>。故如果在,工程中...

翱翔fly
14分钟前
1
0
HTTPS证书验证流程及SSL证书生成步骤【附nginx开启https配置】

------------------------------------------------------------ HTTPS证书验证流程(极简化版) 1.客户端向服务端请求证书(server.crt) 2.服务端下发证书(server.crt) 3.客户端用预制的...

xiaomin0322
14分钟前
1
0
预编译sql语句和参数化sql能有效防止——sql注入攻击——

预编译和参数化处理sql原理类似: 参数化处理sql 是将参数进行了字符串化处理,把参数中的单引号,井号#,等都做了转义处理,进而在执行sql语句时不会被当做sql中的定界符和指定符来执行。 ...

fang_faye
15分钟前
1
0
springboot最全配置解释

​​​​​​​# ----------------------------------------# 核心属性# ----------------------------------------# 文件编码banner.charset= UTF-8# 文件位置banner.locati...

废柴大叔
17分钟前
57
1
(大致了解下)从单机到2000万QPS: 知乎Redis平台发展与演进之路

导读:知乎存储平台团队基于开源Redis 组件打造的知乎 Redis 平台,经过不断的研发迭代,目前已经形成了一整套完整自动化运维服务体系,提供很多强大的功能。本文作者是是该系统的负责人,文...

Ocean_K
24分钟前
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部