PASCAL函数表

合集下载

PASCAL中常用的函数和过程

PASCAL中常用的函数和过程
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 }
随机数在信息学奥林匹克中可用于随机化搜索、穷举等算法,以优化其性能, 也可用于在快速排序中选择关键数,以使其快速排序算法的最坏情况没有固定的 相应数列。
另外,System 单元中随机种子变量的标识符为 RandSeed,你也可以手动修 改它。如果你希望使用了随机数的程序对同一个输入数据能有恒定的输出结果, 可以设置 RandSeed 为一个定值。
附: 如何获取随机数?
随机数是指理论上没有规律可循、在指定范围内每个数的出现几率相等、无 法根据之前的数来预测下一个数的数列。一般随机数生成器的基本原理是:首先 初始化一个随机种子,其初始值可以是任意的整数;在每次获取随机数时,以随 机种子为基础进行某种特殊的运算,获得一个随机数并返回之,然后再对随机种 子进行某种运算,改变随机种子的值。这样,就可以生成许多比较随机的数,但 同一个初始值的随机种子将会生成完全相同的随机数列。
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). 例子: var R: Real; begin R := Frac(123.456); { 0.456 } R := Frac(-123.456); { -0.456 } end.

pascal常用函数

pascal常用函数

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可以是实型或整型数的表达式。

PASCAL标准函数

PASCAL标准函数

标准函数
PASCAL语言不仅对某一类型中的数据定义了算符操作而且也定义了函数操作(标准函数)。

标准函数是指PASCAL语言中已预先定义的、用户可以直接使用的函数。

函数的调用格式:
函数名(参数)其中参数可以是常量、变量、表达式。

注意:函数相当于一个表达式,不可以当语句使用,可以写在可执行语句中。

标准数据类型
∙整数类型(没有小数部分)
INTEGER:取值范围 [-32768, 32767]。

占用内存 2个字节( 16位)。

WORD:取值范围 [0, 65535]。

占用内存 2个字节( 16位)。

BYTE:取值范围 [0, 255]。

占用内存 1个字节( 8位)。

LONGINT:取值范围 [-2147483648, 2147483647]。

占用内存 4个字节( 32位)。

SHORTINT:取值范围 [-128, 127]。

占用内存 1个字节( 8位)。

∙实数类型
REAL:取值范围 [2.9E-39, 1.7E+38]。

占用内存 6个字节( 48位)。

∙字符类型
CHAR:单字符型,即取 1个字符,如‘ A’,‘ 1’。

STRING:字符串型,即多个字符,如‘ ABCD!123’,‘ %¥#DS12’
∙布尔型
BOOLEAN:布尔型即为逻辑型,取值为 TRUE、 FALSE,即真、假。

也有序,true 为1,false为0。

常用语句格式。

Pascal中的常用字符串函数

Pascal中的常用字符串函数

1. 连接运算conca‎t(s1,s2,s3…sn) 相当于s1‎+s2+s3+…+sn.例:conca‎t(‘11’,’aa’)=’11aa’;2. 求子串。

Copy(s,I,L) 从字符串s‎中截取第I‎个字符开始‎后的长度为‎l的子串。

例:copy(‘abdag‎’,2,3)=’bda’3. 删除子串。

过程Delet‎e(s,I,l) 从字符串s‎中删除第I‎个字符开始‎后的长度为‎l的子串。

例:s:=’abcde‎’;delet‎e(s,2,3);结果s:=’ae’4. 插入子串。

过程Ins‎e rt(s1,s2,I) 把s1插入‎到s2的第‎I个位置例:s:=abc;inser‎t(‘12’,s,2);结果s:=’a12bc‎’5. 求字符串长‎度lengt‎h(s) 例:lengt‎h(‘12abc‎’)=56. 搜索子串的‎位置pos(s1,s2) 如果s1是‎s2的子串‎,则返回s1‎的第一个字‎符在s2中‎的位置,若不是子串‎,则返回0.例:pos(‘ab’,’12abc‎d’)=37. 字符的大写‎转换。

Upcas‎e(ch) 求字符ch‎的大写体。

例:upcas‎e(‘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求长度le‎n gth定义:funct‎i on Lengt‎h(S: Strin‎g): Integ‎e r;例子:varS: Strin‎g;begin‎Readl‎n (S);Write‎l n('"', S, '"');Write‎l n('lengt‎h = ', Lengt‎h(S));end.复制子串c‎o py定义:funct‎i on Copy(S: Strin‎g; Index‎:Integ‎e r; Count‎:Integ‎e r): Strin‎g;注意:S 是字符串类‎型的表达式‎。

PASCAL标准函数表

PASCAL标准函数表



11


ORD(x)
INTEGER
求x的序号
12


CHR(x)
CHAR
函数值是以x为序号的字符
13 顺 序 函 数 14


PRED(x)
INTEGER 取自变量x的前一个数据 CHAR 若自变量x是第一项,则函数 BOOLEAN 无意义。 枚举型 INTEGER 取自变量x的后一个数据 CHAR 若自变量x是最后一项,则函 BOOLEAN 数无意义。 枚举型 BOOLEAN BOOLEAN BOOLEAN 判断自变量x的奇偶性 判断文件位置指针是否指向 换行符 判断文件位置指针是否指向 文件结束标志
PASCAL的标准函数
序号 1 2 类 型 函数名称 绝对值 平方值 函数标识符 ABS(X) SQR(X) SQRT(X) SIN(X) COS(X) ARCTAN(X) EXP(X) LN(X) 自变量类型 INTEGER REAL INTEGER REAL 非负整数 非负实数 INTEGER REAL INTEGER REAL INTEGER REAL INTEGER REAL 正整数 正实数 REAL REAL INTEGER CHAR BOOLEAN 枚举型 INTEGER INTEGER CHAR BOOLEAN 枚举型 INTEGER CHAR BOOLEAN 枚举型 INTEGER 文件 函数类型 INTEGER REAL INTEGER REAL 非负实数 REAL REAL REAL REAL REAL 说明 求x的绝对值 求x的平方值


SUCC(x)
15 16
17
逻 辑 判 断 函 数
奇函数 行结束函数

PASCAL编程基础篇

PASCAL编程基础篇

给A数组冒泡排序
由大到小输出最大数 i1
i i+1
Y
A[i]=‘0’
N
输出A[I],A[1]~ A[I-1],A[I+1]~最后
结束
Pascal编程基础篇
——信息学奥赛培训班讲座
第三讲:字符和字符串
一、字符和字符串函数
字符的函数:
前导函数:pred(x) 后续函数:succ(x) 序号函数:ord(x) 字符函数:chr(x) pred(‘p’)= o pred(‘p’)= q ord(‘p’)= 111 chr(65)= A pred(‘B’)= A pred(‘B’)= C
二、字符串过程
插入过程:insert(s1,s2,i) insert(‘ab’,’12345’,3)= 12ab345 删除过程:delete(s,i,n) delete(‘abcdefg’,2,4)= afg 数值转换为字符串过程:str(v,s) V是数值型,S是字符串型 字符串转换成数值过程:val(s,v,c) S是字符串型,V是数值型,出错位放在C中,为数值型
ord(‘B’)= 66 chr(100)= d ord(chr(98))= 98 chr(ord(‘A’))= A pred(5)= 4 succ(5)= 6 pred(succ(8))= 8 pred(‘B’)= A succ(‘B’)=C Succ(pred((‘B’))= B Length(‘abcde’)= 5 pos(‘x’,’This is a pen’)=0 copy(‘abc12345gh’,6,4)= 345g
例1:301:打印下面的文本图形。当N=5时,图形如下。 (0<N<27)
ABCDEDCBA

PASCAL语言函数集(含DELPHI控件属性)

PASCAL语言函数集(含DELPHI控件属性)

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命令关闭打开的文件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命令建立一子目录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函数返回圆周率pipicture属性显示图象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函数测试变体是否为unassignedvarisnull函数测试变体是否为nullvartodatetime函数将给定的变体转换为日期时间vartype函数将变体转换为指定的类型并保存它visible属性控件的可见性wantreturns属性为true时,按回车键产生一个回车符;为false时,按下ctrl+enter才产生回车符write命令对有格式的文件,写一变量到文件组件中;对文本文件,写一个或多个值到文件中writeln命令执行write过程,然后输出一行结束标志widecharlentostring函数将ansi字符串转换为unicode字符串widecharlentostrwar函数将unicode字符串转换为ansi字符串变量widechartostring函数将unicode字符串转换为ansi字符串widechartostrvar函数将unicode字符串转换为ansi字符串变量Pascal中的常用数学函数求绝对值函数abs(x)定义:function Abs(X):(Same type as parameter);说明:X可以是整型,也可以是实型;返回值和X的类型一致例子:varr:Real;i:Integer;beginr:=Abs(-2.3);{2.3}i:=Abs(-157);{157}end.取整函数int(x)定义:function Int(X:Real):Real;注意:X是实型数,返回值也是实型的;返回的是X的整数部分,也就是说,X被截尾了(而不是四舍五入)例子:var R:Real;beginR:=Int(123.567);{123.0}R:=Int(-123.456);{-123.0}end.截尾函数trunc(x)定义:function Trunc(X:Real):Longint;注意:X是实型表达式.Trunc返回Longint 型的X的整数部分例子:beginWriteln(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的表示范围,则出错.例子:beginWriteln(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).例子:varR:Real;beginR:=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.例子:beginWriteln('5squared is',Sqr(5));{25}Writeln('The square root of2is',Sqrt(2.0));{1.414}Pascal函数实例标准数据类型的含义及符号(1)整型数的取值范围:-32768<=n<=32768;整型运算操作:+、-、*、div、mod;整型关系操作:=、<>、>=、<=,结果为布尔型;有关整型的标准函数:整型函数函数名函数值例前接函数pred(x)x-1pred(4)=3后继函数succ(x)x+1succ(-3)=-2绝对值函数abs(x)|x|abs(-1)=1平方函数sqr(x)x^2sqr(-5)=25奇函数odd(x)x为奇数时值为True odd(1)=truex为偶数时值为False odd(16)=false字符函数chr(x)序号为x的ASCII字符chr(65)=\'\'a\'\'a对应的序号65(2)实型数的绝对值取值范围:1E-38~1E+38;计算机实数的表示标准形式往往类如1.2E-8,-1234.56E+3等形式;实数范围比整数大,但实型数的运算速度比整形数慢,另外实型数在存储时会出现小的误差;实型的运算操作:+、-、*、/。

PASCAL中常用的函数和过程

PASCAL中常用的函数和过程
附: 如Байду номын сангаас获取随机数?
随机数是指理论上没有规律可循、在指定范围内每个数的出现几率相等、无 法根据之前的数来预测下一个数的数列。一般随机数生成器的基本原理是:首先 初始化一个随机种子,其初始值可以是任意的整数;在每次获取随机数时,以随 机种子为基础进行某种特殊的运算,获得一个随机数并返回之,然后再对随机种 子进行某种运算,改变随机种子的值。这样,就可以生成许多比较随机的数,但 同一个初始值的随机种子将会生成完全相同的随机数列。
11、Upcase(ch:char) 函数:把字符转换成大写 12、random(x)函数:返回零到 X 之间的随机数。若不指定 X,结果是 0-1 之间 的随机实数。 13、inc(x)或者 inc(x,n)过程:把变量 x 加 1 或者加 n 14、dec(x)或 dec(x,n)过程:把变量 x 减 1 或者减 n 15、randomize 过程:随机数初始化 16、过程 Str(x,s):把数字 x 转换成字符串 s 17、过程 Val(s,v,code):把字符串 s 转换成数字 v,字符串 s 必须满足数的语 法,若 s 无效,其中非法字符的下标放在 code 中,否则,code 为零。
begin Writeln( Ord('a')); { 97 } Writeln(Chr(97)); { 'a' } end. 8、pred(x)和 succ(x) 函数 送回参数的前趋或后继数 9、length(s:string)函数:求字符串的长度 10、odd(x:longint)函数:判断表达式是否是奇数
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.

pascal语言中的过程及函数

pascal语言中的过程及函数

Pascal 过程与函数Pascal中的例程有两种形式:过程和函数。

理论上说,过程是你要求计算机执行的操作,函数是能返回值的计算。

两者突出的不同点在于:函数能返回计算结果,即有一个返回值,而过程没有。

两种类型的例程都可以带多个给定类型的参数。

不过实际上函数和过程差别不大,因为你可以调用函数完成一系列操作,跳过其返回值(用可选的出错代码或类似的东西代替返回值);也可以通过过程的参数传递计算结果(这种参数称为引用,下一部分会讲到)。

下例定义了一个过程、两个函数,两个函数的语法略有不同,结果是完全相同的。

procedure Hello;beginShowMessage ('Hello world!');end;function Double (Value: Integer) : Integer;beginDouble := Value * 2;end;10] of Integer;X, I: Integer;beginType ofvtInteger: Result :=Result + Args [I].VInteger;vtBoolean:if Args [I].VBoolean thenResult := Result + 1;vtChar:Result := Result + Ord (Args [I].VChar);vtExtended:Result := Result + Args [I].VExtended^;vtString, vtAnsiString:Result := Result + StrToIntDef ((Args [I].VString^), 0);vtWideChar:Result := Result + Ord (Args [I].VWideChar);vtCurrency:Result := Result + Args [I].VCurrency^;end;.private{ Private declarations }IP: IntProc;X: Integer;end;学完下一章,你会更清楚地了解这段代码的意思,目前只要能知道怎样添加过程类型定义、怎样修改相应的代码就行了。

Pascal函数 和过程速查手册

Pascal函数 和过程速查手册

Pascal函数和过程速查手册函数不能做为语句单独使用,多出现在条件和:=的右边位置;过程无返回值,必须做为语句单独使用ABS(-5);错A:=ABS(-5);对FILLCHAR(W,SIXZEOF(W),0);对W:=FILLCHAR(W,SIXZEOF(W),0);错Pascal把常用的一些运算定义为系统标准函数,简称为标准函数;标准函数的名字都是预定义标识符;引用一个函数就称为函数调用,调用时只要在程序中写出某一函数名以及函数所需要的参数,系统就会自动运算并得出结果,例如:abs(-123)将返回123。

Pascal的标准函数共有17个,可分为四类:算术函数、转换函数、顺序函数及逻辑判断函数。

一、算术函数(1)、求绝对值-ABS:是英文单词absolute(绝对)的缩写,ABS(x)表示求x的绝对值例如:PROGRAM EX;Var a:integer;b:real;BEGINa=-34.5;b=234.5;write(abs(a):5:1,' ',abs(b):5:1); {将输出34.5 234.5}readln;END.(2)、反正切函数-ARCTAN:ARCTAN(x)表示求x的反正切函数值,返回值为real型例如:PROGRAM EX;Var a:integer;b:real;BEGINa=1;b=1.0;write(abs(a):6:4,' ',abs(b):6:4); {将输出0.7854 0.7854}readln;END.(3)、余弦函数-COS、正弦函数-SIN:COS(x)表示求x的余弦值;SIN(x)表示求x的余弦值。

这里的x必须为弧度,不能直接使用角度单位的量。

如果x为角度数,可以用后面的方式转换:x*3.14/180(4)、指数函数-EXP、自然对数函数-LN:EXP是英文单词exponent(指数)的缩写,EXP(x)表示求以e为底x为指数的函数值,即E X;LN是英文单词logarithrm(自然对数)的缩写,LN(x)表示求x的自然对数,即LOG e X(5)、平方函数-SQR、正平方根函数-SQRT:SQR是英文单词square(平方)的缩写;SQRT是英文单词square root(平方根)的缩写几点说明:Pascal中无幂运算,要求X Y可以用后面的公式:X Y=e YLNX(X>0)求常用对数可用公式:logX=lnX/ln10。

Pascal字符串函数

Pascal字符串函数

1、求长度length定义:function length(s: string): integer;例子:vars: string;beginreadln (s);writeln(‘"‘, s, ‘"‘);writeln(‘length = ‘, length(s));end.2、复制子串copy定义:function copy(s: string; index: integer; count: integer): string;注意:s 是字符串类型的表达式。

index和count是整型表达式。

copy 返回s中从index开始,count个字符长的一个子串。

例子:var s: string;begins := ‘abcdef‘;s := copy(s, 2, 3); { ‘bcd‘ }end.3、插入子串insert定义:procedure insert(source: string; var s: string; index: integer);注意:source 是字符串类型的表达式。

s 是任意长度字符串类型变量。

index 是整型表达式。

insert 把source插在s 中index处。

如果结果字符串的长度大于255,那么255之后的字符将被删除。

例子:vars: string;begins := ‘honest lincoln‘;insert(‘abe ‘, s, 8); { ‘honest abe lincoln‘ }end.4、删除子串delete定义:procedure delete(var s: string; index: integer; count:integer);注意:s 是字符串类型变量。

index和countare是整型表达式。

delete 删除s中从index开始的count个字符。

如果index大于s的长度,则不删除任何字符;如果count大于s中从index开始的实际字符数,则删除实际的字符数。

PAScAL函数大全

PAScAL函数大全

PAScAL函数大全PAScAL 函数大全函数标识符自变量类型意义结果类型abs整型、实型绝对值同自变量arctan 整型、实型反正切实型cos整型、实型余弦实型exp整型、实型指数实型frac 整型、实型小数部分实型int整型、实型整数部分实型ln整型、实型自然对数实型pi无自变量圆周率实型sin整型、实型正弦实型sqr整型、实型平方同自变量sqrt 整型、实型平方根实型例:abs(-4)=4abs(-7.49)=7.49--arctan(0)=0.0 sin(pi)=0.0 cos(pi)=-1.0 frac(-3.71)=-0.71int(-3.71)=-3.0 --sqr(4)=16sqrt(4)=2--2.标量函数函数标识符自变量类型意义结果类型odd整型判断奇数布尔型pred离散类型求前趋同自变量succ离散类型求后继同自变量例:odd(1000)=false odd(3)truepred(2000)=1999 succ(2000)=2001 pred('x')='w' succ('x')='y'3.转换函数函数标识符自变量类型意义结果类型chrbyte型自量对应的字符字符型ord离散类型自量对应的序号 longintround实型四舍五入longinttrunc 实型截断取整longint4.杂类函数函数标识符自变量类型意义结果类型random 无自变量[0,1)之间的随机实数realrandom word[0,自变量)之间的随机整数wirdrandomize 无自变量用一随机值初始化内部随机数产生器longintupcase字符型使小写英文字母变为大写字符型Gmycn管理员UID 1精华 2积分 779帖子 208威望 60金钱 630魅力 338阅读权限 2552006-10-2 注册状态在线 #2发表于 2006-11-2 16:19 资料个人空间短消息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 命令关闭打开的文件标签的颜色 color 属性columns 属性显示的列数comparestr 函数比较字符串(区分大小写) concat 函数合并字符串继续for、while、repeat的下一个循环 continue 命令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 函数& nbsp;将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 命令建立一子目录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 函数在堆栈上分配一个字符串将以null结束的字符串转换为pascal类的字符串 strpas 函数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 函数测试变体是否为nullvartodatetime 函数将给定的变体转换为日期时间 vartype 函数将变体转换为指定的类型并保存它 visible 属性控件的可见性wantreturns 属性为true时,按回车键产生一个回车符;为false时,按下ctrl+enter才产生回车符write 命令对有格式的文件,写一变量到文件组件中;对文本文件,写一个或多个值到文件中writeln 命令执行write过程,然后输出一行结束标志widecharlentostring 函数将ansi字符串转换为unicode字符串widecharlentostrwar 函数将unicode字符串转换为ansi字符串变量widechartostring 函数将unicode字符串转换为ansi字符串widechartostrvar 函数将unicode字符串转换为ansi字符串变量。

pascal语言

pascal语言

初识PASCAL 一个完全的PASCAL程序结构框架如下:PROGRAM程序名(程序参数表);CONST常量声明;TYPE类型声明;VAR变量声明;FUNCTION函数名(参数表):函数类型;函数声明;PROCEDURE过程名(参数表);过程声明;BEGIN程序主体;END.变量的定义一、变量定义方法VAR变量名1:变量类型1;变量名2:变量类型2;变量名3,变量名4:变量类型3;二、变量命名规则1、首字符必须是英文2、只能由英文、数字和下划线组成。

三、变量类型常用的几个变量类型如下表:输入输出语句一、输出语句格式Writeln(项目1,项目2,……,项目n); {输出内容后换行} Write(项目1,项目2 ,……,项目n); {输出内容后不换行}二、输入语句格式Read(变量1,变量2,……,变量n);{从键盘输入n个数据,以空格格开}Readln(变量1,变量2 ,……,变量n);{从键盘输入n个数据,以空格格开,读完后换行}三、赋值语句用法变量名:=表达式;{把右边表达式的值计算出来,结果赋给左边的变量} 举例:a:=3;a:=a+1;s:=(a+b)*(c+d);文件输入输出方法一、装配文件assign(input,’文件路径’);{文件路径一般为相对路径,相对程序的工作目录} reset(input);assign(output,’文件路径’);rewrite(output);二、输入输出方法read(x);write(x);三、关闭文件close(input);close(output);{输出文件必须关闭,否则可能不能正确保存}程序的基本控制结构一、顺序结构1、顺序结构的程序按照书写顺序依次执行begin语句1;语句2;end;2、实例输入两个整数x,y,计算x,y的差并输出。

Program example;varx,y,s:integer;beginread(x,y);s:=x-y;writeln(s);end.二、分支结构1、分支结构又叫选择结构或条件结构If条件then语句1 {注意这里不可以加分号,因为IF语句到这里没有结束,后面还有ELSE语句}else语句2;2、没有ELSE的IF语句If条件then 语句1;3、实例输入3个整数,输出最大的数。

pascal函数表

pascal函数表

过程编辑1.标准过程:由Pascal定义的过程。

如我们熟悉的read,write等,程序员编程时直接引用就行了。

2.自定义过程:由程序员在程序中定义后再使用。

(1)过程的定义procedure 过程名(形式参数表); {————过程首部}var {————说明部分}begin {————过程体}......end;(2)过程的调用:过程在语法上相当于一个语句,所以,调用时,直接写下就行:过程名(实在参数表);//--System单元函数/过程//--过程:inc(i) 使i:=i+1; inc(i,b) 使i:=i+b; dec(i) 使i:=i-1; dec(i,b) 使i:=i-b;//--randomize 初始化随机数发生器。

如果没有使用randomize,则random函数将使用第一次调用时的返回值.//--常用过程列表:APPEND(F) P 打开一个存在的文本文件,并将文件指针指向文件末尾准备添加元素ASSIGN(F,C) P 将字符串C所表示的外部文件名赋给文件变量FASSIGNED(X) P 测试程序当中的指针或变量是否为空BLOCKREAD(F,D,NUM) P 读类型文件。

BLOCKWRITE(F,D,NUM) P 写无类型文件BREAK P 中止或结束循环CHDIR(PATH) P 改变当前目录CLOSE(F) P 关闭文件CONTINUE P 继续循环DELETE(S,POS,LEN) P 删除一个字符串的子串DISPOSE(P) P 释放一个动态变量ERASE(F) P 删除一个存在的外部文件。

EXIT P 过程中止FILLCHAR(D,LEN,DA TE) P 填充数值或字符FLUSH(F) P 清空文件缓存区FREEMEM(P,I) P 释放变长动态变量GETDIR(DRV,PATH) P 取当前盘,当前目录GETMEM(P,I) P 分配变长的动态变量,并把块地址存放在一个指针变量中HALT P 立即中止程序执行,返回TP编辑器或DOSMKDIR(PATH) P 建立一个子目录MOVE(S,D,LEN) P 快传送NEW(P) P 建立一个新的动态变量randomize p 初始化随机数发生器read/readln(f,x) p 读入/输入数据rename(f,str) p 给一个外部文件改名reset(f) p 打开文件,并将文件指针指向开始,并准备读数据rewrite(f) p 打开文件,并将文件指针指向开始,准备写资料rmdir(path) p 删除一个子目录runerror p 停止程序的运行scrollto p 滚动显示窗口的某部分内容seek(f,n) p 将文件指针定位于文件f的第n个文件成分上settextbuf(f) p 将输入/出缓冲区与一个文本文件建立关联truncate(f) p 截去文件当前指针以后的内容val(s,r,p) p 将一个字符串转换成数值writeln(f,x) p 输出{备注:f:function;p:procedure}2标准函数编辑标准函数。

pascal函数大全

pascal函数大全

pascal函数大全pascal函数编辑本段一、数学函数:Inc(i) 使i:=i+1; (在free pascal中,它是过程,不能再将值赋给变量,也不能写在语句中直接调用)dec(i) 使i:=i-1; (在free pascal中,它是过程,不能再将值赋给变量,也不能写在语句中直接调用)Abs(x) 求x的绝对值例:abs(-3)=3Chr(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)=16Sqrt(x)求x的开方. 例:sqrt(16)=4round(x) 求x的四舍五入例:round(4.5)=5 结果是integer型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 (在free pascal中想看小数型式的结果,在输出时应指定场宽)pred(x) 求x的前导pred(‘b’)=’a’pred(5)=4 pred(true)=falsesucc(x) 求x的后继succ(‘b’)=’c’succ(5)=6 succ(false)=trueodd(x) 判断x是否为奇数。

如果是值为true,反之值为false. Odd(2)=false odd(5)=truepower(a,n) 求a的n次方power(2,3)=8 {只有在开启math库时才可以使用}random 取0~1之间的随机数(不能取到1)randomize 随机数的种子函数,在每次设置随机数时都要把这个函数放在最前面.Fillchar(a,size(a),0) 数组初始化,即把数组a的值全部置为0 {赋成布尔型变量也可以}SHR: x SHR n 把x换成二进制后向右移n位,相当于把x 除以2nSHL: x SHL n把x换成二进制后向左移n位,相当于把x 乘以2n编辑本段二、字符串函数1. 连接运算concat(s1,s2,s3…sn) 相当于s1+s2+s3+…+sn.例:concat(‘11’,’aa’)=’11aa’;2. 求子串。

Pascal函数

Pascal函数

1、数学函数绝对值函数abs(x)截尾函数trunc(x)四舍五入函数round(x) 取小数函数frac(x) 求平方根函数sqrt(x)和平方函数sqr(x) 2、所有单元 system tp的运行库,包括常用的标准函数和过程,可以在程序中直接使用,不需uses语句说明。

dos 具有日期、时间、目录查找、程序执行等功能crt 具有屏幕模式控制、扩展键盘码、颜色、窗口、声音等功能printer 支持打印输出操作。

graph 高级图形软件包,支持多种图形适配器。

graph3 实现tp3.0的图形软件包。

turbo3 兼容tp3.0的源程序。

overlay 实现高级覆盖管理3、system单元system单元常用过程与函数abs(x) f 求变量的绝对值addr(x) f 测变量地址append(f) p 打开一个存在的文本文件,并将文件指针指向文件末尾准备添加元素arctan(x) f 反正切assign(f,c) p 将字符串c所表示的外部文件名赋给文件变量fassigned(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-1delete(s,pos,len) p 删除一个字符串的子串dispose(p) p 释放一个动态变量dseg f 返回ds寄存器的当前值eof(f) f 判断文件是否结束eoln(f) f 判断文件类型中的一行是否结束erase(f) p 删除一个存在的外部文件。

pascal函数和过程

pascal函数和过程

过程: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为整数power(a,n) 求a的n次方。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

PASCAL函数表1、数学函数求绝对值函数abs(x)定义:function Abs(X): (Same type as parameter);说明:X可以是整型,也可以是实型;返回值和X的类型一致例子:varr: Real;i: Integer;beginr := Abs(-2.3); { 2.3 }i := Abs(-157); { 157 }end.2、取整函数int(x)定义:function Int(X: Real): Real; 注意:X是实型数,返回值也是实型的;返回的是X 的整数部分,也就是说,X被截尾了(而不是四舍五入)例子:var R: Real;beginR := Int(123.567); { 123.0 }R := Int(-123.456); { -123.0 }end.3、截尾函数trunc(x)定义:function Trunc(X: Real): Longint; 注意:X是实型表达式. Trunc 返回Longint 型的X的整数部分例子:beginWriteln(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的表示范围,则出错. 例子:beginWriteln(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). 例子:varR: Real;beginR := Frac(123.456); { 0.456 }R := Frac(-123.456); { -0.456 }end.6、求平方根函数sqrt(x)和平方函数sqr(x)定义:平方根:function Sqrt(X: Real): Real;注意:X 是实型表达式. 返回实型的X的平方根. 平方:function Sqr(X): (Same type as parameter);注意:X 是实型或整型表达式.返回值的类型和X的类型一致,大小是X的平方,即X*X. 例子:beginWriteln('5 squared is ', Sqr(5)); { 25 }Writeln('The square root of 2 is ',Sqrt(2.0)); { 1.414 }2、其他常用函数function binstr(value:longint;cnt:byte):string;将value转二进制,取后cnt个字符所成字串function lowercase(c:char or string):char or string;upcase 的反函数procedure setlength(var s:string;len:longint);将s长度定为lenfunction power(base,expon:real):real;base的expon次方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 命令对有格式的文件,写一变量到文件组件中;对文本文件,写一个或多个值到文件3、其他不常用函数Addr语法 function Addr(var f:text);说明 addr返回一个变量,类型或过程的地址。

结果为指针类型assigncer语法 procedure assigncrt(var f:file;name:string);说明将文件f的内容输于显示器上bolckread语法procedure blockread(var f:file; var b:type; numrecs:integer;varecsread:integer);说明从无类型文件f中读出number 个记录,放在缓冲区b .recsread表示了实际读出的记录数。

注意:只有pc\ms-dos版才支持recsreadbolckwrite语法 procedure blockwrite(var f:file; var b:type; numrecs:integer);说明从缓冲区b读出numrecs个记录至无类型文件中。

chdir表示的目录.语法 procedure chdir (s:string);说明将当前的目录换为s所filesize语法 function(f:file):integer;说明返回f当前所含的记录数。

filepos语法 function(f:file):integer;说明返回文件f指针所指向的记录号fillpoly(dos)语法 frocedure fillpoly(munpoints:word;var polypoints);说明用munpoints个点画一个多边形,数组munpoints含多边形的顶点坐标flush说明 procedure flush(var f:file)语法刷新用于输出文件f的全部磁盘缓冲区frac语法 function frac(r:real):real;说明返回实数r的小数部分fsearch (dos)语法 function fsearch(path:pathstr;dirlist:string):pathstr说明查找dirlist目录中的与path相匹配的文件。

如果找到则以一个字符串返回结果,否则返回的函数值为一空串insline语法 procedure insline;说明在当前光标的所在位置插入一空行mark语法 procedure mark(p:pionter)说明贮存了当前堆顶端知底于指针p中maxavaih语法 function maxavil:longint说明返回堆中最大的自由块的尺寸menavail语法 function memavail:longint说明返回堆中自由空间的总长度mkdir语法 procedure mkdir(s:string)说明以字符串s命名建立一个目录(文件夹)parammstr语法 function paramstr(i;word:string);说明返回命令行所指定的参数。

相关文档
最新文档