审计脚本语言ASL.docVIP

审计脚本语言介绍审计脚本语言是基于PASCAL语言的基础之上开发一门转为审计人员书写审计方法的编程语言。审计脚本语言主体是PASCAL语言的子集，在此基础之上进行了数据库操作、图表输出等一系列功能扩展，其功能简单，结构清晰，可读性强，具备了一般高级语言的必备部分（如：read，write，while-do， if-then，call，begin-end，数组，过程，函数，赋值语句等) ?语法规则a)??? 约束1．?? 变量、标示符、函数及过程名称一律使用英文字母开头，可以使用英文和数字。2．?? 变量、标示符、函数及过程名称大小写不敏感。3．?? 一段程序中变量、过程不能超过100个。4．?? 数字最大位数为24位。5．?? 过程嵌套不超过3层。6．?? 一行程序不超过5000个字符b)???????? 语法规则1．?? 语法规则近似于Pascal语言。2．?? 任何一段超过1行以上的程序需??使用begin….end语句进行约束，表明那里时开始，哪里是结束。3．?? 每行程序以分号作为结束符。4．?? 全程序以end.作为结束5．?? 变量定义要在主程序的begin之前。6．?? 赋值语句使用:=为运算符c)????????? 参数作用域过程可以引用自己定义的局部参数，也可以引用包围它的外过程定义的局部参数。例如：在过程p中可以使用过程外部定义的常量c,d和变量a。const c=10,d=100;var a;procedure p;begin? if a10 then??? write(c);? if a10 then??? write(d);end;begin? read(a);? call p;end.d)?程序举例（圆面积计算程序）const p=3 //常量说明部分var s, r; ???????????????????????????????? //变量说明部分begin????????????????????????????????????? //程序主体开始?? read(r);???????????????????????????? //读取一个数值到变量r中?? while r0 do????????????????? //循环，直到r0的时候结束循环????? begin????????????????????????? //循环开始???????? s:=p*r*r;????????????? //计算以r为半径的圆面积，结果存储到s中???????? write(s) ;????????????? //输出s的值，也就是刚刚计算出的圆面积???????? read(r);???????????????? //重新需要用户输入一个值到r中????? end;???????????????????????????????????? //循环结束，返回对应的while语句行end.??????????????????????????????????????? //主程序结束 3、算术运算符 算术运算符说明+加号-减号*乘号/除号:=等于号（赋值符、算术表达式）小于大于、#不等于=小于等于=大于等于?4、逻辑运算符 逻辑运算符说明=等于and与or或not非5、?界符 界符说明，逗号，变量界符。用来分隔函数和过程的参数，以及声明变量时分隔变量；分号，语句界符。用来做为每一行程序段的结束标志.句号，程序界符。用来表示程序全部结束，一般使用在最后一个end后( )小括号，函数和过程的参数界符。[ ]中括号，数组下标的界符，定义数组时使用，一般中括号中间添入该数组的下标‘’单引号，字符串的界符，单引号中间一般为字符串。如果想单独输入一个单引号字符，则需要‘’’’。//注释符，注释符号，//后的本行文字不影响程序执行。6、?系统基本字（保留字） 系统基本字（保留字）说明调用举例var变量定义基本字，描述其后面的字符为定义的变量。var a, x, mymun;const常量定义基本字，描述其后面的字符为定义的常量。const pi=3array数组定义基本字，描述其后面的字符为定义的数组。array a[10], b[10];procedure过程定义基本字，描述其后面的字符为定义的程序过程。var a;procedure sum;? begin??? a:=a+1;write(a) ;? end;