Turbo Pascal基本函数
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返回一个变量的低位字节
MAXAV AIL F返回最大内存空间
MEMAV AIL F返回可用内存数目
MKDIR(PATH)P建立一个子目录
MOVE(S,D,LEN)P快传送
NEW(P)P建立一个新的动态变量
作者：qswbghk发表时间：2005-9-1913:57:00
第1楼
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输出
作者：qswbghk发表时间：2005-9-1913:58:00
第2楼
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在当前目录或指定目录下查找第一个与给定属性相匹配的文件名
作者：qswbghk发表时间：2005-9-1913:58:00
第3楼
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在屏幕定义一个文本窗口
作者：qswbghk发表时间：2005-9-1913:59:00
第4楼
其他单元
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)p8086中断调用
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填充一个区域
Turbo Pascal图形编程教程Pascal是一款有很强图形功能的开发工具，它可以编制各种图形窗口,并且听说还支持鼠标.但是时过境迁，
在vb,vc一统天下的今天，关于Pascal图形操作的书已经像古董一样难于寻找了，我现在将Tp 7.0的Help文件
中的一些有关图形操作的过程与函数整理了一下，并自己写了一些例子,加入了一些自己的看法,便得到了这篇
教程.其中如有错误，望各位不吝赐教。阅读之前希望大家做好准备，比如：找一些食品放在跟前，因为你可能
因为钻研一个函数而耗费大量的时间，还有你可能因为初始化无法完成而大动肝火。
第一章使用Pascal进行图形操作前的准备
在Turbo Pascal中有一个CRT单元及一个GRAPH单元，简单的说crt单元是为了实现
字符的显示与处理，另外的那个称为GRAPH单元是专门用来处理图形的。我们看到的有关图形的
程序往往都要用到。所以若是要在Turbo Pascal中实现图形操作，就必须要调用CRT单元及
GRAPH单元。那么怎么样来调用CRT及GRAPH单元呢？现在线来介绍一下单元调用语句：USES USES的语法：
USES单元表识符，……，单元表识符；
说明：
扩展名为*.TPW是Windows下的单元文件，*.TPU是DOS下的单元文件。
位置：变量说明var之前。
讲到这里，我还是要顺便提一下什么是单元？是这样的：我们在编程序的时候，要用到procedure
或者function，中文名称一个是过程另一个是函数。做不同的程序时，往往要用到一些相同的过程
或者相同的函数。如果统统放到程序中，程序会硕大无比，比例与调试与编译，并且在过去
“惜ｋｂ如金”的年代里，这样的程序也很浪费。于是，简单的讲，人们把它们做成“包”－－我
们称之为单元。一来，免去很多重复的痛苦，大家共享代码也很简单，另外，很多不愿意让别人看
到源程序的人也很乐于如此－－－－这只是我的杜撰。生产pascal语言的公司也提供一些做好的
单元，放在安装盘上方便实用。crt，graph即使如此，还有dos，system等等。
第二章Pascal图形模式的初始化及退出
1.初始化
Pascal的图形操作在使用之前必须先进行初始化。如果说你编写图形程序中出现问题，是有八九十卡
在这里了。这也是非常令我头疼的问题。用过程
initgraph(GraphDriver,GraphMode,PathToDriver)
其中GraphDriver,GraphMode为整形变量,PathToDriver为字符串变量,GraphDriver为图形驱动器,
GraphMode为图形模式,PathToDriver指定的路径名中建筑图形驱动程序(以.BGI为后缀)。initgraph使
用方法见下例:
program t001(input,output);
uses crt,graph;
var
gd:gm:integer;{定义GraphDriver,GraphMode变量}
begin
gd:=detect;
initgraph(gd,gm,'');{调用initgraph过程,PathToDriver缺省则表示在当前目录中寻找
《－－－－－－－这个很重要，一般也可以写成initgraph(gd,gm,'c:\tp\bgi');当然
如果你是如此安装的话。}
bar(100,100,200,200);{画一个以(100,100),(200,200)为顶点的矩形，这是一个标准过程，
你在后面还会看到一个名为bar3d的东东，那个是画立体矩形的}
delay(1000);{将此图形保留一秒，10000就是10秒，依此类推}
end.
2.退出
Closegraph过程
功能:退出图形模式.
在图形模式下如果使用write等等文本输出可能会出问题－－－比如无法看到等等。好像还可能引
起显示上的问题，反正养成一个好习惯也没什么不好的。这里有一个技巧，当你发现无论如何调整都无
法显示图形时，你可以调用自带的例子，用来测试，看看是否是程序本身的问题。
注意，这里有一个不属于图形的，但是非常容易遇到的问题。前面我们说过，在图形编程使用graph单
元的时候，我们也常常会使用crt单元，这就有一个问题：crt单元在主频高的机器上无法正常运行。会出
现200号错误！！！请下载补丁，在我们的网站上就有。还有一种情况，就是出了问题没有提示!表现是
运行程序什么反应也没有。如果你出现这种情况，首先检查程序，如果没有问题，非常有可能使这种情况，
也请下载补丁！据报告奔腾180以上的机器具都不同程度存在这种问题！
第三章基本几何图形的绘制
画直线:
1.Line过程
描述:procedure Line(x1,y1,x2,y2:Integer);两点确定一直线.够简单吧!
2.Lineto过程
描述:procedure LineTo(X,Y:Integer);从当前点项目标点(x,y)作直线.
画圆:
1.Circle过程
功能：以(X,Y)为圆心、Radius为半画一圆。
描述：procedure Circle(X,Y:Integer;Radius:Word);
示例：Circle(100,100,200){画一个以（100，100）为圆心，200为半径的圆}
画椭圆:
1.Ellipse过程
功能：画一个以(X,Y)为中心，XRadius和YRadius为半轴，StAngle和EndAngle为始角和终角的椭圆弧。
描述：procedure Ellipse(X,Y:Integer;StAngle,EndAngle:Word;XRadius,YRadius:Word);
说明：角度沿逆时针方向，单位是度。0度指向东。
画圆弧:
1.Arc过程
功能:画一个以（X，Y）为中心，Radius为半径，StAngle和EndAngle为始角和终角的圆弧。描述:procedure Arc(X,Y:Integer;StAngle,EndAngle,Radius:Word);
说明:角度沿逆时针方向，单位是度。0度指向东。
示例:Arc(100,100,0,90,50){画出第一卦限1/4圆，半径50,圆心（100，100）}
画矩形:
1.Bar过程
功能：画一个以（x1,y1),(x2,y2)为两个对角顶点的矩形。
描述：procedure Bar(x1,y1,x2,y2:integer);
示例：Bar(100,100,200,200){画一个以（100，100），（200，200）为对角顶点的矩形}
2.Bar3d过程
功能:画一个长方体.
描述:procedure Bar3d(x1,y1,x2,y2:integer,depth:word,top:boolean);{x1,x2,y1,y2同上,为长方体的厚度,top为是否画出顶面.}
线形,颜色,及填充设置
线形设置:
1.setlinestyle过程
功能:设置线形,及线宽.
描述:procedure SetLineStyle(LineStyle:Word;Pattern:Word;Thickness:Word);
说明:linestyle(线形)一共有三种.代号0,1,2;线形如下图:
Thichness(线宽)有两种.代号1,3.1为普通线.3为宽线.
2.GetLineSettings过程
功能:返回当前设置的线型设置信息.
描述:procedure GetLineSettings(var LineInfo:LineSettingsType);{参见LineSettingsType
类型}
3.LineSettingsType类型
描述:LineSettingsType=record
LineStyle:Word;{线形}
Pattern:Word;{模式}
Thickness:Word;{线宽}
end;
此类型记录了一种线形的信息.
线形,颜色及线形设置
颜色设置:
在pascal中共有16种颜色可以使用.
1.setcolor过程
描述:procedure SetColor(Color:Word);
设置线的颜色.颜色代码如上图.
2.GetColor函数
功能:返回最后一次作图时的颜色值
描述:function GetColor:word
示例:color:=GetColor;{color:word}
3.GetMaxColor函数
功能:返回系统可用的最大颜色数.
描述:num:=GetMaxColor;{将最大颜色数存到num变量中}
填充设置:
1.SetFillStyle过程
功能设置填充模式和颜色。
描述procedure SetFillStyle(Pattern:Word;Color:Word);
说明设置用于Bar,Bar3D的填充模式和颜色。可生系列填充模式。缺省模式是实心点，缺省模式
是实心点，缺省颜色是调色板中最大颜色序号值。如果传递给SetFillStyle的输入参数无效，GraphResult将返回值grError,且当前填充参数不改变。
填充设置如下图:
2.FillSettingsType类型
描述:FillSettingsType=record
Pattern:word;
Color:word;
end;
此类型记录了一种填充模式的信息.
Freepascall资料详解 一、TP和FP的功能区别 1．Free Pascal理论上可以使用4GB（2^32byte）的内存，因此实际上几乎可以使用系统中的所有剩余内存（除非赛题中有内存限制），这是因为Free Pascal使用的是32位的编译器。但是对于Turbo Pascal来说，由于是16位的编译器，因此不能定义大小超过64KB （2^16byte）的数据类型和变量，并且在DOS实模式下可以使用的内存总数只有640KB。但这并不是说，你可以随意定义很大的数组了，因为光读入200MB的数据就会让你的程序超时了（因为现在的7200转硬盘和133的系统总线速度决定了读取数据的速度也就100MB/秒）。 2．在Free Pascal中，如果用assign给标准输入输出文件变量input和output指定了文件，在程序结束之前一定要用close关闭input和output，否则输出文件可能不能被正确的写入。这个问题是近几年NOIP竞赛和省队训练、选拔中选手常犯的错误。尤其是程序非正常结束之前（如halt）会忘记。 3．如果用Rewrite打开文件，那么文件就只能被写入了。如果需要读取这个文件，要对文件执行Reset。所以，在Free Pascal中最好不要对一个文件同时进行读写操作。 4．在Free Pascal中，集合中的元素都是4个字节长的。 5．表达式执行的顺序是不确定的。比如对于表达式a:=g(2)+f(3); 不保证g(2)一定在f(3)之前执行。 6．函数和过程在使用时，参数的类型必须和定义时完全一致。原因是在Free Pascal中添加了函数重载功能。 7．PROTECTED，PUBLIC，PUBLISHED，TRY，FINALLY，EXCEPT，RAISE成为了关键字，因此不能作为函数和过程的名字；而FAR，NEAR不再是关键字了，原因是Free Pascal是32位系统，不再需要这些关键字。 二、FP的新增功能 1．函数可以返回复杂的类型，比如记录和数组。 如： type arrtype=array[1..100] of longint;{必须要先定义数组基类型} var i,j,k,n:longint; a:arrtype; function sort(a:arrtype;n:longint):arrtype; var i,j,k:longint; begin for i:=1 to n-1 do for j:=i+1 to n do if a>a[j] then begin k:=a; a:=a[j]; a[j]:=k;
一、初识Pascal语言 一、Pascal 语言概述 Pascal 语言是一种算法语言，它是瑞士苏黎世联邦工业大学的Niklaus Wirth教授于1968年设计完成的，1971年正式发表。1975年对Pascal 语言进行了修改，作为“标准PASCAL语言”。 Pascal 语言是一种结构化的程序设计语言，可以用来编写应用程序。它又是一种系统程序设计语言，可以用来编写顺序型的系统软件（如编译程序）。它的功能强、编译程序简单。 二、Pascal 语言的特点 Pascal语言有以下几个主要的特点： ⒈它是结构化的语言。Pascal语言提供了直接实现三种基本结构的语句以及定义“过程”和“函数”的功能。可以方便地书写出结构化程序。在编写程序时可以完全不使用GOTO语句和标号。这就易于保证程序的正确性和易读性。Pascal语言强调的是可靠性、易于验证性、概念的清晰性和实现的简化。在结构化这一点上，比其它（如 BASIC,FORTRAN77）更好一些。 ⒉有丰富的数据类型。Pascal提供了整数、实型、字符型、布尔型、枚举型、子界型、数组类型、集合类型、记录类型、和文件类型和指针类型。⒊能适用于数值运算和非数值运算领域。PASCAL的功能较强，能广泛应用于各种领域。PASCAL语言还可以用于辅助设计，实现计算机绘图功能。 ⒋ PASCAL程序的书写格式比较自由。PASCAL允许一行写多个语句，一个语句可以分写在多行上，这样就可以使PASCAL程序写得格式优美，便于阅读。 三、Pascal语言程序的基本结构 程序设计语言都有着一组自己的记号和规则。PASCAL语言必须采用其本身所规定的记号和规则来编写程序。下面我们首先来了解Pascal语言的程序基本结构。 Pascal语言的程序结构为: 程序首部 标号说明语句 常量定义语句 类型定义语句程序的说明部分 变量说明语句 函数和过程说明语句分程序 程序体程序的执行部分 先看一个简单的PASCAL程序： program exam1(input,output); var r,s,c:real; begin readln(r); c:=3.14*2*r; s:=3.14*r*r; writeln(c,s) end.
第十课字符与字符串处理 一、字符、字符串类型的使用 （一）字符类型 字符类型为由一个字符组成的字符常量或字符变量。 字符常量定义: const 字符常量='字符' 字符变量定义:Ⅱ Var 字符变量:char; 字符类型是一个有序类型, 字符的大小顺序按其ASCⅡ代码的大小而定。函数succ、pred、ord适用于字符类型。 例如：后继函数：succ('a')='b' 前继函数：pred（'B'）='A' 序号函数：ord（'A'）=65 ord(‘a’)=97 ord(‘0’)=48 例1按字母表顺序和逆序每隔一个字母打印。即打印出： a c e g I k m o q s u w y z x r v t p n l j h f d b 程序如下： program ex8_1; var letter:char; begin for letter:='a' to 'z' do if (ord(letter)-ord('a'))mod 2=0 then write(letter:3); writeln; for letter:='z' downto 'a' do if (ord(letter)-ord('z'))mod 2 =0 then write(letter:3); writeln; end. 分析：程序中，我们利用了字符类型是顺序类型这一特性，直接将字符类型变量作为循环变量，使程序处理起来比较直观。 （二）字符串类型 字符串是由字符组成的有穷序列。 字符串类型定义： type <字符串类型标识符>=string[n]; var 字符串变量: 字符串类型标识符; 其中:n是定义的字符串长度,必须是0~255之间的自然整数,第0号单元中存放串的实际长度,程序运行时由系统自动提供,第1~n号单元中存放串的字符。若将string[n]写成string，则默认n值为255。 例如：type man=string[8]； line=string； var name：man； screenline：line； 另一种字符类型的定义方式为把类型说明的变量定义合并在一起。 例如：VAR name：STRING[8]； screenline：STRING； Turbo Pascal中，一个字符串中的字符可以通过其对应的下标灵活使用。 例如：var name：string； begin readln（nsme）； for i：=1 to ord（name[0]）do writeln（name[i]）；
Pascal常用函数 PASCAL内自带的函数，通常可以直接调用，特殊的需要调用数据库，如：used math 一、标准函数 二、数学函数与过程 三、字符类型函数 四、字符串函数与过程 五、布尔类型函数 六、math单元的函数与过程 一、标准函数 标准函数。Turbo Pascal语言提供了自变量为整型量的标准函数有顺序函数算术函数和转换函数等。 标准函数是Turbo Pascal语言预先定义的，它们实际上是能完成特定功能的称步子程序的程序段。每个标准函数都用一个标识符来标识，每个标准函数都能完成一个特定的功能，在程序中可以直接调用它们。Turbo Pascal语言中某些标准函数与数学中的函数有相似之处。 1、整数类型函数 整型是顺序类型，即所有的整型数都是按一定的顺序排列的。如3的后序数是4，350的后序数是351。以后介绍的布尔型、字符型、枚举类型和子界类型等都是顺序类型。顺序函数可以对顺序类型数据进行操作，但要注意它们自变量的取值范围。 ①前趋函数：Pred(x)函数值为x-l，例如： Pred (6)=5 Pred (-21)=-22 ②后继函数：Succ (x)函数值为x+l，例如： Succ (l5)=16 Succ (-114)= -113 ③绝对值函数：Abs (x)函数值为|X|，例如： Abs (-119)=119 Abs (101)=101 ④平方函数：Sqr (x)函数值为X*X，例如： Sqr (-5)=25 Sqr (l0)= 100 以上四个函数的结果仍是整型数。 ⑤奇函数：Odd (x)，函数的结果为布尔型。当X为奇数时，函数值为true；当X为偶数时，函数值为false，例如： Odd (13)= True Odd (16)= False ⑥字符函数：Chr (X)，函数值是序号的ASCII字符，属字符型，例如： Chr (65)=?A? Chr (66)=?B? 2、实数类型函数 在下列算术函数中，X可以是实型或整型数的表达式。对于函数Abs和Sqr，其结果类型和变量X的类型相同，其他算术函数的结果类型都是实型。 绝对值函数Abs(x)：函数值为x的绝对值。 平方函数Sqr (x)：函数值为x的平方。 小数函数Frac (x)：函数值为x的小数部分。 整数函数Int (x)：函数值为x的整数部分。 正弦函数Sin (x)：函数值为x的正弦，其中，的单位为弧度。
一、数学函数： 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 o rd(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 od d(5)=true power(a,n) 求a的n次方power(2,3)=8 exp(b*ln(a)) a的b次方 random 取0~1之间的随机数（不能取到1） randomize 随机数的种子函数,在每次设置随机数时都要把这个函数放在最前面. Fillchar(a,size(a),0) 数组初始化，即把数组a的值全部置为0 SHR: x SHR n 把x换成二进制后向右移n位，相当于把x 除以2n a shr n 等价于a div (2^n) 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的子串。
PASCAL函数表 1、数学函数 求绝对值函数abs(x) 定义：function Abs(X): (Same type as parameter); 说明：X可以是整型，也可以是实型；返回值和X的类型一致例子： var r: Real; i: Integer; begin r := Abs(-2.3); { 2.3 } i := Abs(-157); { 157 } end. 2、取整函数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. 3、截尾函数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. 4、四舍五入函数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. 5、取小数函数frac(x) 定义：function Frac(X: Real): Real; 注意：X 是实型表达式. 结果返回 X 的小数部分; 也就是说，Frac(X) = X - Int(_X). 例子：
字符串类型 在Borland公司的Turbo Pascal和16位Delphi中，传统的字符串类型是一个字符序列，序列的头部是一个长度字节，指示当前字符串的长度。由于只用一个字节来表示字符串的长度，所以字符串不能超过255个字符。这一长度限制为字符串操作带来不便，因为每个字符串必须定长（确省最大值为255），当然你也可以声明更短的字符串以节约存储空间。 字符串类型与数组类型相似。实际上一个字符串差不多就是一个字符类型的数组，因为用[]符号，你就能访问字符串中的字符，这一事实充分说明了上述观点。 为克服传统Pascal 字符串的局限性，32位Delphi增加了对长字符串的支持。这样共有三种字符串类型： ?ShortString 短字符串类型也就是前面所述的传统 Pascal 字符串类型。 这类字符串最多只能有255个字符，与16位Delphi中的字符串相同。短字符串中的每个字符都属于ANSIChar 类型（标准字符类型）。 ?ANSIString长字符串类型就是新增的可变长字符串类型。这类字符串的内存动态分配，引用计数，并使用了更新前拷贝(copy-on-write)技术。 这类字符串长度没有限制（可以存储多达20亿个字符！），其字符类型 也是ANSIChar 类型。 ?WideString 长字符串类型与ANSIString 类型相似，只是它基于WideChar 字符类型，WideChar 字符为双字节Unicode 字符。 使用长字符串 如果只简单地用String定义字符串，那么该字符串可能是短字符串也可能是ANSI长字符串，这取决于$H 编译指令的值，$H+（确省）代表长字符串（ANSIString 类型）。长字符串是Delphi 库中控件使用的字符串。 Delphi 长字符串基于引用计数机制，通过引用计数追踪内存中引用同一字符串的字符串变量，当字符串不再使用时，也就是说引用计数为零时，释放内存。 如果你要增加字符串的长度，而该字符串邻近又没有空闲的内存，即在同一存储单元字符串已没有扩展的余地，这时字符串必须被完整地拷贝到另一个存储单元。当这种情况发生时，Delphi运行时间支持程序会以完全透明的方式为字符串重新分配内存。为了有效地分配所需的存储空间，你可以用SetLength 过程设定字符串的最大长度值： SetLength (String1, 200);
delphi常用函数大全（转） Abort函数引起放弃的意外处理 Abs函数绝对值函数 AddExitProc函数将一过程添加到运行时库的结束过程表中 Addr函数返回指定对象的地址 AdjustLineBreaks函数将给定字符串的行分隔符调整为CR/LF序列Align属性使控件位于窗口某部分 Alignment属性控件标签的文字位置 AllocMem函数在堆栈上分配给定大小的块 AllowGrayed属性允许一个灰度选择 AnsiCompareStr函数比较字符串（区分大小写） AnsiCompareText函数比较字符串（不区分大小写） AnsiLowerCase函数将字符转换为小写 AnsiUpperCase函数将字符转换为大写 Append函数以附加的方式打开已有的文件 ArcTan函数余切函数 AssignFile函数给文件变量赋一外部文件名 Assigned函数测试函数或过程变量是否为空 AutoSize属性自动控制标签的大小 BackgroundColor属性背景色 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函数将日期格式转换为字符串
第十二课过程与函数 前面我们曾经学习了程序设计中的三种基本控制结构（顺序、分支、循环）。用它们可以组成任何程序。但在应用中，还经常用到子程序结构。 通常，在程序设计中，我们会发现一些程序段在程序的不同地方反复出现，此时可以将这些程序段作为相对独立的整体，用一个标识符给它起一个名字，凡是程序中出现该程序段的地方，只要简单地写上其标识符即可。这样的程序段，我们称之为子程序。 子程序的使用不仅缩短了程序，节省了内存空间及减少了程序的编译时间，而且有利于结构化程序设计。因为一个复杂的问题总可将其分解成若干个子问题来解决，如果子问题依然很复杂，还可以将它继续分解，直到每个子问题都是一个具有独立任务的模块。这样编制的程序结构清晰，逻辑关系明确，无论是编写、阅读、调试还是修改，都会带来极大的好处。在一个程序中可以只有主程序而没有子程序(本章以前都是如此)，但不能没有主程序，也就是说不能单独执行子程序。pascal中子程序有两种形式：函数和过程。 一、函数 在此之前，我们曾经介绍并使用了pascal提供的各种标准函数，如ABS,SUCC等等，这些函数为我们编写程序提供了很大的方便。但这些函数只是常用的基本函数，编程时经常需要自定义一些函数。 （一）函数的说明 在pascal中，函数也遵循先说明后使用的规则，在程序中，函数的说明放在调用该函数的程序（主程序或其它子程序）的说明部分。函数的结构主程序的结构很相似。 函数定义的一般格式: function <函数名> (<形式参数表>):<类型>; {函数首部} 说明: ①函数由首部与函数体两部分组成。 ②函数首部以关键字function开头。 ③函数名是用户自定义的标识符。 ④函数的类型也就是函数值的类型，所求得的函数值通过函数名传回调用它的程序。可见，函数的作用一般是为了求得一个值。 ⑤形式参数简称形参，形参即函数的自变量。自变量的初值来源于函数调用。在函数中，形参一般格式如下： 变量名表1：类型标识符1；变量名表2：类型标识符2；…;变量名表n：类型标识符n 可见形参表相当于变量说明，对函数自变量进行说明，但应特别注意：此处只能使用类型标识符，而不能直接使用类型。 ⑥当缺省形参表（当然要同时省去一对括号）时，称为无参函数。 ⑦函数体与程序体基本相似，由说明部分和执行部分组成。 ⑧函数体中的说明部分用来对本函数使用的标号、常量、类型、变量、子程序加以说明，这些量只在本函数内有效。 ⑨函数体的执行部分由begin开头，end结束，中间有若干用分号隔开的语句，只是end后应跟分号,不能像程序那样用句号"."。 ⑩在函数体的执行部分，至少应该给函数名赋一次值，以使在函数执行结束后把函数值带回调用程序。 （二）函数的调用
Delphi函数大全 Abort 函数引起放弃的意外处理 Abs 函数绝对值函数 AddExitProc 函数将一过程添加到运行时库的结束过程表中Addr 函数返回指定对象的地址 AdjustLineBreaks 函数将给定字符串的行分隔符调整为CR/LF序列Align 属性使控件位于窗口某部分 Alignment 属性控件标签的文字位置 AllocMem 函数在堆栈上分配给定大小的块 AllowGrayed 属性允许一个灰度选择 AnsiCompareStr 函数比较字符串（区分大小写）AnsiCompareText 函数比较字符串（不区分大小写）AnsiLowerCase 函数将字符转换为小写 AnsiUpperCase 函数将字符转换为大写 Append 函数以附加的方式打开已有的文件 ArcTan 函数余切函数 AssignFile 函数给文件变量赋一外部文件名 Assigned 函数测试函数或过程变量是否为空 AutoSize 属性自动控制标签的大小 BackgroundColor 属性背景色 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效果
Pascal语言函数集(含Delphi控件属性) abort函数 引起放弃的意外处理 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命令关闭打开的文件
第七课：pascal专题-pascal语言语法大全及应用配套视频 ★qq语音课主讲内容★： 1.pascal语法专用字符：a~z，a~z，0~9，+，-，*，/，=，<>，<=，>=，<，>，(，)，[，]，{，}，:=，，，；，.，：，..，’，^ ； 【解说】 a~z：大写的26个英文字母； a~z：小写的26个英文字母； 0~9：10个数字； +：加法运算符； -：减法运算符； *：乘法运算符； /：除法运算符； =：比较运算符：等于； <>：比较运算符：不等于； <=：比较运算符：小于等于； >=：比较运算符：大于等于； <：比较运算符：小于； >：比较运算符：大于； (，)：优先级和参数表达符：左右括号； [，]：索引号表达符：中括号； {，}：段落屏蔽和备注符：大括号； :=：赋值运算符； ，：排列式表达符：逗号； ；：代码（功能）行结束符； .：主从代码分隔符：点号； ：：变量定义分隔符：冒号； ..：子界定义表达符； ’：字符串标识符：单引号； ^ ：指针定义符：尖号。 2. pascal语法保留字：and，array，begin，case，const，div，do，downto，else，end，file，for，function，goto，if，in，label，mod，nil，not，of，or，packed，procedure，program，record，repeat，set，then，to，type，until，var，while，with，exports，shr，string，asm，object，unit，constructor，implementation，destructor，uses，inherited，inline，interface，library，xor，shl ； 【解说】 and：逻辑运算符：逻辑与； array：数组定义符：array of …； begin：程序“块”的开始标识符；
MATLAB函数大全 Matlab有没有求矩阵行数/列数/维数的函数？ ndims(A)返回A的维数 size(A)返回A各个维的最大元素个数 length(A)返回max(size(A)) [m,n]=size(A)如果A是二维数组，返回行数和列数nnz(A)返回A中非0元素的个数 MATLAB的取整函数:fix(x), floor(x) :,ceil(x) , round(x) (1)fix(x) : 截尾取整. >> fix( [3.12 -3.12]) ans = 3 -3 (2)floor(x):不超过x 的最大整数.(高斯取整) >> floor( [3.12 -3.12]) ans =
3 -4 (3)ceil(x) : 大于x 的最小整数>> ceil( [3.12 -3.12]) ans = 4 -3 (4)四舍五入取整 >> round(3.12 -3.12) ans = >> round([3.12 -3.12]) ans =
3 -3 >> 如何用matlab生成随机数函数 rand(1) rand(n):生成0到1之间的n阶随机数方阵rand(m,n):生成0到1之间的m×n的随机数矩阵(现成的函数) 另外: Matlab随机数生成函数 betarnd 贝塔分布的随机数生成器 binornd 二项分布的随机数生成器 chi2rnd 卡方分布的随机数生成器 exprnd 指数分布的随机数生成器 frnd f分布的随机数生成器 gamrnd 伽玛分布的随机数生成器 geornd 几何分布的随机数生成器 hygernd 超几何分布的随机数生成器
Turbo Pascal基本函数 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填充数值或字符
1.2上机操作 一、启动pascal D:\TP\ F10或ALT+F，可使用键盘方式实现启动主功能菜单方式。 File/new：新建一个编辑窗口（打开名为Noname0.pas的新文件） 注意：可同时打开多个窗口，但任意时刻只有一个窗口是处于活动状态（活动窗口的边框为双线，静止窗口的边框为单线），活动窗口指拥护当前正在其上工作的窗口。 当多个窗口时，可用alt+(1-9),其中“1-9”表示窗口编号，以数字号选择当前活动窗口。 关闭窗口，则可用alt+F3(关闭当前窗口) F2存盘 Change Dir…修改当前文件操作路径。 CTRL+F9 运行程序，若中途需要终止程序运行的话，可：CTRL+C。 切换到输出屏幕： 对于WIN98：ALT+F5 对于WINXP：在程序结束前，加入Readln语句。 每一种程序设计语言都有自己规定的格式和词汇，词汇集由上述的保留字、标识符和特殊字符数组成的，当我们学习一种程序设计语言时，还应该注意，它的语法和语义，就如我们学习英语语法：表示语言的各种构成记号之间的组合规则。 语义：表示的含义。 1.3 pascal的程序组成 例1、求半径为R的圆的面积和周长。 PROGRAM circle(input,output); CONST pi=3.1415926; V AR r,s,l:integer; BEGIN Write(‘r=’); Readln(r); s:=2*pi*r*r; l:=2*pi*r; writeln(‘s=’,s);；‘；’ writeln(‘l=’,l); END. 上面的例子，就是一个完整的pascal 的程序。一个“完整”的pascal程序应该有以下的部分组成）：
各种函数大全 Delphi 2009-03-21 07:05:10 阅读102 评论0 字号：大中小订阅 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 具有日期、时间、目录查找、程序执行等功能
一、数学函数与过程 过程： 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)='a' chr(48)='0' x为非负整数 ord(x) 求字符x对应的编号。例：ord(‘A')=65 ord(‘a')=97 另外：ord(false)=0 ord(true)=1 x为字符或数字或布尔量 sqr(x) 求x的平方。例：sqr(4)=16 x为整数 sqrt(x) 求x的正根。例：sqrt(16)=4 (ps：负数是不能进行运算的，如果需要就要先取绝对值：sqrt(-4)是错的，应该为sqrt(abs(-4))结果为实数 round(x) 求x的四舍五入。例：round(4.5)=5 x实数 trunc(x) 求x的整数部分。例：trunc(5.6)=5 结果是integer型 x为实数 int(x) 求x的整数部分。例：int(5.6)=5.0 结果是real型 x为实数 frac (x) 求x的小数部分。例：frac(5.6)=0.6 x为实数 pred(x) 求x的前导。例：pred(‘b')='a' pred(5)=4 pred(true)=false x 为字符或数字或布尔量 succ(x) 求x的后继。例：succ(‘b')='c' succ(5)=6 succ(false)=true x为字符或数字或布尔量 odd(x) 判断x是否为奇数。如果是值为true，反之值为false。例：odd(2)=false odd(5)=true x为整数 二、字符串函数与过程 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
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 求长度length 定义：function Length(S: String): Integer; 例子： var S: String; begin Readln (S); Writeln('"', S, '"'); Writeln('length = ', Length(S)); end. 复制子串copy 定义：function Copy(S: String; Index: Integer; Count: Integer): String; 注意：S 是字符串类型的表达式。Index和Count是整型表达式。Copy 返回S中从Index 开始，Count个字符长的一个子串。 例子： var S: String; begin S := 'ABCDEF'; S := Copy(S, 2, 3); { 'BCD' }
变量 Pascal 变量在使用前必须声明，声明变量时必须指定一种数据类型。下面是变量声明的例子： var Value: Integer; IsCorrect: Boolean; A, B: Char; 关键字var可以在许多地方使用，例如放在函数或过程的开始部分，用来声明函数或过程的局部变量；也可以放在单元中，用于声明全程变量。var关键字之后是一组变量名列表，每个变量名后跟一个冒号和数据类型名，一行中可以声明多个变量，如上例中最后一句。 一旦变量的类型被指定，你只能对变量执行该变量类型支持的操作。例如，在判断操作中用布尔值，在数字表达式中用整型值，你不能将布尔值和整型值混用（在C语言中可以这样）。 使用简单的赋值语句，可写出下面的代码： Value := 10; IsCorrect := True; 但下面的语句是不正确的，因为两个变量数据类型不同： Value := IsCorrect; // error 在Delphi中编译这句代码，会出现错误信息：Incompatible types: 'Integer' and 'Boolean'.（类型不兼容：‘整型’和‘布尔型’）。象这样的错误通常是编程错误，因为把一个True或False的值赋给一个整型变量没有什么意义。你不该责怪Delphi 提示这样的错误信息，代码中有不对的地方Delphi当然要提出警告。 把变量的值从一种类型转换到另一种类型往往不难做到，有些情况下类型转换会自动实现，不过一般情况下需要调用特殊的系统函数，通过改变数据内部表示来实现类型转换。 在Delphi 中，当你声明全程变量时，你可以赋给它一个初值。例如，你可以这样写： var Value: Integer = 10; Correct: Boolean = True;