Pascal 技巧
来源:互联网 发布:闹钟软件哪个好 编辑:程序博客网 时间:2024/06/15 11:01
一·动态数组
在一个动态数组类型的情况下,该阵列的初始长度是零。SetLength函数是标准函数它将分配必要的内存,用于存储数组元素的数组的实际长度必须设置。
声明动态数组
声明动态数组,不需要提数组范围。例如:
type
darray = array of integer;
var
a: darray;
在使用数组之前,你必须声明的大小,使用SetLength函数函数:
setlength(a,100);
阵列有一个有效的数组索引范围从0到999的数组索引总是从0开始。
下面的示例声明并使用一个二维动态数组:
program exDynarray;
var
a: array of array of integer; (* a 2 dimensional array *)
i, j : integer;
begin
setlength(a,5,5);
for i:=0 to 4 do
for j:=0 to 4 do
a[i,j]:= i * j;
for i:=0 to 4 do
begin
for j:= 0 to 4 do
write(a[i,j]:2,’ ‘);
writeln;
end;
end.
上面的代码编译和执行时,它会产生以下结果:
0 0 0 0 0
0 1 2 3 4
0 2 4 6 8
0 3 6 9 12
0 4 8 12 16
2 pascal函数大全
pascal函数 编辑本段一、数学函数:
Inc(i) 使i:=i+1;
dec(i) 使i:=i-1;
Chr(x) 求编号x对应的字符。例:Chr(65)=’A’ chr(97)=’a’
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 结果是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)=false succ(x) 求x的后继 succ(‘b’)=’c’ succ(5)=6 succ(false)=true odd(x) 判断x是否为奇数。如果是值为true,反之值为false. Odd(2)=false
power(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 除以 2n
SHL: x SHL n把x换成二进制后向左移n位,相当于 把x 乘以 2n
214
1 连接运算 concat(s1,s2,s3…sn) 相当于s1+s2+s3+…+sn. 例:concat(‘11’,’aa’)=’11aa’;
3 删除子串。过程 Delete(s,I,l) 从字符串s中删除第I个字符开始后的长度为l的子串。 例:s:=’abcde’;delete(s,2,3);结果s:=’ae’
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 标准函数是Turbo Pascal语言预先定义的,它们实际上是能完成特定功能的称步子程序的程序段。每个标准函数都用一个标识符来标识,每个标准函数都能完成一个特定的功能,在程序中可以直接调用它们。Turbo Pascal语言中某些标准函数与数学中的函数有相似之处。
- Pascal 技巧
- Pascal语法的技巧
- Delphi技巧-编写Pascal代码
- Pascal中那些鲜为人知的技巧
- pascal
- Pascal
- PASCAL
- 代码调试技巧小集合(C语言描述,但C/C++/Pascal通用)
- pascal--生成Pascal矩阵
- Pascal三角
- pascal指针
- pascal(收藏)
- pascal函数
- pascal问题
- Pascal语言
- Pascal语句
- Pascal 语言
- Pascal语言
- C语言合法标识符
- 欢迎使用CSDN-markdown编辑器
- jquery源码解析之遍历同胞(上)
- CI框架中的site_url()与base_url()
- jsp学习
- Pascal 技巧
- IDL中与文件相关的函数和过程
- eCos timer封装成linux kernel风格
- DFS BFS 搜索总结
- Out of Hay
- POJ
- 题目1002:Grading
- 输入行数,打印出相应行数的*直角三角形
- CSDN博客积分规则和获取积分方法