资源描述
Pascal语言程序设计基础,程序=计算机语言+数据结构+算法,Pascal,Const pi=3.14159; Var s, r: real; begin readln( r ); s:=pi *r *r; writeln(s=, s); end.,程序首部,程序体,Program Area(input, output);,说明部分,执行部分,例：计算半径为R的圆面积S,Pascal 符号,保留字： （关键字）,预定义标识符,标准常量：FLASE、MAXINT、TRUE,标准类型：BOOLEAN、CHAR、REAL,标准函数：ABS、CHR、COS,标准过程：DISPOSE、GET,标准文件：INPUT、OUTPUT,用户标识符,在Pascal语言中具有特定的含义,选用的表识符不能和保留字相同。,有效长度为63个字符，并且大小写等效。,标识符必须是以字母开头的字母、数字、下划线序列。,判断： a_1 a-1 78t Max 9_a hi.a,数据类型,基本简单类型,标准类型,用户自定义类型,实数类型,整数类型,字符类型,布尔类型,枚举类型,子界类型,顺序类型,构造（复杂）类型,数组类型,集合类型,记录类型,文件类型,指针类型,类型 数值范围占字节数格式 shortint -1281281带符号8位 （短整型） integer -3276832767 2 带符号16位 （整型） longint -2147483648 4 带符号32位 （长整型） 2147483647 byte 0255 1 带符号8位 （字节型） word 065535 2 带符号16位 （字类型）,1、整型,驾驶员之家 2016年新题库科目一模拟考试 驾驶员之家 2016年安全文明驾驶常识模拟考试 驾驶员之家 C1驾驶证能开什么车 驾驶员之家 C2驾驶证能开什么车 驾驶员之家 C3驾驶证能开什么车 驾驶员之家 C4驾驶证能开什么车 驾驶员之家 A1驾驶证能开什么车 驾驶员之家 A2驾驶证能开什么车 驾驶员之家 A3驾驶证能开什么车 驾驶员之家 B1驾驶证能开什么车 驾驶员之家 B2驾驶证能开什么车,Pascal规定了两个预定义整型常量标识符maxint和maxlonint，他们各表示确定的常数值 maxint为32767 maxlongint为2147483647 他们的类型分别是integer 和longint,类型 数值范围 占字节数有效位数 real 2.9e-39.1.7e38 6 11.12 基本实型 Single 1.5e-45.3.4e38 4 7.8 单精度实型 double 5.0e-324.1.7e308 8 15.16 双精度实型,2、实型,一个实型数据用来存放实数。,3、字符型,标识符：char,字符型必须用单引号括起来,字母作为字符型时，大小写是不等价的,字符型只允许单引号中有一个字符， 否则就是字符串。,比较大小：A ( )a,一个布尔型数据用来存放逻辑值（布尔值）。,4、布尔型,布尔型的值：false（0）和true（1）；,boolean是布尔型的标识符。,false 和true都是预定义常数标识符， 分别表示逻辑假和逻辑真。,truefalse。,布尔运算的运算次序：NOT AND XOR、OR,例1：（第11届NOIP）设Atrue，Bfalse，Cfalse, D=true，以下逻辑运算表达式值为真的是（ ）,A. (AB)(C D) B. (AB)C) D A ( B C) D D. (A (B C) D E. (A B) (C D),例2（第9届NOIP）设Atrue，Bfalse，Ctrue，D=true，逻辑运算表达式AB C D的值是（ ）,二进制的逻辑运算,二进制数1和0在逻辑上可以代表“真”与“假”、“是”与“否”、“有”与“无”。,1、逻辑加法（“或”运算） 逻辑加法通常用符号“+”或“”来表示。逻辑加法运算规则如下： 0+0=0， 00=0 0+1=1， 01=1 1+0=1， 10=1 1+1=1， 11=1,2、逻辑乘法（“与”运算） 逻辑乘法通常用符号“”或“”或“”来表示。逻辑乘法运算规则如下： 00=0， 00=0， 00=0 01=0， 01=0， 01=0 10=0， 10=0， 10=0 11=1， 11=1， 11=1,3、逻辑否定（非运算） 逻辑非运算又称逻辑否运算。其运算规则为： 0=1 非0等于1 1=0 非1等于0,4、异或逻辑运算（半加运算） 异或运算通常用符号表示，其运算规则为： 00=0 0同0异或，结果为0 01=1 0同1异或，结果为1 10=1 1同0异或，结果为1 11=0 1同1异或，结果为0 即两个逻辑变量相异，输出才为1,练习：,1、1010111 10011101=,书本P11-N15,2、1010101001100110=,3、10101100=,4、10101010 00001111=,试一试：,1、请模仿写出一个Pascal程序以实现计算梯形面积。假设梯形上底a5，下底b10，高h6。,2、给出半径R100，求圆周长、圆面积。,3、一个学生五门课的成绩为：70、89、65、100、78。编PASCAL程序，输出平均成绩。,一、常量,1、常量定义,2、定义常量的语法格式,CONST =; =;,3、类型,（1） 数 n100 （2）字符 ch* （3） 字符串 strHangzhou （4）布尔值 flagTrue,二、变量,1、变量定义,2、变量说明部分的语法格式,VAR :; :;,Var begin read(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)=false pred(2000)=1999 succ(2000)=2001 odd(3)= pred(x)= succ(x)=,2、标量函数,函数标识符自变量类型意义 结果类型 chr(x) byte 自变量对应的字符 字符型 ord(x)顺序类型 自变量对应的序号 longint round(x) 实型 四舍五入 longint trunc(x)实型 截断取整 longint 例：chr(66)=B ord(A)=65 round(-4.3)=-5trunc(2.88)=2,3、转换函数,4、杂类函数： Random：0，1之间的随机实数 Random(x)：0，x之间的随机整数 Randomize：初始化内部随机数产生器 Upcase(x)：使小写英文字母变成大写,四、Pascal运算符,(2)逻辑运算符运算符运算 运算对象结果类型not逻辑非 布尔型布尔型and 逻辑与 布尔型布尔型or 逻辑或 布尔型 布尔型xor逻辑异或 布尔型 布尔型,(1)运算符+ - * / div mod,(3) 关系运算符运算符 运算运算对象 结果类型=等于 简单类型 布尔型 不等于 简单类型 布尔型大于 简单类型 布尔型= 大于等于 简单类型 布尔型,优先级,运算符 优先级not 1(高)*, / , div , mod , and2xor , + , - , or 3in,=,=, 4(低),练习： 求下列表达式的值： 20 mod 19 15 mod 9 7 div 8 19 div 3 (45) and (79) or( 93) and (3=3) or (37) 13-2*3 DIV 4 MOD 2,五、Pascal表达式,1、算术表达式：3.1415929 X 2 * pi * r,2、字符表达式：A CHR(65),3、关系表达式：a+bc,4、布尔表达式：ROUND(ab)10,算术表达式,1、定义：由符合PASCAL语法规定的数值型运算对象 （包括数值型的常量、变量、函数）、运算 符、圆括号组成的有意义的式子。,2、算术运算符：+、-、*、/、DIV、MOD,3、运算次序： （1）圆括号（） （2）函数 （3）*、/、DIV、MOD （4）+、- 同一级别的运算符，按在表达式中次序“先左后右”的原则,算术表达式,例1：将下列的数学表达式改写成PASCAL表达式： b2-4ac,例2：n为四位数。请运用算术表达式分离出它的个、十、百、千位,n MOD 10-（个位数） （n MOD 100）DIV 10-（十位数） （n MOD 1000）DIV 100-（百位数） n DIV 1000 -（千位数）,下面的程序执行后，变量b、c、d 的值是多少？,Program pl(input,output); Const a=256; Var b,d:integer; c:real;,begin b:=a div 16; c:=a/b; d:=a; end.,作业:写出下面运算的结果（注意类型） 1、5*3*6 DIV 2 2、8/4*2.5/1.25*（3.7+2.3） 3、18 DIV 4* sqr(4.0)/1.6 4、 25 DIV 3 MOD 3* Trunc（2.5） 5、8 MOD(-16 MOD 3)*6 6、5 DIV 3/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的值,Program p2(input,output); Var a，b:integer; begin a:=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); 输出为： 123456,Write语句与writeln语句的区别: write语句将其后括号中的表达式一个接一个输出后，没有换行。 而writeln语句则在输出各个表达式的值后换行。,writeln(1,2,3,4); write(5,6); 输出为： 1234 56,例如以下两个程序段的输出分别为：,注意：场宽的限制在输出不同格式的数值时的作用：,例2：实型数据小数位数的确定。var a:real;begina:=15/8;writeln(a); 输出 1.8750000000E+00wiiteln(a:0:2);输出 1.88 整数部分按实际位数输出，小数部分保留两位小数，末位四舍五入.writeln(a:0:0): 输出 2 只输出整数部分，小数部分四舍五入end.,例1：数据项间隔。如输出最多四位的数据：write(x:5)。则数据间至少分隔一个空格。,写出输出结果,const a=10; b=20; begin writeln(50);,write(a:3); writeln(a+b:4); writeln(a+b=,a+b); end.,3、读语句输入语句,格式： read()；-读入不换行 readln ()；-读入换行 readln；,read 后一定要有参数表； readln可以不带参数表,即可以没有任何输入项, 只是等待读入一个换行符(回车)。经常用于暂停程序的运行，直到输入一个回车,注意： 写在括号中的变量，都要在变量说明中先预以说明； 变量与变量之间，以“,”分隔； 例：var a,b:integer;read(a,b);,read与readln的区别 例：有两段程序有相同的变量说明如下，不同的读语句。,写出下面程序的运算结果。,Program p8(input,output); var a,b,c:integer; begin writeln(请输入两个数：); read(a,b); c:=a;,a:=b; b:=c; writeln(a:5,b:5); end.,输入：5 8,作业：编写程序,1、输入一个三位自然数，分离出它的百位、十位与个位上的数字，并逆序变成一个新的三位数输出。 2、输入一个华氏温度，要求将其转换成摄氏温度。公式为C5/9（F-32），其中F是华氏温度，C是摄氏温度。 3、输入a，b两个整数，要求输出a除以b得到的商和余数。 （ 商保留两位小数，场宽为5） 4、火车作直线加速运动，已知初速V00，加速度a0.1米/秒2，求t10分钟时火车速度（以公里/小时表示），取两位小数。 公式：Vt=V0+at,
展开阅读全文