pascal函数过程表
Posted
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了pascal函数过程表相关的知识，希望对你有一定的参考价值。
求一张pascal的过程函数表，大概包含函数名、用法（格式、变量类型、返回值类型）
主要是Turbu Pascal的
有好的一定追加50分
恩，爱猪头爱篮球的的确不错，先等一下，我还想看看有没有更清楚的~~不好意思，最后我一定会加分的！
函数标识符 自变量类型 意义 结果类型
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 参考技术A 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
参考技术B 给他分吧
一、数学函数：
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; 参考技术C var hL
我是刷在 参考技术D lu guo
邻接表Spfa(Pascal版)
1 const maxn=100; 2 type 3 point=^node; 4 node=record 5 g,w:longint; 6 next:point; 7 end; 8 var 9 i,j,k,l,m,n,s,t:longint; 10 a:array[0..maxn] of point; 11 b,c:array[0..maxn] of longint; 12 d:array[0..maxn] of boolean; 13 procedure add(x,y,z:longint); 14 var p:point; 15 begin 16 new(p);p^.g:=y;p^.w:=z; 17 p^.next:=a[x];a[x]:=p; 18 end; 19 procedure spfa(x:longint); 20 var f,r:longint;p:point; 21 begin 22 fillchar(d,sizeof(d),false);d[x]:=true; 23 fillchar(c,sizeof(c),0); 24 f:=1;r:=2;b[f]:=x; 25 while f<r do 26 begin 27 p:=a[b[f]]; 28 while p<>nil do 29 begin 30 if (c[p^.g]=0) or (c[p^.g]>c[b[f]]+p^.w) then 31 begin 32 c[p^.g]:=c[b[f]]+p^.w; 33 if d[p^.g]=false then 34 begin 35 d[p^.g]:=true;b[r]:=p^.g; 36 if r=maxn then r:=1 else inc(r); 37 end; 38 end; 39 p:=p^.next; 40 end; 41 d[b[f]]:=false; 42 if f=maxn then f:=1 else inc(f); 43 end; 44 end; 45 begin 46 readln(n,m,s,t); 47 for i:=1 to n do a[i]:=nil; 48 for i:=1 to m do 49 begin 50 readln(j,k,l); 51 add(j,k,l);add(k,j,l); 52 end; 53 spfa(s);writeln(c[t]); 54 end.
以上是关于pascal函数过程表的主要内容，如果未能解决你的问题，请参考以下文章