pascal函数过程表

作者&投稿:仲孙娴 (若有异议请与网页底部的电邮联系)
free pascal的函数过程大全~

其实一般来说用不到的,这些就很全了
只要一些很常用的就够了

abs 函数 绝对值函数
addexitproc 函数 将一过程添加到运行时库的结束过程表中
addr 函数 返回指定对象的地址
adjustlinebreaks 函数 将给定字符串的行分隔符调整为cr/lf序列
align 属性 使控件位于窗口某部分
alignment 属性 控件标签的文字位置
allocmem 函数 在堆栈上分配给定大小的块
allowgrayed 属性 允许一个灰度选择
ansicomparestr 函数 比较字符串(区分大小写)
ansicomparetext 函数 比较字符串(不区分大小写)
ansilowercase 函数 将字符转换为小写
ansiuppercase 函数 将字符转换为大写
append 函数 以附加的方式打开已有的文件
arctan 函数 余切函数
assignfile 函数 给文件变量赋一外部文件名
assigned 函数 测试函数或过程变量是否为空
autosize 属性 自动控制标签的大小
backgrounddi2001.jpg 属性 背景色
beginthread 函数 以适当的方式建立用于内存管理的线程
bevelinner 属性 控件方框的内框方式
bevelouter 属性 控件方框的外框方式
bevelwidth 属性 控件方框的外框宽度
blockread 函数 读一个或多个记录到变量中
blockwrite 函数 从变量中写一个或多个记录
borderstyle 属性 边界类型
borderwidth 属性 边界宽度
break 命令 终止for、while、repeat循环语句
brush 属性 画刷
caption 属性 标签文字的内容
changefileext 函数 改变文件的后缀
chdir 函数 改变当前目录
checked 属性 确定复选框选中状态
chr 函数 返回指定序数的字符
closefile 命令 关闭打开的文件
color 属性 标签的颜色
columns 属性 显示的列数
comparestr 函数 比较字符串(区分大小写)
concat 函数 合并字符串
continue 命令 继续for、while、repeat的下一个循环
copy 函数 返回一字符串的子串
cos 函数 余弦函数
ctl3d 属性 是否具有3d效果
cursor 属性 鼠标指针移入后的形状
date 函数 返回当前的日期
datetimetofiledate 函数 将delphi的日期格式转换为dos的日期格式
datetimetostr 函数 将日期时间格式转换为字符串
datetimetostring 函数 将日期时间格式转换为字符串
datetostr 函数 将日期格式转换为字符串
dayofweek 函数 返回星期的数值
dec 函数 递减变量值
decodedate 函数 将日期格式分解为年月日
decodetime 函数 将时间格式分解为时、分、秒、毫秒
delete 函数 从字符串中删除子串
deletefile 命令 删除文件
diskfree 函数 返回剩余磁盘空间的大小
disksize 函数 返回指定磁盘的容量
dispose 函数 释放动态变量所占的空间
disposestr 函数 释放字符串在堆栈中的内存空间
ditherbackgrounddi2001.jpg?使背景色的色彩加重或减少50%
dragcursor 属性 当鼠标按下时光标的形状
dragmode 属性 按动的作用方式
dropdowncount 属性 容许的显示数据项的数目
editmask 属性 编辑模式
enabled 属性 是否使标签呈现打开状态
encodedate 函数 将年月日合成为日期格式
encodetime 函数 将时、分、秒、毫秒合成为时间格式
endmargin 属性 末尾边缘
eof 函数 对有类型或无类型文件测试是否到文件尾
eoln 函数 返回文本文件的行结束状态
erase 命令 删除外部文件
exceptaddr 函数 返回引起当前意外的地址
exclude 函数 从集合中删除一些元素
exceptobject 函数 返回当前意外的索引
exit 命令 立即从当前的语句块中退出
exp 函数 指数函数
expandfilename 函数 返回包含绝对路径的字符串
extendedselect 属性 是否允许存在选择模式,true时,multiselect才有意义
extractfiledir 函数 返回驱动器和路径
extractfileext 函数 返回文件的后缀
extractfilename 函数 返回文件名
extractfilepath 函数 返回指定文件的路径
fileage 函数 返回文件已存在的时间
fileclose 命令 关闭指定的文件
filecreate 命令 用指定的文件名建立新文件
filedatetodatetime 函数 将dos的日期格式转换为delphi的日期格式
fileexists 函数 检查文件是否存在
filegatattr 函数 返回文件的属性
filegetdate 函数 返回文件的dos日期时间标记
fileopen 命令 用指定的存取模式打开指定的文件
filepos 函数 返回文件的当前指针位置
fileread 命令 从指定的文件读取
filesearch 命令 在目录中搜索指定的文件
fileseek 函数 改变文件的指针
filesetattr 函数 设置文件属性
filesetdate 函数 设置文件的dos日期时间标记
filesize 函数 返回当前文件的大小
filewrite 函数 对指定的文件做写操作
fillchar 函数 用指定的值填充连续字节的数
findclose 命令 终止findfirst/findnext序列
findfirst 命令 对指定的文件名及属性搜索目录
findnext 命令 返回与文件名及属性匹配的下一入口
floattodecimal 函数 将浮点数转换为十进制数
floattostrf 函数 将浮点数转换为字符串
floattostr 函数 将浮点数转换为字符串
floattotext 函数 将给定的浮点数转换为十进制数
floattotextfmt 函数 将给定的浮点数转换为十进制数
flush 函数 将缓冲区的内容刷新到输出的文本文件中
fmtloadstr 函数 从程序的资源字符串表中装载字符串
fmtstr 函数 格式化一系列的参数,其结果以参数result返回
font 属性 设置字体
format 函数 格式化一系列的参数并返回pascal字符串
formatbuf 函数 格式化一系列的参数
formatdatetime 函数 用指定的格式来格式化日期和时间
formatfloat 函数 指定浮点数格式
frac 函数 返回参数的小数部分
freemem 函数 按给定大小释放动态变量所占的空间
getdir 返回指定驱动器的当前目录
getheapstatus 返回内存管理器的当前状态
getmem 建立一指定大小的动态变量,并将指针指向该处
getmemorymanager 返回内存管理器的入口点
glyph 函数 按钮上的图象
halt 停止程序的执行并返回到操作系统
hi 返回参数的高地址位
high 返回参数的上限值
hint 属性 提示信息
int 返回参数的整数部分
include 添加元素到集合中
insert 在字符串中插入子串
inttohex 将整型数转换为十六进制数
inttostr 将整型数转换为字符串
ioresult 返回最新的i/o操作完成状态
isvalidident 测试字符串是否为有效的标识符
items 属性 默认显示的节点
kind 属性 摆放样式
largechange 属性 最大改变值
layout 属性 图象布局
length 函数 返回字符串的动态长度
lines 属性 缺省显示内容
ln 函数 自然对数函数
lo 函数 返回参数的低地址位
loadstr 函数 从应用程序的可执行文件中装载字符资源
lowercase 函数 将给定的字符串变为小写
low 函数 返回参数的下限值
max 属性 最大值
maxlength 属性 最大长度
min 属性 最小值
mkdir 命令 建立一子目录
mod 符号随被除数
move 函数 从源到目标复制字节
multiselect 属性 允许同时选择几个数据项
name 属性 控件的名字
new 函数 建立新的动态变量并设置一指针变量指向他
newstr 函数 在堆栈上分配新的字符串
now 函数 返回当前的日期和时间
odd 测试参数是否为奇数
onactivate 事件 焦点移到窗体上时触发
onclick 事件 单击窗体空白区域触发
ondblclick 事件 双击窗体空白区域触发
onclosequery 事件 使用者试图关闭窗体触发
onclose 事件 窗体关闭后才触发
oncreate 事件 窗体第一次创建时触发
ondeactivate 事件 用户切换到另一应用程序触发
ondragdrop 事件 鼠标拖放操作结束时触发
ondragover 事件 有其他控件从他上面移过触发
onmousedown 事件 按下鼠标键时触发
onmouseup 事件 释放鼠标键时触发
onmousemove 事件 移动鼠标时触发
onhide 事件 隐藏窗体时触发
onkeydown 事件 按下键盘某键时触发
onkeypress 事件 按下键盘上的单个字符键时触发
onkeyup 事件 释放键盘上的某键时触发
onpaint 事件 窗体上有新部分暴露出来触发
onresize 事件 重新调整窗体大小触发
onshow 事件 在窗体实际显示之前瞬间触发
ord 返回序数类的序数
outlinestyle 属性 类型
outofmemoryerror 引起outofmemory意外
pageindex 属性 页索引
pages 属性 页
paramcount 函数 返回在命令行上传递给程序的参数数量
paramstr 函数 返回指定的命令行参数
pen 属性 画刷设置
pi 函数 返回圆周率pi
picture 属性 显示图象
pictureclosed 属性 设置closed位图
pictureleaf 属性 设置leaf位图
pictureminus 属性 设置minus位图
pictureopen 属性 设置open位图
pictureplus 属性 设置plus位图
pos 函数 在字符串中搜索子串
pred 函数 返回先前的参数
random 函数 返回一随机函数
randomize 函数 用一随机数初始化内置的随机数生成器
read 函数 对有格式的文件,读一文件组件到变量中;
对文本文件,读一个或多个值到一个或多个变量中
readln 函数 执行read过程,然后跳到文件下一行
readonly 属性 只读属性
reallocmem 函数 分配一动态变量
rename 函数 重命名外部文件
renamefile 函数 对文件重命名
reset 函数 打开已有的文件
rewrite 函数 建立并打开一新的文件
rmdir 函数 删除空的子目录
round 函数 将实数值舍入为整型值
runerror 函数 停止程序的执行
scrollbars 属性 滚动条状态
seek 函数 将文件的当前指针移动到指定的组件上
seekeof 函数 返回文件的文件结束状态
seekeoln 函数 返回文件的行结束状态
selectedcolor 属性 选中颜色
setmemorymanager 函数 设置内存管理器的入口点
settextbuf 函数 给文本文件指定i/o缓冲区
shape 属性 显示的形状
showexception 函数 显示意外消息与地址
sin 函数 正弦函数
sizeof 函数 返回参数所占的字节数
smallchange 属性 最小改变值
sorted 属性 是否允许排序
sqr 函数 平方函数
sqrt 函数 平方根函数
startmargin 属性 开始边缘
state 属性 控件当前状态
str 函数 将数值转换为字符串
stralloc 函数 给以null结束的字符串分配最大长度-1的缓冲区
strbufsize 函数 返回存储在由stralloc分配的字符缓冲区的最大字符数
strcat 函数 将一字符串附加到另一字符串尾并返回合并的字符串
strcomp 函数 比较两个字符串
strcopy 函数 将一个字符串复制到另一个字符串中
strdispose 函数 释放堆栈上的字符串
strecopy 函数 将一字符串复制到另一个字符串并返回结果字符串尾部的指针
strend 函数 返回指向字符串尾部的指针
stretch 属性 自动适应控件的大小
strfmt 函数 格式化一系列的参数
stricomp 函数 比较两个字符串(不区分大小写)
stringtowidechar 函数 将ansi字符串转换为unicode字符串
strlcat 函数 将一字符串中的字符附加到另一字符串尾并返回合并的字符串
strlcomp 函数 以最大长度比较两个字符串
strlcopy 函数 将一个字符串中的字符复制到另一个字符串中
strlen 函数 返回字符串中的字符数
strlfmt 函数 格式化一系列的参数,其结果中包含有指向目标缓冲区的指针
strlicomp 函数 以最大长度比较两个字符串(不区分大小写)
strlower 函数 将字符串中的字符转换为小写
strmove 函数 将一个字符串中的字符复制到另一个字符串中
strnew 函数 在堆栈上分配一个字符串
strpas 函数 将以null结束的字符串转换为pascal类的字符串
strpcopy 函数 将pascal类的字符串复制为以null结束的字符串
strplcopy 函数 从pascal类的最大长度字符串复制为以null结束的字符串
strpos 函数 返回一个字符串在另一个字符串中首次出现指针
strrscan 函数 返回字符串中最后出现字符的指针
strscan 函数 返回字符串中出现首字符的指针
strtodate 函数 将字符串转换为日期格式
strtodatetime 函数 将字符串转换为日期/时间格式
strtofloat 函数 将给定的字符串转换为浮点数
strtoint 函数 将字符串转换为整型
strtointdef 函数 将字符串转换为整型或默认值
strtotime 函数 将字符串转换为时间格式
strupper 函数 将字符串中的字符转换为大写
style 属性 类型选择
suce 函数 返回后继的参数
swap 函数 交换参数的高低地址位
tabs 属性 标记每一项的内容
tabindex 属性 标记索引
text 属性 显示的文本
texttofloat 函数 将字符串(以null结束的格式)转换为浮点数
time 函数 返回当前的时间
timetostr 函数 将时间格式转换为字符串
trim 函数 从给定的字符串中删除前导和尾部的空格及控制字符
trimleft 函数 从给定的字符串中删除首部的空格及控制字符
trimright 函数 从给定的字符串中删除尾部的空格及控制字符
trunc 函数 将实型值截取为整型值
truncate 函数 截去当前文件位置后的内容
unselectedcolor 属性 未选中颜色
upcase 将字符转换为大写
uppercase 将给定的字符串变为大写
val 函数 将字符串转换为整型值
vararraycreate 函数 以给定的界限和维数建立变体数组
vararraydimcount 函数 返回给定变体的维数
vararrayhighbound 函数 返回给定变体数组维数的上界
vararraylock 函数 锁定给定的变体数组
vararraylowbound 函数 返回给定变体数组维数的下界
vararrayof 函数 返回指定变体的数组元素
vararrayredim 函数 通过改变上限来调整变体的大小
vararrayunlock 函数 解锁指定的变体数组
varastype 函数 将变体转换为指定的类型
varcase 函数 将变体转换为指定的类型并保存他
varclear 函数 清除指定的变体
varcopy 函数 将指定的变体复制为指定的变体
varformdatetime 函数 返回包含日期时间的变体
varisarray 函数 测试变体是否为数组
varisempty 函数 测试变体是否为unassigned
varisnull 函数 测试变体是否为null
vartodatetime 函数 将给定的变体转换为日期时间
vartype 函数 将变体转换为指定的类型并保存他
visible 属性 控件的可见性
wantreturns 属性 为true时,按回车键产生一个回车符;为false时,按下ctrl+enter才产生回车符
write 命令 对有格式的文件,写一变量到文件组件中;对文本文件,写一个或多个值到文件中
writeln 命令 执行write过程,然后输出一行结束标志
widecharlentostring 函数 将ansi字符串转换为unicode字符串
widecharlentostrwar 函数 将unicode字符串转换为ansi字符串变量
widechartostring 函数 将unicode字符串转换为ansi字符串
widechartostrvar 函数 将unicode字符串转换为ansi字符串变量

下面这段是网上找的: 主要有四点区别: 第一,函数往往只为求一个函数值,过程一般会被设计成求若干个运算结果,完成一系列的数据处理。 第二,函数有类型,最终要将函数值传送给函数名,过程无类型,不能给过程名赋值。 第三,调用方式不同,函数的调用出现在表达式中,过程的调用是由独立的过程调用语句实现的。 第四,返回值的方法不同,函数值是通过函数名传回调用程序,过程则是通过参数将运算的结果传给调用程序。 请教这四点对吗?下面是一个简单的例子: function benben(x:integer):integer;//声明函数 var //声明函数的变量z为整型 z:integer; begin //函数的作用是判断x如果不小于0,则返回值为x+1, //如果x小于0,则返回值为x+2 if x>=0 then z:=x+1 else z:=x+2; //benben:=z; Result:=z; end; procedure douya(i:integer); begin if i>=0 then showmessage('x的值大于等于0') else showmessage('x的值小于0'); end; procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin i:=benben(-10); //调用函数,把参数-10 Edit1.Text:=inttostr(i); douya(-10); end; 这里特别是第三点:函数的调用出现在表达式中?i:=benben(-10); //调用函数,把参数-10,这是一个语句不是表达式啊 第四点:过程没有返回值啊

1.算术函数
函数标识符 自变量类型 意义 结果类型
abs 整型、实型 绝对值 同自变量
arctan 整型、实型 反正切 实型
cos 整型、实型 余弦 实型
exp 整型、实型 指数 实型
frac 整型、实型 小数部分 实型
int 整型、实型 整数部分 实型
ln 整型、实型 自然对数 实型
pi 无自变量 圆周率 实型
sin 整型、实型 正弦 实型
sqr 整型、实型 平方 同自变量
sqrt 整型、实型 平方根 实型
例:abs(-4)=4 abs(-7.49)=7.49 arctan(0)=0.0
sin(pi)=0.0 cos(pi)=-1.0 frac(-3.71)=-0.71
int(-3.71)=-3.0 sqr(4)=16 sqrt(4)=2

2.标准函数
函数标识符 自变量类型 意义 结果类型
odd 整型 判断奇数 布尔型
pred 离散类型 求前趋 同自变量
succ 离散类型 求后继 同自变量
例:odd(1000)=false pred(2000)=1999 succ(2000)=2001
odd(3)=true pred('x')='w succ('x')='y'

3.转换函数
函数标识符 自变量类型 意义 结果类型
chr byte 自变量对应的字符 字符型
ord 离散类型 自变量对应的序号 longint
round 实型 四舍五入 longint
trunc 实型 截断取整 longint
例:chr(66)='B' ord('A')=65 round(-4.3)=-5 trunc(2.88)=2

4.杂类函数
函数标识符 自变量类型 意义 结果类型
random 无自变量 [0,1间的随机实数 real
random word [0,自变量间的随机整数) word
randomize 无自变量 初始化内部随机数产生器 longint
upcase 字符型 使小写英文字母变为大写 字符型
downcase 字符型 使小写英文字母变为大写 字符型

SYSTEM TP的运行库,包括常用的标准函数和过程,可以在程序中直接使用,不需USES语句说明。
DOS 具有日期、时间、目录查找、程序执行等功能
CRT 具有屏幕模式控制、扩展键盘码、颜色、窗口、声音等 功能
PRINTER 支持打印输出操作。
GRAPH 高级图形软件包,支持多种图形适配器。
GRAPH3 实现TP3.0的图形软件包。
TURBO3 兼容TP3.0的源程序。
OVERLAY 实现高级覆盖管理

SYSTEM单元常用过程与函数
ABS(X) F 求变量的绝对值
ADDR(X) F 测变量地址
APPEND(F) P 打开一个存在的文本文件,并将文件指 针指向文件末尾准备添加元素
ARCTAN(X) F 反正切
ASSIGN(F,C) P 将字符串C所表示的外部文件名赋给文 件变量F
ASSIGNED(X) P 测试程序当中的指针或变量是否为空
BLOCKREAD(F,D,NUM) P 读类型文件。
BLOCKWRITE(F,D,NUM) P 写无类型文件
BREAK P 中止或结束循环
CHDIR(PATH) P 改变当前目录
CHR(X) F 求ASCII码值为X的字符
CLOSE(F) P 关闭文件
CONCAT(S1,S2...S3) F 字符串合并
CONTINUE P 继续循环
COPY(S,POS,LEN) F 返回一个字符串的子串
COS(X) F 余弦函数
CSEG F 返回CS寄存器的当前值
DEC(X) F X:=X-1
DELETE(S,POS,LEN) P 删除一个字符串的子串
DISPOSE(P) P 释放一个动态变量
DSEG F 返回DS寄存器的当前值
EOF(F) F 判断文件是否结束
EOLN(F) F 判断文件类型中的一行是否结束
ERASE(F) P 删除一个存在的外部文件。
EXIT P 过程中止
EXP(X) F 以E为底的指数函数
FILEPOS(F) F 文件记录的当前位置
FILESIZE(F) F 文件记录数
FILLCHAR(D,LEN,DATE) P 填充数值或字符
FLUSH(F) P 清空文件缓存区
FRAC(X) F 取实形变量的小数部分
FREEMEM(P,I) P 释放变长动态变量
GETDIR(DRV,PATH) P 取当前盘,当前目录
GETMEM(P,I) P 分配变长的动态变量,并把块地址存放在一个指针变量中
HALT P 立即中止程序执行,返回TP编辑器或DOS
HI(I) F 返回一个变量的高位字节
INSERT(S,D,POS) F 在一个字符串中某一位置开始插入一个子串
INT F 取整数部分
IORESULT F 返回最后一次输入/出操作的结果状态
LENGTH(S) F 取字符串的长度
LN(R) F 求自然对数
LO(I) F 返回一个变量的低位字节
MAXAVAIL F 返回最大内存空间
MEMAVAIL F 返回可用内存数目
MKDIR(PATH) P 建立一个子目录
MOVE(S,D,LEN) P 快传送
NEW(P) P 建立一个新的动态变量
ODD(X) F 判断一个变量的值是否为奇数
OFS(X) F 侧变量偏移地址
ORD(CH) F 求一个字符的ASCII码值
PARAMCOUNT F DOS参数串长度
PARAMSTR(N) F DOS参数串
PI F 圆周率的值
pos(str1,str2) f 测一个字符串中包含的另一个子串的开始位置
pred(x) f 求前驱
ptr(i) f 指针赋值
random f 返回0~1之间的随机实数
randomize p 初始化随机数发生器
read/readln(f,x) p 读入/输入数据
rename(f,str) p 给一个外部文件改名
reset(f) p 打开文件,并将文件指针指向开始,并准备读数据
rewrite(f) p 打开文件,并将文件指针指向开始,准备写资料
rmdir(path) p 删除一个子目录
round(x) f 求实数的近似数
runerror p 停止程序的运行
scrollto p 滚动显示窗口的某部分内容
seek(f,n) p 将文件指针定位于文件f的第n个文件成分上
seekrof(f) f 定位到文件尾
seekroln(f) f 定位到行尾
seg(n) f 测变量段地址
settextbuf(f) p 将输入/出缓冲区与一个文本文件建立关联
sin(x) f 正弦函数
sizeof(x) f 测变量大小
sptr f 返回sp寄存器的当前值
sqr(x) f 平方
sqrt(x) f 平方根
sseg f 返回ss寄存器的当前值
str(i,s) f 将一个整数转换成字符串
succ(X) f 后继函数
swap(x) f 交换一个变量的高位和低位字节
trunc(x) f 截去实数的小数部分
truncate(f) p 截去文件当前指针以后的内容
upcase(ch) f 将小写字母转换成大写字母
val(s,r,p) p 将一个字符串转换成数值
writeln(f,x) p 输出
dos单元常用过程与函数
getdate p 返回系统当前日期
detftime p 返回最后一次写入的日期和时间
gettime p 返回系统当前时间
packtime p 转换系统日期和时间,封装成4个字节的长整形格式
setdate p 设置系统当前日期
setftime p 写入新的系统日期和时间,覆盖系统最后一次写入的 系统日期和时间文件
settime p 设置系统当前时间
uppacktime p 将系统日期和时间转换成纪录格式
diskfree f 返回指定磁盘可用剩余空间
disksize f 返回指定磁盘的总容量
get/setverity p 返回/设置dos状态下的磁盘读写标记
fexpand f 返回函数名的全称
fsearch f 在一个目录中查找文件
fsplit f 将一个文件名分成目录、文件名、扩展名
findfirst p 在当前目录或指定目录下查找第一个与给定属性相匹 配的文件名

作者: 巫山霏云 2005-2-7 16:49 回复此发言

--------------------------------------------------------------------------------

3 turbo pascal基本函数过程及解释
findnext p 返回下一个满足匹配条件的文件名
getfattr p 返回文件的属性
setfattr p 设置文件属性
gerintvec p 返回某个中断变量值
intr p 执行软中断
msdos p 执行dos 系统调用
setintvec p 设定中断值
exec p 通过一个特定命令行执行特定程序段
keep p 中断程序的执行但仍驻留在内存中
swapvectors p 用当前变量交换所有中断变量值
dosexitcode f 回到子程序出口
dosversion f 显示dos版本
crt单元
assigncrt(f) p 将文本文件f与显示器crt建立联系
clreol p 清除当前行光标所在位置以后的字符
clrscr p 清除当前窗口或屏幕,光标返回到左上角
delay(t) p 等待t毫秒
delline p 清除光标所在行上所有内容
gotoxy(x,y) p 将光标移到屏幕某处
highvideo p 选择高亮度显示字符
insline p 在当前光标位置插入空行
keypressed f 测定键盘输入状态
lowvideo p 低亮度显示字符
normvideo p 选择正常文本属性从光标所在位置开始显示字符
nosound p 关闭内部扬声器
readkey p 等待从键盘输入一个字符
sound(hz) p 以hz指定的频率发声
textbackground(soor) p 设置正文背景颜色
textcolor(color) p 设置正文前景颜色
textmode p 选择特定的文本显示模式
wherex/y f 返回当前光标位置的坐标值
window(x1,y1,x2,y2) p 在屏幕定义一个文本窗口

其他单元
chain(f) p 目标程序链接
execute(f) p 执行目标程序
mark(p) p 标记动态变量
release(p) p 释放动态变量区
srtinit p 屏幕初始化
crtline p 汉字屏幕方式转换
graphbackground(color) p 选择背景色
graphcolormode p 中分辨率彩色图形方式,320*200彩色
graphmode p 中分辨率黑白图形方式,320*200黑白
graphwindow(x1,y1,x2,y2,color)p 定义图形方式窗口
hires p 高分辨率单色图形方式,640*200黑白
hirescolor(color) p 高分辨率彩色图形方式,640*200彩色
palette(color) p 中分辨率彩色图形颜色组
ovrpath(path) p 指定覆盖文件路径
draw(x1,y1,x2,y2,color) p 画线
intr(n,m) p 8086中断调用
plot(x,y,color) p 画点
random(integer) f 产生随机整数
seg(x) f 测变量段地址
colortable(c1,c2,c3,c4) p 重定义颜色组
arc(x,y,radius,color) p 画圆弧
circle(x,y,radius,color) p 画圆
getpic(buffer,x1,x2,y1,y2) p 屏幕转储到屏幕
putpic(buffer,x,y) p 缓冲器转储到屏幕
getdotcolor(x,y) p 读点
fillscreen(color) p 填充屏幕
fillshape(x,y,fillcol,bordercol) p 填充一个区域

常用数学函数
求绝对值函数abs(x)
定义:function Abs(X): (Same type as parameter);
说明:X可以是整型,也可以是实型;返回值和X的类型一致例子:

取整函数int(x)
定义:function Int(X: Real): Real;

注意:X是实型数,返回值也是实型的;返回的是X的整数部分,也就是说,X被截尾了(而不是四舍五入)例子:
var R: Real;
begin
R := Int(123.567); { 123.0 }
R := Int(-123.456); { -123.0 }
end.

截尾函数trunc(x)
定义:function Trunc(X: Real): Longint;

注意:X是实型表达式. Trunc 返回Longint型的X的整数部分例子:
begin
Writeln(1.4, ' becomes ', Trunc(1.4)); { 1 }
Writeln(1.5, ' becomes ', Trunc(1.5)); { 1 }
Writeln(-1.4, 'becomes ', Trunc(-1.4)); { -1 }
Writeln(-1.5, 'becomes ', Trunc(-1.5)); { -1 }
end.

四舍五入函数round(x)
定义:function Round(X: Real): Longint;

注意:X是实型表达式. Round 返回Longint型的X的四舍五入值.如果返回值超出了Longint的表示范围,则出错. 例子:
begin
Writeln(1.4, ' rounds to ', Round(1.4)); { 1 }
Writeln(1.5, ' rounds to ', Round(1.5)); { 2 }
Writeln(-1.4, 'rounds to ', Round(-1.4));{ -1 }
Writeln(-1.5, 'rounds to ', Round(-1.5));{ -2 }
end.

取小数函数frac(x)
定义:function Frac(X: Real): Real;

注意:X 是实型表达式. 结果返回 X 的小数部分; 也就是说,Frac(X) = X - Int(_X). 例子:
var
R: Real;
begin
R := Frac(123.456); { 0.456 }
R := Frac(-123.456); { -0.456 }
end.

求平方根函数sqrt(x)和平方函数sqr(x)
定义:平方根:function Sqrt(X: Real): Real;
注意:X 是实型表达式. 返回实型的X的平方根. 平方:function Sqr(X): (Same type as parameter);
注意:X 是实型或整型表达式.返回值的类型和X的类型一致,大小是X的平方,即X*X.
例子:
begin
Writeln('5 squared is ', Sqr(5)); { 25 }
Writeln('The square root of 2 is ',Sqrt(2.0)); { 1.414 }

1.算术函数
函数标识符
自变量类型
意义
结果类型
abs
整型、实型
绝对值
同自变量
arctan
整型、实型
反正切
实型
cos
整型、实型
余弦
实型
exp
整型、实型
指数
实型
frac
整型、实型
小数部分
实型
int
整型、实型
整数部分
实型
ln
整型、实型
自然对数
实型
pi
无自变量
圆周率
实型
sin
整型、实型
正弦
实型
sqr
整型、实型
平方
同自变量
sqrt
整型、实型
平方根
实型
例:abs(-4)=4
abs(-7.49)=7.49
arctan(0)=0.0
sin(pi)=0.0
cos(pi)=-1.0
frac(-3.71)=-0.71
int(-3.71)=-3.0
sqr(4)=16
sqrt(4)=2
2.标准函数
函数标识符
自变量类型
意义
结果类型
odd
整型
判断奇数
布尔型
pred
离散类型
求前趋
同自变量
succ
离散类型
求后继
同自变量
例:odd(1000)=false
pred(2000)=1999
succ(2000)=2001
odd(3)=true
pred('x')='w
succ('x')='y'
3.转换函数
函数标识符
自变量类型
意义
结果类型
chr
byte
自变量对应的字符
字符型
ord
离散类型
自变量对应的序号
longint
round
实型
四舍五入
longint
trunc
实型
截断取整
longint
例:chr(66)='B'
ord('A')=65
round(-4.3)=-5
trunc(2.88)=2
4.杂类函数
函数标识符
自变量类型
意义
结果类型
random
无自变量
[0,1间的随机实数
real
random
word
[0,自变量间的随机整数)
word
randomize
无自变量
初始化内部随机数产生器
longint
upcase
字符型
使小写英文字母变为大写
字符型
downcase
字符型
使小写英文字母变为大写
字符型
SYSTEM
TP的运行库,包括常用的标准函数和过程,可以在程序中直接使用,不需USES语句说明。
DOS
具有日期、时间、目录查找、程序执行等功能
CRT
具有屏幕模式控制、扩展键盘码、颜色、窗口、声音等
功能
PRINTER
支持打印输出操作。
GRAPH
高级图形软件包,支持多种图形适配器。
GRAPH3
实现TP3.0的图形软件包。
TURBO3
兼容TP3.0的源程序。
OVERLAY
实现高级覆盖管理
SYSTEM单元常用过程与函数
ABS(X)
F
求变量的绝对值
ADDR(X)
F
测变量地址
APPEND(F)
P
打开一个存在的文本文件,并将文件指
针指向文件末尾准备添加元素
ARCTAN(X)
F
反正切
ASSIGN(F,C)
P
将字符串C所表示的外部文件名赋给文
件变量F
ASSIGNED(X)
P
测试程序当中的指针或变量是否为空
BLOCKREAD(F,D,NUM)
P
读类型文件。
BLOCKWRITE(F,D,NUM)
P
写无类型文件
BREAK
P
中止或结束循环
CHDIR(PATH)
P
改变当前目录
CHR(X)
F
求ASCII码值为X的字符
CLOSE(F)
P
关闭文件
CONCAT(S1,S2...S3)
F
字符串合并
CONTINUE
P
继续循环
COPY(S,POS,LEN)
F
返回一个字符串的子串
COS(X)
F
余弦函数
CSEG
F
返回CS寄存器的当前值
DEC(X)
F
X:=X-1
DELETE(S,POS,LEN)
P
删除一个字符串的子串
DISPOSE(P)
P
释放一个动态变量
DSEG
F
返回DS寄存器的当前值
EOF(F)
F
判断文件是否结束
EOLN(F)
F
判断文件类型中的一行是否结束
ERASE(F)
P
删除一个存在的外部文件。
EXIT
P
过程中止
EXP(X)
F
以E为底的指数函数
FILEPOS(F)
F
文件记录的当前位置
FILESIZE(F)
F
文件记录数
FILLCHAR(D,LEN,DATE)
P
填充数值或字符
FLUSH(F)
P
清空文件缓存区
FRAC(X)
F
取实形变量的小数部分
FREEMEM(P,I)
P
释放变长动态变量
GETDIR(DRV,PATH)
P
取当前盘,当前目录
GETMEM(P,I)
P
分配变长的动态变量,并把块地址存放在一个指针变量中
HALT
P
立即中止程序执行,返回TP编辑器或DOS
HI(I)
F
返回一个变量的高位字节
INSERT(S,D,POS)
F
在一个字符串中某一位置开始插入一个子串
INT
F
取整数部分
IORESULT
F
返回最后一次输入/出操作的结果状态
LENGTH(S)
F
取字符串的长度
LN(R)
F
求自然对数
LO(I)
F
返回一个变量的低位字节
MAXAVAIL
F
返回最大内存空间
MEMAVAIL
F
返回可用内存数目
MKDIR(PATH)
P
建立一个子目录
MOVE(S,D,LEN)
P
快传送
NEW(P)
P
建立一个新的动态变量
ODD(X)
F
判断一个变量的值是否为奇数
OFS(X)
F
侧变量偏移地址
ORD(CH)
F
求一个字符的ASCII码值
PARAMCOUNT
F
DOS参数串长度
PARAMSTR(N)
F
DOS参数串
PI
F
圆周率的值
pos(str1,str2)
f
测一个字符串中包含的另一个子串的开始位置
pred(x)
f
求前驱
ptr(i)
f
指针赋值
random
f
返回0~1之间的随机实数
randomize
p
初始化随机数发生器
read/readln(f,x)
p
读入/输入数据
rename(f,str)
p
给一个外部文件改名
reset(f)
p
打开文件,并将文件指针指向开始,并准备读数据
rewrite(f)
p
打开文件,并将文件指针指向开始,准备写资料
rmdir(path)
p
删除一个子目录
round(x)
f
求实数的近似数
runerror
p
停止程序的运行
scrollto
p
滚动显示窗口的某部分内容
seek(f,n)
p
将文件指针定位于文件f的第n个文件成分上
seekrof(f)
f
定位到文件尾
seekroln(f)
f
定位到行尾
seg(n)
f
测变量段地址
settextbuf(f)
p
将输入/出缓冲区与一个文本文件建立关联
sin(x)
f
正弦函数
sizeof(x)
f
测变量大小
sptr
f
返回sp寄存器的当前值
sqr(x)
f
平方
sqrt(x)
f
平方根
sseg
f
返回ss寄存器的当前值
str(i,s)
f
将一个整数转换成字符串
succ(X)
f
后继函数
swap(x)
f
交换一个变量的高位和低位字节
trunc(x)
f
截去实数的小数部分
truncate(f)
p
截去文件当前指针以后的内容
upcase(ch)
f
将小写字母转换成大写字母
val(s,r,p)
p
将一个字符串转换成数值
writeln(f,x)
p
输出
dos单元常用过程与函数
getdate
p
返回系统当前日期
detftime
p
返回最后一次写入的日期和时间
gettime
p
返回系统当前时间
packtime
p
转换系统日期和时间,封装成4个字节的长整形格式
setdate
p
设置系统当前日期
setftime
p
写入新的系统日期和时间,覆盖系统最后一次写入的
系统日期和时间文件
settime
p
设置系统当前时间
uppacktime
p
将系统日期和时间转换成纪录格式
diskfree
f
返回指定磁盘可用剩余空间
disksize
f
返回指定磁盘的总容量
get/setverity
p
返回/设置dos状态下的磁盘读写标记
fexpand
f
返回函数名的全称
fsearch
f
在一个目录中查找文件
fsplit
f
将一个文件名分成目录、文件名、扩展名
findfirst
p
在当前目录或指定目录下查找第一个与给定属性相匹
配的文件名
作者:
巫山霏云
2005-2-7
16:49
回复此发言
--------------------------------------------------------------------------------
3
turbo
pascal基本函数过程及解释
findnext
p
返回下一个满足匹配条件的文件名
getfattr
p
返回文件的属性
setfattr
p
设置文件属性
gerintvec
p
返回某个中断变量值
intr
p
执行软中断
msdos
p
执行dos
系统调用
setintvec
p
设定中断值
exec
p
通过一个特定命令行执行特定程序段
keep
p
中断程序的执行但仍驻留在内存中
swapvectors
p
用当前变量交换所有中断变量值
dosexitcode
f
回到子程序出口
dosversion
f
显示dos版本
crt单元
assigncrt(f)
p
将文本文件f与显示器crt建立联系
clreol
p
清除当前行光标所在位置以后的字符
clrscr
p
清除当前窗口或屏幕,光标返回到左上角
delay(t)
p
等待t毫秒
delline
p
清除光标所在行上所有内容
gotoxy(x,y)
p
将光标移到屏幕某处
highvideo
p
选择高亮度显示字符
insline
p
在当前光标位置插入空行
keypressed
f
测定键盘输入状态
lowvideo
p
低亮度显示字符
normvideo
p
选择正常文本属性从光标所在位置开始显示字符
nosound
p
关闭内部扬声器
readkey
p
等待从键盘输入一个字符
sound(hz)
p
以hz指定的频率发声
textbackground(soor)
p
设置正文背景颜色
textcolor(color)
p
设置正文前景颜色
textmode
p
选择特定的文本显示模式
wherex/y
f
返回当前光标位置的坐标值
window(x1,y1,x2,y2)
p
在屏幕定义一个文本窗口
其他单元
chain(f)
p
目标程序链接
execute(f)
p
执行目标程序
mark(p)
p
标记动态变量
release(p)
p
释放动态变量区
srtinit
p
屏幕初始化
crtline
p
汉字屏幕方式转换
graphbackground(color)
p
选择背景色
graphcolormode
p
中分辨率彩色图形方式,320*200彩色
graphmode
p
中分辨率黑白图形方式,320*200黑白
graphwindow(x1,y1,x2,y2,color)p
定义图形方式窗口
hires
p
高分辨率单色图形方式,640*200黑白
hirescolor(color)
p
高分辨率彩色图形方式,640*200彩色
palette(color)
p
中分辨率彩色图形颜色组
ovrpath(path)
p
指定覆盖文件路径
draw(x1,y1,x2,y2,color)
p
画线
intr(n,m)
p
8086中断调用
plot(x,y,color)
p
画点
random(integer)
f
产生随机整数
seg(x)
f
测变量段地址
colortable(c1,c2,c3,c4)
p
重定义颜色组
arc(x,y,radius,color)
p
画圆弧
circle(x,y,radius,color)
p
画圆
getpic(buffer,x1,x2,y1,y2)
p
屏幕转储到屏幕
putpic(buffer,x,y)
p
缓冲器转储到屏幕
getdotcolor(x,y)
p
读点
fillscreen(color)
p
填充屏幕
fillshape(x,y,fillcol,bordercol)
p
填充一个区域
常用数学函数
求绝对值函数abs(x)
定义:function
Abs(X):
(Same
type
as
parameter);
说明:X可以是整型,也可以是实型;返回值和X的类型一致例子:
取整函数int(x)
定义:function
Int(X:
Real):
Real;
注意:X是实型数,返回值也是实型的;返回的是X的整数部分,也就是说,X被截尾了(而不是四舍五入)例子:
var
R:
Real;
begin
R
:=
Int(123.567);
{
123.0
}
R
:=
Int(-123.456);
{
-123.0
}
end.
截尾函数trunc(x)
定义:function
Trunc(X:
Real):
Longint;
注意:X是实型表达式.
Trunc
返回Longint型的X的整数部分例子:
begin
Writeln(1.4,
'
becomes
',
Trunc(1.4));
{
1
}
Writeln(1.5,
'
becomes
',
Trunc(1.5));
{
1
}
Writeln(-1.4,
'becomes
',
Trunc(-1.4));
{
-1
}
Writeln(-1.5,
'becomes
',
Trunc(-1.5));
{
-1
}
end.
四舍五入函数round(x)
定义:function
Round(X:
Real):
Longint;
注意:X是实型表达式.
Round
返回Longint型的X的四舍五入值.如果返回值超出了Longint的表示范围,则出错.
例子:
begin
Writeln(1.4,
'
rounds
to
',
Round(1.4));
{
1
}
Writeln(1.5,
'
rounds
to
',
Round(1.5));
{
2
}
Writeln(-1.4,
'rounds
to
',
Round(-1.4));{
-1
}
Writeln(-1.5,
'rounds
to
',
Round(-1.5));{
-2
}
end.
取小数函数frac(x)
定义:function
Frac(X:
Real):
Real;
注意:X
是实型表达式.
结果返回
X
的小数部分;
也就是说,Frac(X)
=
X
-
Int(_X).
例子:
var
R:
Real;
begin
R
:=
Frac(123.456);
{
0.456
}
R
:=
Frac(-123.456);
{
-0.456
}
end.
求平方根函数sqrt(x)和平方函数sqr(x)
定义:平方根:function
Sqrt(X:
Real):
Real;
注意:X
是实型表达式.
返回实型的X的平方根.
平方:function
Sqr(X):
(Same
type
as
parameter);
注意:X
是实型或整型表达式.返回值的类型和X的类型一致,大小是X的平方,即X*X.
例子:
begin
Writeln('5
squared
is
',
Sqr(5));
{
25
}
Writeln('The
square
root
of
2
is
',Sqrt(2.0));
{
1.414
}

给他分吧
一、数学函数:

Inc(i) 使I:=I+1;
Inc(I,b) 使I:=I+b;
Abs(x) 求x的绝对值 例:abs(-3)=3
Chr(x) 求编号x对应的字符。例:Chr(65)=’A’ chr(97)=’a’ chr(48)=’0’
Ord(x) 求字符x对应的编号。例:ord(‘A’)=65 ord(‘a’)=97 另外:ord(false)=0 ord(true)=1
Sqr(x) 求x的平方。 例:sqr(4)=16
Sqrt(x)求x的开方. 例:sqrt(16)=4
round(x) 求x的四舍五入 例:round(4.5)=5
trunc(x) 求x的整数部分 例:trunc(5.6)=5 结果是integer型
int(x) 求x的整数部分 例int(5.6)=5.0 结果是real型
frac (x)求x的小数部分 例 frac(5.6)=0.6
pred(x) 求x的前导 pred(‘b’)=’a’ pred(5)=4 pred(true)=false
succ(x) 求x的后继 succ(‘b’)=’c’ succ(5)=6 succ(false)=true
odd(x) 判断x是否为奇数。如果是值为true,反之值为false. Odd(2)=false odd(5)=true
power(a,n) 求a的n次方 power(2,3)=8
random 取0~1之间的随机数(不能取到1)
randomize 随机数的种子函数,在每次设置随机数时都要把这个函数放在最前面.
Fillchar(a,size(a),0) 数组初始化,即把数组a的值全部置为0
SHR: x SHR n 把x换成二进制后向右移n位,相当于 把x 除以 2n
SHL: x SHL n把x换成二进制后向左移n位,相当于 把x 乘以 2n

二、字符串函数
1. 连接运算 concat(s1,s2,s3…sn) 相当于s1+s2+s3+…+sn.
例:concat(‘11’,’aa’)=’11aa’;
2. 求子串。 Copy(s,I,L) 从字符串s中截取第I个字符开始后的长度为l的子串。
例:copy(‘abdag’,2,3)=’bda’
3. 删除子串。过程 Delete(s,I,l) 从字符串s中删除第I个字符开始后的长度为l的子串。
例:s:=’abcde’;delete(s,2,3);结果s:=’ae’
4. 插入子串。 过程Insert(s1,s2,I) 把s1插入到s2的第I个位置
例:s:=abc;insert(‘12’,s,2);结果s:=’a12bc’
5. 求字符串长度 length(s) 例:length(‘12abc’)=5
6. 搜索子串的位置 pos(s1,s2) 如果s1是s2的子串 ,则返回s1的第一个字符在s2中的位置,若不是子串,则返回0.
例:pos(‘ab’,’12abcd’)=3
7. 字符的大写转换。Upcase(ch) 求字符ch的大写体。
例:upcase(‘a’)=’A’
8. 数值转换为数串。 过程 Str(x,s) 把数值x化为数串s.
例:str(12345,s); 结果s=’12345’
9. 数串转换为数值。 过程val(s,x,I) 把数串s转化为数值x,如果成功则i=0,不成功则I为无效字符的序数
例:val(‘1234’,x,I);结果 x:=1234
三Pascal计时函数

Uses Dos;
h,m,s,ss:word;{存储时间}
t0{开始}:real;
begin
gettime(h,m,s,ss);{获取当前系统时间}
t0;=h*3600+m*60+s+ss/100;
......{main}
gettime(h,m,s,ss);{获取当前系统时间}
writeln((h*3600+m*60+s+ss/100-t0):3:2);
end.

注意不要在程序显示结果后,第二次gettime前写readln;
四IntToStr function 整型->字符串型
函数原型:
function IntToStr(Value: Integer): string; overload;
function IntToStr(Value: Int64): string; overload;
StrToBool function 字符串型->布尔型
函数原型:
function StrToBool(const S: string): Boolean;
StrToDate function 字符串型->日期时间型
函数原型:
function StrToDate(const S: string): TDateTime; overload;
function StrToDate(const S: string; const FormatSettings: TFormatSettings): TDateTime;
StrToFloat function 字符串型->浮点型
函数原型:
function StrToFloat(const S: string): Extended; overload;
function StrToFloat(const S: string; const FormatSettings: TFormatSettings): Extended;
StrToInt function 字符串型->整型
函数原型:
function StrToInt(const S: string): Integer;
FloatToStr function 浮点型->字符串型
函数原型:
function FloatToStr(Value: Extended): string; overload;
function FloatToStr(Value: Extended; const FormatSettings: TFormatSettings): string;

var hL
我是刷在

lu guo

PASCAL语言中有哪些常用函数?
答:PASCAL中,保留字分为6种共36个:(1)程序、函数、过程符号 program,function,procedure (2)说明部分专用定义符号 array,const,file,label,of packed,record,set,type,var (3)语句专用符号 case,do,downto,else,for,forward,goto,if,repeat,then,to until,while,with (4)运算符号 and,div,in,mod...

Pascal中什么是形式参数表?在函数定义起什么用?
答:Pascal基本教程第八章 函数和过程 </P><P>8.1 函数 如果一个子程序执行后能够返回其结果制,那么它就可以用于表达式中,称这种子程序为函数,这种语句序列的定义称为函数说明。函数说明形式如下:function 函数名(形式参数表):函数类型;说明部分;begin 语句1;语句2;……语句n end 函数返回一个函数...

在PASCAL语言中 函数和过程有什么区别 要具体的
答:回答:1.算术函数 函数标识符 自变量类型 意义 结果类型 abs 整型、实型 绝对值 同自变量 arctan 整型、实型 反正切 实型 cos 整型、实型 余弦 实型 exp 整型、实型 指数 实型 frac 整型、实型 小数部分 实型 int 整型、实型 整数部分 实型 ln 整型、实型 自然对数 实型 pi 无自变量...

一道非常简单的pascal问题,求用函数和过程一起来做。
答:用function做的求30000以内的所有"亲和数":var n,i,j,k:longint;function yinzihe(n:longint):longint;var s,i,j:longint;begin s:=1; j:=trunc(sqrt(n));for i:=2 to j-1 do if n mod i=0 then inc(s,i+n div i);if j*j=n then inc(s,j);yinzihe:=s end;begin...

PASCAL中SUCC函数怎么用?
答:'这个函数称为 ,求后继,为顺序类型才有的函数,字符,整型,以及子界类型,枚举类型,布尔类型都可以用 用法简单 t:=succ(x);就可以了;succ(1)=2 succ('a')= 'b'pred为前驱 和 succ刚好相反

过程与函数有什么区别?
答:procedure 形式参数表;分程序;过程标识符(实际参数表);(*若没有参数,则一对圆括号间的内容(包括括号本身)可不要*)例:program proconcept(output);type st=string[12];var s:st;procedure p(s1:st);begin write(s1);end;begin s:='welcome you!';p(s);end.函数是子程序的另一种形式,也是...

pascal函数的字符串
答:1. 连接运算(函数) concat(s1,s2,s3…sn) 相当于s1+s2+s3+…+sn。例:concat('11','aa')='11aa';2. 求子串。 (函数)Copy(s,I,L) 从字符串s中截取第I个字符开始,长度为L的子串。例:copy('abdag',2,3)='bda'3. 删除子串。(过程) Delete(s,I,L) 从字符串s中删除第I...

C字符串函数与Pascal字符串函数
答:char *strncpy( char *strDest, const char *strSource, size_t count );把字符串strSource里第I个字符起(默认为0),长为count的串复制到strDest中,返回strDest的指针,对于错误并没有保留特殊的返回值。删子串(过程delete(var s,i,l) )C库函数中并没有直接的函数与之对应,...

pascal文件类型函数
答:分类: 电脑/网络 >> 程序设计 >> 其他编程语言 问题描述:pascal文件类型的函数有哪些?解析:一、有类型文件的定义 有类型文件中的元素可以是混合型的,并以二进制格式存贮,因此有类型文件(除了字符类型文件,因为它实质上是文本文件)不象文本文件那样可以用编辑软件等进行阅读和处理。有类型文件的...

Pascal一般所有函数 例如:case...of ,eof等等和用法
答:inc(i) 使i:=i+1; inc(i,b) 使i:=i+b; dec(i) 使i:=i-1; dec(i,b) 使i:=i-b; randomize 随机数的种子函数,在每次设置随机数时都要把这个函数放在最前面。 函数: abs(x) 求x的绝对值。例:abs(-3)=3 x为整数 chr(x) 求编号x对应的字符。例:chr(65)='A' chr(97...