一个完全的PASCAL程序结构框架如下:PROGRAM程序名(程序参数表);CONST常量声明;TYPE类型声明;VAR变量声明;FUNCTION函数名(参数表):函数类型;函数声明;PROCEDURE过程名(参数表);过程声明;BEGIN程序主体;END.一、变量定义方法VAR变量名1：变量类型1；变量名2：变量类型2；变量名3，变量名4：变量类型3；二、变量命名规则1、首字符必须是英文2、只能由英文、数字和下划线组成。三、变量类型常用的几个变量类型如下表:类型名含义取值范围占字节数shortint短整型-128~1271integer整型-32768~327672longint长整型-231~231-14real实数2.9×10-39~1.7×10386single单精度1.5×10-45~3.4×103841double双精度5.0×10-324~1.7×103088extended扩展实数1.9×10-4951~1.1×10493210char字符单个ASCII字符1string字符串最多255个字符字符个数boolean布尔型True,False1一、输出语句格式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);2三、关闭文件close(input);close(output);{输出文件必须关闭，否则可能不能正确保存}共四级（同一级优先级相同，按照从左到右的顺序执行）一、单目运算符:(最高优先级)@取变量或函数的地址(返回一个指针)not逻辑取反或按位取反二、乘除及按位运算符*相乘或集合交集/浮点相除div整数相除mod取模(整数相除的余数)as程序运行阶段类型转换(RTTI运算符)and逻辑或按位求和shl按位左移shr按位右移三、加减运算符+相加、集合并集、字符串连接或指针增加一个偏移量-相减、集合差集或指针减少一个偏移量or逻辑或按位或运算xor逻辑或按位异或运算四、关系及比较运算符(最低优先级)=判断是否相等<>判断是否不相等<判断是否小于>判断是否大于<=判断是否小于或等于,或是否是一个集合的子集>=判断是否大于或等于,或是否是一个集合的父集in判断是否是集合成员is判断对象是否类型兼容(又一个RTTI运算符)程序的基本控制结构3一、顺序结构的程序按照书写顺序依次执行begin语句1；语句2；end;二、实例输入两个整数x,y，计算x,y的差并输出。Programexample;varx,y,s:integer;beginread(x,y);s:=x-y;writeln(s);end.一、分支结构又叫选择结构或条件结构If条件then语句1{注意这里不可以加分号，因为IF语句到这里没有结束，后面还有ELSE语句}else语句2;二、没有ELSE的IF语句If条件then语句1;三、实例输入3个整数，输出最大的数。Programbijiao;vara,b,c,max:integer;beginreadln(a,b,c);ifa>=bthenmax:=aelsemax:=b;ifc>maxthenmax:=c;writeln(max);end.4四、IF语句的嵌套If条件ThenBeginIf条件Then语句1Else语句2;EndElseBeginIf条件Then语句3Else语句4;End;一、For循环For循环变量:=初值to终值do循环体;若循环体有多条语句，则必须用begin…end复合语句括起来。【典型例题1】计算s=1+2+3+...+n，n由键盘输入。Programexample;vars,i,n:integer;beginreadln(n);s:=0;Fori:=1tondos:=s+i;writeln(s);end.【典型例题2】从键盘输入一个数，判断它是不是素数。PROGRAMsushu;VARa,i:integer;flag:boolean;BEGINreadln(a);flag:=true;FORi:=2totrunc(sqrt(a))doIFamodi=0THENBEGINflag:=false;BREAK;END;IFflagTHENwriteln(‘Y’)5ELSEwriteln(‘N’);END.二、While循环While条件Do循环体；同样，若循环体有多条语句，则必须用begin…end复合语句括起来。【典型例题】求最大公约数programHCF;vara,b,r:integer;beginr:=amodb;whiler<>0dobegina:=b;b:=r;r:=amodb;end;writeln(b);end.三、Repeat循环Repeat循环体；Until条件；即使循环体有多条语句，也不必用...