pascal语言语法大全

第七课：pascal专题-pascal语言语法年夜全及应用配套视频之欧侯瑞魂创作★qq语音课主讲内容★：1.pascal语法专用字符：a~z, a~z, 0~9, +, -, *, /, =, <>,<=, >=, <, >, (, ), [, ], {, }, :=, , , ；, ., ：, .., ’, ^ ；【解说】a~z：年夜写的26个英文字母；a~z：小写的26个英文字母；0~9：10个数字；+：加法运算符；-：减法运算符；*：乘法运算符；/：除法运算符；=：比力运算符：即是；<>：比力运算符：不即是；<=：比力运算符：小于即是；>=：比力运算符：年夜于即是；<：比力运算符：小于；>：比力运算符：年夜于；(, )：优先级和参数表达符：左右括号；[, ]：索引号表达符：中括号；{, }：段落屏蔽和备注符：年夜括号；:=：赋值运算符；, ：排列式表达符：逗号；；：代码（功能）行结束符；.：主从代码分隔符：点号；：：变量界说分隔符：冒号；..：子界界说表达符；’：字符串标识符：单引号；^ ：指针界说符：尖号.2. pascal语法保管字：and, array, begin, case, const, div, do, downto, else, end, file, for, function, goto, if, in, label, mod, nil, not, of, or, packed, procedure, program, record,repeat, set, then, to, type, until, var, while, with, exports, shr, string, asm, object, unit, constructor, implementation, destructor, uses, inherited, inline, interface, library, xor, shl ；【解说】and：逻辑运算符：逻辑与；array：数组界说符：array of …；begin：法式“块”的开始标识符；case：多条件分支语句的开始标识符；const：常量界说符；div：算术运算符：除法取整数结果；do：执行命令；downto：单步反循环语句中的命令；Else：分支语句中的命令, “否则”的意思；end：“结束”标识符；file：类型文件标识符；for：单步循环语句的开始标识符；function：函数界说的命令符；goto：跳转指令：if：单条件分支语句的开始标识符；in：集合运算符；label：界说标号；mod：算术运算符：除法取余数结果；nil：一个暗示“空值”的常量；not：逻辑运算符：逻辑非；of：多种组合命令的辅助符, array of…,case of …等；or：逻辑运算符：逻辑或；packed：用于压缩和打包的指令；procedure：过程界说符；program： delphi工程文件标识符；record：记录类型标识符；repeat：循环语句标识符；set：集合界说符；then：组合命令的辅助符, if…Then…Else…；to：组合命令的辅助符, for…To …Do…；type：类型界说符；until：循环语句中的辅助符, repeat…Until…；var：变量界说符；while：循环语句界说符；while …Do…；with：组合命令的界说符：with …Dobegin…End；exports：静态链接库输进项目界说符；shr：二进制右移运算符；string：字符串类型标识符；asm：汇编语言标识符；object：对象标识符；unit：单位标识符；constructor：构造函数界说符；implementation：单位中“实现部份开始”的标识符；destructor：析构函数界说符；uses：单位引用标识符；inherited：类继承指令；inline：过程和函数的调用指令；interface：单位中“声明部份开始”的标识符；library： dll工程界说符；xor：二进制位运算符：异或；shl：二进制位运算符：按位左移.3.pascal语法中的标识符；【解说】标识符是object pascal语言中各种成员的名称, 这些成员包括变量（var）、常量（const）、类型（type）、过程（procedure）、函数（function）、方法（method）、单位（unit）等.标识符可以分为三类：标准标识符、自界说标识符和限定标识符. 1）标准标识符(1)标准常量, 如false、nil、true等；(2)标准类型, 如boolean、char、real等；(3)标准函数, 如sin、cos、abs、arctan等；(4)标准过程, 如dispose、get、new、pack、put等；(5)标准文件, 如input、output等.2）自界说标识符法式员根据法式设计的需要, 自己界说的常量、变量、类型、函数、过程等所取的名字.自界说标识符可以由任意长的一个不带空格的字符串组成, 包括字母a～z 、a～z 、数字0～9 和下划线“_”等.界说标识符需要遵循以下规则：(1)标识符不区分年夜小写；(2)标识符只能以字母或下划线开头, 不能以数字开头；(3)标识符可任意长度, 但只有前225个字符有效；(4)标识符中间不允许有空格；(5)不允许使用object pascal语言的保管字作为自界说标识符.3）限定标识符在delphi法式中可引用多个单位, 而各个单位中全局变量、函数、过程等可能会同名, 在引用时需用限定标识符来区分它们： vary:real; beginy:=system.cos(pi); end;其中system称为限定符 , 而system.cos称为限定标识符.4.pascal语法中的表达式；【解说】表达式的界说pascal语言中的算术表达式是由符合pascal语法规定的运算对象(包括常量、变量、函数)、算术运算符、圆括号组成的有意义的式子.如：a+3.14159*5/8.4-abs(-13) .1）算术运算符经常使用的有以下6个算术运算符：+、-、*、/, (实数除)获得结果为实型.如 5.0/2.0=2.5, 5/2=2.5, 4/2=2.0而不即是2. div (整除), div它要求除数和被除数均为整型, 结果也为整型.如10 div 3=3, 5 div 10=0, -15 div 4= -3.Div运算只取商的整数部份, 介入div运算的两个对象不能为实型.mod (求余), 也只能用于整数运算, 取除后的余数, 结果为整数.例如:10 mod 4=2 , -17 mod 4= -1,4 mod (-3)=1,- 4 mod 3=-1, 即 a mod b=a-(a div b)*b.2）关系运算符： >、<、>=、<=、=、<>3）逻辑运算符： not、 and 、or4）运算优先顺序：如果一个表达式里呈现两个或两个以上的运算符, 则必需规定它们的运算次第.Pascal语言规定运算优先级如下：①表达式中相同优先级的运算符, 按从左到右顺序计算②表达式中分歧优先级的运算符, 从高到低进行计算③括号优先级最高, 从内到外逐层依次降低④ not优先级为4⑤ *、/、div、mod、and优先级为3⑥ +、-、or优先级为2⑦ =、<>、<、>=、<=、in优先级为15.pascal语法中的常量（const）与变量（var）；【解说】a.什么是变量？变量代表了一个存储单位, 其中的值是可变的, 故称为变量.即在法式运行过程中, 其值可以改变的量, 称为变量.变量有三个要素是：变量名、变量类型、变量值.一个法式中可能要使用到若干个变量, 为了区别分歧的变量, 必需给每个变量（存贮单位）取一个名（称为变量名）, 该变量（存贮单位）寄存的值称为变量的值, 变量中能够寄存值的类型为变量的“类型”.1）变量名用一个合法的标识符代表一个变量.如m, rot, total 等都是合法变量名.在法式中用到的变量必需在说明部份加以说明.“自界说标识符”的命名规则为：自界说标识符必需以字母（包括下划线"_"）开头, 后面的字符可以是字母或数字.标识符长度不超越63个字符.变量名应遵循自界说标识符的命名规则, 并注意“见名知义”的原则, 即用一些有意义的单词作为变量名.2）变量的类型常量是有类型的数据, 变量在某一固按时刻用来寄存一个常量, 因此也应有相应的类型.如整型变量用来寄存整数, 实型变量用来寄存实数.3）变量说明在法式中若要使用变量, 变量的名称及类型在法式的变量说明部份加以界说, 变量的值则在法式的执行部份中才华赋给.变量说明的一般格式：Var <变量标识符> [,<变量标识符>]:<类型>；(中括号内部份暗示可省)其中var是pascal保管字,暗示开始一个变量说明段, 每个变量标识符或由逗号隔开的多个变量标识, 必需在它的冒号后面说明成同一类型.一个法式中, 可以说明许多分歧类型的变量, 每种类型变量之间用分号隔开, 共用一个var符号.例如:Var age,day：integer;average：real;其中, integer(整型)、real(实型)是标准标识符, 它们是“类型标识符”, 代表了确定的类型, 如age和day 被界说为整型变量, average被界说为实型变量.一旦界说了变量, 就确定了它的类型, 也就是说, 就确定了该变量的取值范围和对该变量所能进行的运算.B．什么是常量？在法式运行过程中, 其值不能被改变的量称为常量.如12, 14.8, 'abc', true等.Pascal中有一个标准标识符maxint, 它代表所使用的计算机系统允许的最年夜整型数, 而最小的整型数即为－maxint-1.Turbo pascal还界说了长整数常量maxlongint, 其值为2147483647.字符常量：是由字符组成, 所有字符来自ascii字符集, 共有256个字符.在法式中, 通经常使用一对单引号将单个字符括起来暗示一个字符常量.如：'a', 'a', '0'等.对ascii字符集中, 按每个字符在字符集中的位置, 将每个字符编号为0－255, 编号称为对应字符的序号.符号常量：一个常量即可以直接暗示（称为直接常量, 如124,156.8）, 也可以用一个标识符来代表一个常量, 称为“符号常量”.但符号常量必需在法式中的说明部份先界说, 后使用.界说符号常量的一般格式:const <常量标识符>=<常量>说明：常量说明部份以关键字const开头, 后面的标识符为常量标识符, 其中"="号后的常量为整数、实数、字符、字符串.例如: ConstPi=3.14159;Zero=0;Var r,s,c:real;则在法式中pi和zero作为符号常量,分别代表实数3.14159和整数0.也就是说, 常量说明部份既界说了常量名及其值, 又隐含界说了常量的类型.Pi(function函数)为 3.1415926535897932385有关“ascii字符集”的知识请拜会百度百科：http://baike.百度.com/view/15482.htm6.pascal语法中的赋值语句；【解说】对法式已经创立的变量, 如何取值？通常使用赋值语句来给变量提供数据, 它具有计算我赋值功能, 法式中所进行的各种运算,年夜大都是在赋值语句中实现的.格式：变量标识符：=表达式；语义：赋值语句的执行是“先计算, 后赋值”.如a:=（9*8）-（2-1）； a:=a+1.说明：（1）“:=”与关系运算符“=”不能混淆.（2）赋值号两边类型应该相同.只有一点例外, 当表达式的值为整型时, 它可以自动转化为实型后赋给一个实型变量.（3）一个赋值语句只能给一个变量赋值, 变量可以进行屡次赋值, 赋值后的变量将在法式中一直坚持不变, 址到该变量重新赋值面其他的值.（4）被赋值的变量自己可以作为因子介入运算, 如n:=n-1,s:=s+x.例：下面法式执行后变量abcd的值各是几多？Program ex1;Const a=256;Varb,d:double;c:real;Beginb:=a div 16;c:=a/b;d:=a;End.Program ex2;Var a,b:integer;Begina:=3;b:=a;b:=a+1;a:=a+1;b:=b+1;End.7.pascal语法中的输入语句；【解说】要使变量获得一个确定的值, 固然可以使用赋值语句, 但更多的情况是：法式中需要赋值的变量往往很多或变量的值经常变动.如果要使输入数据有所改变的时候, 法式不用进行修改就可获得所要处置的分歧结果, 那么赋值语句就显得分歧适了, 需要一个灵活的提供数据的语句, 能在法式运行后从键盘输入变量的值, 这就是我们要介绍的语句--输入语句：格式：read(变量名表)；readln(变量名表)；语义：执行该语句时系统处于等候状态.从键盘上读入的数据将赋给变量名表中的变量, 其中变量名表是一串用逗号隔开的变量标识符.Readln后可以没有变量名表, 作用暗示仅读入一个回车符.案例：在delphi下file->new, 然后选console application然后在加入代码, 例如：Program project2;{$apptype console}Uses sysutils;Varstr1 : string;beginwrite('input text: '); //这个是输出语句readln(str1); //这个是输入语句writeln('you input: ',str1); //这个是输出语句writeln('press anyone key to exit'); //这个是输出语句 readln; //这个是输入语句End.8.pascal语法中的输出语句；【解说】格式：write（输进项）；writeln<(输进项)>；说明：1）输进项可以是字符串：用单引号引起来的一串字符, 如wrtie（‘***’）；数值常量：如write（8）变量：输出变量的值, 注意变量必需要先界说再赋值, 然后才可以输出值, 如write（a）；表达式：输出表达式的值, 表达式必需正确, 如write（a+b）2）可以有多个分歧类型的输进项, 之间用逗号隔开.如write（‘a=’, a）；write（x, x+2, y, z）；案例：请参考上例的输入语句的例子.学员练习：Program tixing;Var a,b,h,s:real;Beginwrite('input a,b and h:');read(a,b,h);s:=(a+b)*h/2;writeln('mianji:',s);readln;End.9.pascal语法中的复合语句：begin … End；【举例】1）例1：VarStr1:string;BeginStr1:=’中国人’;End;2）例2：varStr1,str2:string;BeginStr1:=edit1.text;If str1=’中国人’ thenShowmessage(‘您输入的是：’+str1);End;End;10.pascal语法中的if语句；【举例】varX,y:integer;BeginX:=1;Y:=2;If x>y thenShowmessage(‘x年夜于y!’)ElseShowmessage(‘x不年夜于y!’);End;11.pascal语法中的case语句；【举例】vari:integer;beginI:=strtoint(edit1.text);case i of1:Showmessage(‘您输入的数字是：1’);2:showmessage(‘您输入的数字是：2’);3:showmessage(‘您输入的数字是：3’);elseshowmessage(‘您输入的数字是：1~3之外的数字！’);end;12.pascal语法中的while语句；【举例】varW:integer;beginWhile w<=10 doBeginW:=w+1;End;Shomessage(inttostr(w));End;13.pascal语法中的repeat语句；【举例】格式：Repeat……{被循环执行的语句};Until ……{循环结束条件};执行时会重复执行被循环执行的语句, 直到循环结束条件为真时退出循环.例如, 执行下列法式：Vari:integer;Begini:=0;repeati:=i+1;showmessage(inttostr(i));until i=10;showmessage(inttostr(i));会获得输出结果：1234567891014.pascal语法中的for语句；【举例】vari:integer;beginfor i:=1 to 10 dobeginshowmessage(inttostr(i));end;End;15.pascal语法中的goto语句；【解说】goto语句为无条件转移语句Goto语句的一般形式为:Goto <标号>(之前必需加)Label <标号名表>例如：Procedure tform1.button1click(sender: tobject);Label 10;BeginGoto 10;Showmessage('0');10:showmessage('1');End;运行结果：执行的第二个.16.pascal语法中的halt语句；【解说】halt可以运用在法式的任何位置, 暗示结束法式.例如：Halt;End;执行结果：法式被退出.17.pascal语法中的exit语句；【解说】exit是退出以后的子过程, 如果它用在主法式里, 就和halt等效.例如：varBeginShowmessage(‘1’);Exit;Showmessage(‘2’);End;执行结果：第二个不会执行.18.pascal语法中的break语句；【解说】break是用在循环里面, 暗示跳出以后的循环.例如：varI:integer;Beginfor i:=1 to 10 do beginif i=2 then break;End;执行结果：i只能循环到2.19.pascal语法中的continue语句；【解说】continue也是用在循环里面, 但它其实不是跳出, 而是跳过这一次循环, 直接进入下一个循环.例如：vari,ans:integer;beginfor i:=1 to 10 do beginif i mod 2=0 then continue;ans:=ans+i;End;执行结果：i就把1~10中的奇数都计算了一遍.20.pascal语法中的with … Do 语句；【解说】本语句的功能是：使用“某对象”来执行某些“把持”.用途是简化代码.例如：With button1 doBeginCaption:=’保管’;left:=200;Top:=200;end;21.pascal语法中的try … Except … End 语句；【解说】呵护机制, 强制执行预定的代码.例如：tryShowmessage(‘1’);exceptshowmessage(‘try后面的语句执行失败, 才执行本句, 否则不执行本句！’);End;22.pascal语法中的try … Finally … End 语句；【解说】呵护机制, 强制执行预定的代码.例如：try Showmessage(‘1’);finallyshowmessage(‘不论try后面的语句是否执行胜利, 都执行本句！’);End;★视频实战课主讲内容★：1.演示pasca标识符的运用；【例子】1）变量（var）：varStr1:string;BeginStr1:=edit1.text;Showmessage(str1);End;2）常量（const）：proceduretform1.button2click(sender: tobject);Const w:integer=10;Beginshowmessage(inttostr(w));End;3）类型（type）：typetform1 = class(tform)private{ private declarations }public{ public declarations }end;4）过程（procedure）：procedure myproc1;…Procedure tform1.myproc1;Beginshowmessage('这是一个过程！');End;2.演示pascal表达式的运用；【例子】1）+、-、*、/ ：varX,y,z:double;beginX:=1;y:=2;Z:=(x+y)*100/5;end;2）=、<>、>、>=、<、<= ：varX,y,z:integer;beginX:=1;y:=2;If x>=y then z:=x+y;end;3）or 、and、not ：varX,y,z:integer;beginX:=1;y:=2;z:=3;If not ((x>=y) or (x>z)) then z:=x+y;end;3.演示常量与变量的应用；proceduretform1.button1click(sender: tobject);VarX,y:integer;Const z:integer=10;BeginX:=5;Y:=x+z;Showmessage(inttostr(y));End;4.演示一个赋值语句；【例子】varstr1:string;beginstr1:=edit1.text;Showmessage(str1);end;5.演示一个输入语句； 6.演示一个输出语句；【例子】在delphi下file->new, 然后选console application然后在加入代码, 例如：Program project2;{$apptype console}Uses sysutils;Varstr1 : string;beginwrite('input text: ');readln(str1);writeln('you input: ',str1);writeln('press anyone key to exit');readln;End.7.演示一个复合语句：begin … End；8.演示一个if语句；【例子】varx,y:integer;BeginX:=1;y:=2;If x>y thenBeginShowmessage(‘x年夜于y！’);End;End;9.演示一个case语句；【例子】vari:integer;beginI:=strtoint(edit1.text);case i of1:Showmessage(‘您输入的数字是：1’);2:showmessage(‘您输入的数字是：2’);3:showmessage(‘您输入的数字是：3’);elseshowmessage(‘您输入的数字是：1~3之外的数字！’);end;10.演示一个while语句；【例子】varW:integer;beginWhile w<=10 doBeginW:=w+1;End;End;11.演示一个repeat语句；【例子】vari:integer;Begini:=0;repeati:=i+1;write(i);until i=10;showmessage(inttostr(i));End.12.演示一个for语句；【例子】vari:integer;beginfor i:=1 to 10 dobeginshowmessage(inttostr(i));end;End;13.演示一个goto语句；【例子】proceduretform1.button1click(sender: tobject);Label 10;BeginGoto 10;Showmessage('0');10:showmessage('1');End;14.演示一个halt语句；【例子】BeginHalt;End;执行结果：法式被退出.15.演示一个exit语句；【例子】varBeginShowmessage(‘1’);Exit;Showmessage(‘2’);End;执行结果：第二个不会执行.16.演示一个break语句；【例子】varI:integer;Beginfor i:=1 to 10 do beginif i=2 then break;End;执行结果：i只能循环到2.17.演示一个continue语句；【例子】vari,ans:integer;beginfor i:=1 to 10 do beginif i mod 2=0 then continue;ans:=ans+i;End;End;执行结果：i就把1~10中的奇数都计算了一遍.18.演示一个with … Do 语句；【例子】beginwith button1 doBeginCaption:=’保管’;left:=200;Top:=200;end;19.演示一个try … Except … End 语句；【例子】tryEdit3.text:=floattostr(strtofloat(edit1.text)+strtofloat( edit2.text));exceptshowmessage(‘try后面的语句执行失败, 才执行本句, 否则不执行本句！’);End;把持方法：故意在edit1中输入非数字, 造成毛病, 再检查执行的结果.20.演示一个try … Finall y … End 语句.【例子】tryEdit3.text:=floattostr(strtofloat(edit1.text)+strtofloat( edit2.text));finallyshowmessage(‘不论try后面的语句是否执行胜利, 都执行本句！’);End;把持方法：在两个文本框中输入数字或非数字, 造成毛病或正确, 再检查执行的结果.。