pascal函数?

发布网友 发布时间：2022-05-13 01:10

我来回答

共4个回答

热心网友 时间：2023-11-05 09:55

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次方。例：power(2,3)=8 {只有在开启math库时才可以使用}a,n为整数，但是不能求高精度数 　　random(n) 取0~n-1之间的随机数(不能取到n) 。n为整数 　　max(x,y):返回x和y中的较大值。x,y整数 　　min(x,y):返回x和y中的较小值。x,y整数

热心网友 时间：2023-11-05 09:56

给你讲几个：
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次方。例：power(2,3)=8 {只有在开启math库时才可以使用}a,n为整数，但是不能求高精度数.

　　random(n) 取0~n-1之间的随机数(不能取到n) 。n为整数.

　　max(x,y):返回x和y中的较大值。x,y整数.

　　min(x,y):返回x和y中的较小值。x,y整数.

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
　　10.求字符串长度。
　　例：length（‘qwert’）结果：5

更多 请参考 http://ke.baidu.com/view/1215583.htm

热心网友 时间：2023-11-05 09:56

很简单，要返回参数的用函数 function, 否则用过程 procere。

热心网友 时间：2023-11-05 09:57

delete(s,pos,len);
在主字符串S中位置为pos的字符开始,
删除len个字符
concat(s1,s2...s3);
相当于
S
:=
s1
+
s2
+
s3;
val(s,r,p);
S是主字符串,
r是函数
返回值
,
p是错误返回代码
str(i,s);
将i转换成字符串返回到s里面
copy(s,pos,len);
和上面的delete差不多,
从字符串s中的第pos个字符开始复制len个字符
pos(str1,str2)
返回str1在str2中的位置,
如果没有就是0