Question

pascal 语句总结

自己总结了一下，不是很全…… 在这里跪求完整总结！

Answer 1

自己总结一下，可能有缺漏，常用的。 program 程序名； uses 已知单元说明； label 标号说明； const 常量说明； type 类型说明； var 变量说明； function 函数说明； procedure 过程说明； begin 语句； 语句； …… 语句; end. 文件 assign();reset(); rewrite(); close(); 输入输出 read（）； readln()； write（）；writeln(); 数组附值 fillchar(a,sizeof(a),值); 附值 a:= 逻辑 and or not xor 循环 repeat until; while do~; for i:=1 to n do ~; div mod 函数 Inc(i) 使i:=i+1; Inc(I,b) 使I:=I+b; dec(i) 使i:=i-1; dec(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 （PS：负数是不能进行运算的，如果需要就要先取绝对值：sqrt（-4）是错的，应该为sqrt（abs（-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 {只有在开启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 字符串 length(s) 函数 求字符串s的长度 整型 s:='123456789'; l:=length(s);{l的值为9} copy（s,w,k) 函数 复制s中从w开始的k位 字符串 s:='123456789'; s1:=copy(s,3,5);{s1的值是'34567'} val(s,k,code) 过程 将字符串s转为数值，存在k中；code是错误代码 var s:string;k,code:integer; begin s:='1234'; val(s,k,code); write(k);{k=1234} str(i,s) 过程 将数值i转为字符串s i:=1234; str(i,s); write(s);{s='1234'} Delete(s,w,k) 过程 在s中删除从第w位开始的k个字符 s := 'Honest Abe Lincoln'; Delete(s,8,4); Writeln(s); { 'Honest Lincoln' } Insert(s1, S, w) 过程 将s1插到s中第w位 S := 'Honest Lincoln'; Insert('Abe ', S, 8); { 'Honest Abe Lincoln' } Pos(c, S) 函数 求字符c在s中的位置 整型 S := ' 123.5'; i :=Pos(' ', S);{i的值为1} + 运算符 将两个字符串连接起来 s1:='1234'; s2:='5678'; s:=s1+s2;{'12345678'} 集合 定义set of 1..n (1)并(a+b):属于a或属于b [0..7]+[0..4]的值为[0..7] (2)交(a*b):既属于a又属于b [0..7]*[0..4]的值为[0..4] (3)差(a-b):属于a但不属于b [0..7]-[0..4]的值为[5..7] (4)相等(a=b):a,b的元素完全一样 [0..7]=[0..4]的值为false (5)不等(<>):元素不一样 [0..7]<>[0..4]的值为true (6)包含于(<=): [0..7]<=[0..4]的值为false (7)包含(>=): [0..7]>=[0..4]的值为true (8)成员(in): 1 in [0..4]的值为true 记录 type 类型标识符=record 字段名1：类型1； 字段名2：类型2； ... 字段名n：类型n； 指针 type link=^data; data=record num:integer; next:link; end; new(); dispose();