辽师大版信息技术九年Pascel语言基础页

Pascal语言程序设计基础

程序=计算机语言+数据结构+算法PascalConstpi=3.14159;Vars,r:real;beginreadln(r);s:=pi*r*r;writeln(‘s=‘,s);end.{程序首部}{程序体}ProgramArea(input,output);{说明部分}{执行部分}例：计算半径为R的圆面积SPascal符号保留字：（关键字）预定义标识符标准常量：FLASE、MAXINT、TRUE标准类型：BOOLEAN、CHAR、REAL标准函数：ABS、CHR、COS标准过程：DISPOSE、GET标准文件：INPUT、OUTPUT用户标识符在Pascal语言中具有特定的含义选用的表识符不能和保留字相同。有效长度为63个字符，并且大小写等效。标识符必须是以字母开头的字母、数字、下划线序列。判断：a_1a-178tMax9_ahi.a

数据类型基本简单类型标准类型用户自定义类型实数类型整数类型字符类型布尔类型枚举类型子界类型顺序类型构造（复杂）类型数组类型集合类型记录类型文件类型指针类型类型数值范围占字节数格式shortint-128~1281

带符号8位（短整型）integer-32768~327672

带符号16位（整型）longint-2147483648~4带符号32位

（长整型）2147483647

byte0~2551带符号8位（字节型）word0~655352带符号16位（字类型）1、整型Pascal规定了两个预定义整型常量标识符maxint和maxlonint，他们各表示确定的常数值

maxint为32767maxlongint为2147483647他们的类型分别是integer和longint类型数值范围占字节数有效位数real2.9e-39..1.7e38611..12基本实型Single1.5e-45..3.4e3847..8单精度实型double5.0e-324..1.7e308815..16双精度实型2、实型一个实型数据用来存放实数。3、字符型标识符：char字符型必须用单引号括起来字母作为字符型时，大小写是不等价的字符型只允许单引号中有一个字符，否则就是字符串。比较大小：‘A’()‘a’一个布尔型数据用来存放逻辑值（布尔值）。4、布尔型布尔型的值：false（0）和true（1）；boolean是布尔型的标识符。false和true都是预定义常数标识符，分别表示逻辑假和逻辑真。true>false。abNOTaNOTbaANDbaORbaxorbTrueTrueFalseFalseTrueTruefalseTrueFalseFalseTrueFalseTruetrueFalseTrueTrueFalseFalseTruetrueFalseFalseTrueTrueFalseFalsefalse布尔运算的运算次序：NOTANDXOR、OR例1：（第11届NOIP）设A＝true，B＝false，C＝false,D=true，以下逻辑运算表达式值为真的是（）A.(A∧B)∨(C∧D)B.((A∧B)∨C)∧DA∧((B∨C))∧DD.(A∧(B∨C))∨DE.(A∨B)∧(C∧D)例2（第9届NOIP）设A＝true，B＝false，C＝true，D=true，逻辑运算表达式A∧B∨C∧D的值是（）二进制的逻辑运算二进制数1和0在逻辑上可以代表“真”与“假”、“是”与“否”、“有”与“无”。1、逻辑加法（“或”运算）逻辑加法通常用符号“+”或“∨”来表示。逻辑加法运算规则如下：0+0=0，0∨0=00+1=1，0∨1=11+0=1，1∨0=11+1=1，1∨1=12、逻辑乘法（“与”运算）逻辑乘法通常用符号“×”或“∧”或“·”来表示。逻辑乘法运算规则如下：0×0=0，0∧0=0，0·0=00×1=0，0∧1=0，0·1=01×0=0，1∧0=0，1·0=01×1=1，1∧1=1，1·1=13、逻辑否定（非运算）逻辑非运算又称逻辑否运算。其运算规则为：0=1非0等于11=0非1等于0

4、异或逻辑运算（半加运算）异或运算通常用符号"⊕"表示，其运算规则为：0⊕0=00同0异或，结果为00⊕1=10同1异或，结果为11⊕0=11同0异或，结果为11⊕1=01同1异或，结果为0即两个逻辑变量相异，输出才为1练习：1、1010111∧10011101=书本P11-N152、10101010∨01100110=3、10101100=4、10101010⊕00001111=试一试：1、请模仿写出一个Pascal程序以实现计算梯形面积。假设梯形上底a＝5，下底b＝10，高h＝6。2、给出半径R＝100，求圆周长、圆面积。3、一个学生五门课的成绩为：70、89、65、100、78。编PASCAL程序，输出平均成绩。一、常量1、常量定义2、定义常量的语法格式CONST<常量标识符>=<常量>;……<常量标识符>=<常量>;3、类型（1）数n＝100（2）字符ch＝’*’（3）字符串str＝’Hangzhou’（4）布尔值flag＝True二、变量1、变量定义2、变量说明部分的语法格式VAR<变量标识符表>:<数据类型>;……<变量标识符表>:<数据类型>;Varbeginread(a,b);c:=a*b;d:=a/b;writeln(c);writeln(d);End.?例:输入:两个整数a、b(<=3000)，输出它们的乘积c，商d。a,b:integer;C:longint;d:real;三、标准函数1、算术函数

函数标识符自变量类型意义结果类型

abs整型、实型绝对值同自变量

exp整型、实型指数实型

ln整型、实型自然对数实型

int整型、实型整数部分实型

frac整型、实型小数部分实型

arctan整型、实型反正切实型

sin整型、实型正弦实型cos整型、实型余弦实型

sqr整型、实型平方同自变量

sqrt整型、实型平方根实型练习abs(-4)=abs(-7.49)=frac(-3.71)=int(-3.71)=sqr(4)=sqrt(4)=函数标识符自变量类型意义结果类型

odd(x)整型判断奇数布尔型

pred(x)顺序类型求前趋同自变量

succ(x)顺序类型求后继同自变量

例：odd(1000)=falsepred(2000)=1999succ(2000)=2001odd(3)=pred(‘x’)=succ('x')=2、标量函数函数标识符自变量类型意义结果类型

chr(x)byte自变量对应的字符字符型ord(x)顺序类型自变量对应的序号longintround(x)实型四舍五入longinttrunc(x)实型截断取整longint

例：chr(66)=‘B’ord(‘A’)=65round(-4.3)=-5trunc(2.88)=23、转换函数4、杂类函数：Random：0，1之间的随机实数Random(x)：0，x之间的随机整数Randomize：初始化内部随机数产生器Upcase(x)：使小写英文字母变成大写四、Pascal运算符(2)逻辑运算符

运算符运算运算对象结果类型

not逻辑非布尔型布尔型

and逻辑与布尔型布尔型

or逻辑或布尔型布尔型

xor逻辑异或布尔型布尔型(1)运算符

+-*/divmod(3)关系运算符

运算符运算运算对象结果类型

=等于简单类型布尔型

<>不等于简单类型布尔型

<小于简单类型布尔型

>大于简单类型布尔型

<=小于等于简单类型布尔型

>=大于等于简单类型布尔型优先级

运算符优先级

not1(高)

*,/,div,mod,and2

xor,+,-,or3

in,=,<,>,>=,<=,<>4(低)练习：求下列表达式的值：

20mod19

15mod9

7div8

19div3

(4>5)

and

(7<8)

(8>9)

or

(9<10)

(2>3)

and

((3=3)

or

(3<7))13-2*3DIV4MOD2五、Pascal表达式1、算术表达式：3.1415929X2*pi*r2、字符表达式：’A’CHR(65)3、关系表达式：a+b<c4、布尔表达式：ROUND(a－b)>10算术表达式1、定义：由符合PASCAL语法规定的数值型运算对象（包括数值型的常量、变量、函数）、运算符、圆括号组成的有意义的式子。2、算术运算符：+、-、*、/、DIV、MOD3、运算次序：（1）圆括号（）（2）函数（3）*、/、DIV、MOD（4）+、-同一级别的运算符，按在表达式中次序“先左后右”的原则算术表达式例1：将下列的数学表达式改写成PASCAL表达式：

b^2-4ac

例2：n为四位数。请运用算术表达式分离出它的个、十、百、千位nMOD10--（个位数）（nMOD100）DIV10--（十位数）（nMOD1000）DIV100--（百位数）nDIV1000--（千位数）下面的程序执行后，变量b、c、d的值是多少？Programpl(input,output);Consta=256;Varb,d:integer;c:real;beginb:=adiv16;c:=a/b;d:=a;end.作业:写出下面运算的结果（注意类型）1、5*3*6DIV22、8/4*2.5/1.25*（3.7+2.3）3、18DIV4*sqr(4.0)/1.64、25DIV3MOD3*Trunc（2.5）5、8MOD(-16MOD3)*66、5DIV3/Ord(pred(‘C’))*Trunc(7.5*6.3)*Round(7.5-6.3)注：MOD函数按“求余”运算，Ord(‘A’)=65六、PASCAL语言的语句语句基本语句赋值语句过程语句读语句写语句其他过程语句转移语句空语句构造型语句复合语句条件语句分情况语句如果语句重复语句当语句直到语句循环语句开域语句1、赋值语句格式：<变量名>:=<变量名>注意：:=是赋值号，在书写时中间不能加空格。赋值语句的执行是：先计算（表达式的值），后赋值如：A：=（9*8）-（2-1）;

A:=A+1

注意:

a，b:integer；——是一个说明语句。“：”是变量表和变量类型的分隔符

a=b——是一个表达式。它的值是一个布尔类型的量：TRUE或FALSE

a:=3；——是一个赋值语句。把整型常量值3赋给整型变量a

写出下列程序运行后，变量a、b的值Programp2(input,output);Vara，b:integer;begina:=3;

b:=a;b:=a+1;a:=a+1;b:=b+1;end.2、写语句－－输出语句功能：写（write）语句是Pascal中唯一能将运算结果送出显示在显示器屏幕的语句。格式：

write(输出量表)；{输出后不换行}

writeln(输出量表)；{输出后换行}

writeln；{输出一个回车符}

write(1,2,3,4);write(5,6);输出为：123456Write语句与writeln语句的区别:write语句将其后括号中的表达式一个接一个输出后，没有换行。而writeln语句则在输出各个表达式的值后换行。writeln(1,2,3,4);write(5,6);输出为：123456例如以下两个程序段的输出分别为：注意：场宽的限制在输出不同格式的数值时的作用：

例2：实型数据小数位数的确定。

vara:real;

begin

a:=15/8;

writeln(a);{输出1.8750000000E+00}

wiiteln(a:0:2);{输出1.88整数部分按实际位数输出，小数部分保留两位小数，末位四舍五入.}

writeln(a:0:0):{输出2只输出整数部分，小数部分四舍五入}

end.

例1：数据项间隔。

如输出最多四位的数据：write(x:5)。则数据间至少分隔一个空格。

写出输出结果consta=10;b=20;beginwriteln(50);

write(a:3);writeln(a+b:4);writeln(‘a+b=’,a+b);end.3、读语句－－输入语句格式：read(<输出项表>)；--读入不换行readln(<输出项表>)；--读入换行readln；read后一定要有参数表；readln可以不带参数表,即可以没有任何输入项,只是等待读入一个换行符(回车)。经常用于暂停程序的运行，直到输入一个回车注意：写在括号中的变量，都要在变量说明中先预以说明；变量与变量之间，以“,”分隔；

例：

vara,b:integer;

read(a,b);

read与readln的区别

例：有两段程序有相同的变量说明如下，不同的读语句。

变量说明vara,b,c,d:inte