第二讲 PASCAL语言介绍例：计算机可以与人对话nProgram example(input,output);n begin n writeln(How are you?);n readln;n end.例：计算机可以与人对话nProgram example(input,output);nVarn s:string;nBegin n writeln(How are you?);n readln(s);n writeln(Me too);n readln;nEnd.program circle(input,output); constPi=3.142; Varr,l,s:real; Beginwrite(Enter radius of a circle:);read(r) ;l:=2*Pi*r;s:=Pi*r*r;write(r: ,r, l:,l, s:,s); End.程序首部说明部分执行部分程序体Program 程序名（INPUT，OUTPUT）； lable标号说明； const常量定义； type类型说明； var变量说明； function函数说明； procedure过程说明； begin 程序语句； ; 程序语句; end.说明部分语句部分基本符号1、字母A B C D E F G H I J K L M N O Q R S T U V W X Y Za b c d e f g h i j k l m n o p q r s t u v w x y z2、数字 ：0 1 2 3 4 5 6 7 8 9 3、特殊符号+ - * / = ( ) := . , : ; .1、重要特性:允许通过使用描述性的符号 名(称为变量名或变量),而不是存储地址,来 引用存储在存储器中的数据。 2、变量是专用的标识符，标识符的合法命 名：以字母开始，后面可以跟任意个字母和 数字。 NUMBER ，HOURS ，A，B1234 3、保留字program and array begin case const等 。 4、标准标识符false real input abs read等。 返回Pascal中的数据类型数据结构Pascal简单数据类型结构类型整型（integer等）实型（real等）布尔型（boolean）字符型（char）integer (整型)整数包括正、负整数和零，标准常量maxint=32767；nDiv(求商）和mod（取余） 运算符npred（x）：求前导函数；nsucc(x)：求后继函数 例：11 div 2 =5 11 mod 2 =1pred(3)=2； succ(3)=4；中文名称 类类型标识标识 符数据表示范围围整型Integer-32768.32767短整型Shortint-128.127长长整型Longint-2147483648.2147483647 字节节型Byte0.255字型Word0.65536Turbo Pascal中的整型数返回real (实型)实型是最常用的数据类型，在PASCAL语言中 ，实数有两种表示方法：n小数表示法，如：1.2, 0.0023, 0.0, 100.0n指数表示法（或称科学表示法），如： 1.2e0 , 2.3e-3 , 0e0 , 1e2nReal类型数据的范围：2.9e-391.7e38中文名称 类类型标识标识 符数据表示范围围实实型Real2.9e-39.1.7e38双精度double5.0e-324.1.7e308扩扩展类类型 Extended3.4e-4932.1.1e4932 压缩扩压缩扩 展Comp-9.2e18.9.2e18Turbo Pascal中的实型数返回字符型(char)n是指在两个单引号中的一个字符；n字符型的数据有128个；nord：求某字符的序数（ASCII码）例如：ord(A)=65(01000001)2ASCII码表返回4、布尔型(boolean)n只有两个值：false；truen用于布尔型的运算：NOT、AND、OR；nord(true)=1；ord(false)=0npred(true)=？；succ(false)=？返回表达式：是指由常量、变量、函数、括 号及运算符等联结起来的式子。注：表达式中的变量必须有明确的 值。n表达式必须以线性形式写出.因此,分母、 指数等都必须写在一行上。n函数的自变量可以是任意表达式。且函 数的自变量要写在括号中。n为了指定运算的次序可以利用括号。括 号必须成对出现，且只有“（”。n所有括起来的子表达式必须首先计算， 且从里到外。n运算优先级：函数、NOT、AND、*、/ 、DIV、MOD、OR、+、-、=、=0)AND(X , :=n意义：n 计算机先计算赋值号右边表 达式的值，然后将计算结果写入 赋值号左边的变量中。program Ex(input,output);var a,b,c:integer;begina:=3;b:=5;c:=a; a:=b; b:=c;end. 执行上面程序后，变量a,b的最终值各 是多少？练习：program Ex(input,output);var a,b:integer;begina:=3;b:=5;a:=a+b; b:= a-b; a:=a-b;end. 执行上面程序后，变量a,b的最终值各 是多少?练习：注意事项：1、赋值语句中左右两边数据类型必 须匹配即赋值相容； 表达式的类型必须与左边变量的类型赋值 相容.n表达式的类型与左边变量的类型相同n表达式为整型,左边变量为实型.n如果表达式为实型,左边变量为整型n则赋值不相容,为非法赋值语句注意事项：1、赋值语句中左右两边数据类型必 须匹配即赋值相容； 2、一个赋值语句只能给一个变量赋 值。变量可以被多次赋值，赋值后的 变量将在程序中一直保持不变，直到 被再次赋为其它值；注意事项：1、赋值语句中左右两边数据类型必 须匹配即赋值相容； 2、一个赋值语句只能给一个变量赋 值。变量可以被多次赋值，赋值后的 变量将在程序中一直保持不变，直到 被再次赋为其它值； 3、被赋值的变量本身可以作为因子 参与运算，如：n:=n+1等。可以看作有特殊功能的赋值语句n累加n count:=count+numn记数n count:=count+1n累乘n a:=a*x输出语句n用于将计算结果通过屏幕或打印机输出 给人看n一般形式:n write()n或 writeln()n输出表是一些由逗号分开的输出项n输出项可以是变量或表达式n2356Program example(input,output);varx,y:integer;Begin x:=2; y:=3;End.writeln(x,y,x+y,x*y);nx=2 y=3 x+y=5 x*y=6Program example(input,output);varx,y:integer;Begin x:=2; y:=3;End.writeln(x=,x, y=,y, x+y=,x+y, x*y=,x*y)writeln语句nwriteln(x=,x, y=,y);nwriteln(x+y=,x+y, x*y=,x*y);nx=2 y=3 nx+y=5 x*y=6nwriteln;n输出空行或换行nwrite(x,y);nwriteln;n等价于writeln(x,y)例：nProgram example(input,output);n varn r:real;n begin n r:=3.1416;n writeln(r);n writeln(r:12);n writeln(r:10:2);n writeln(r:3:2);n writeln(r:1);n end.场宽说明n在输出项后加冒号，加整型表达式，表 达式的值代表输出项所占的宽度，例如：nX:=-125.6; I:=23；nwrite（x：12，i：10）n-1.25600e+02 2312位10位场宽说明n对于实型数也可以用两个整型表达式来 说明场宽。第一个值表示总场宽，第二个 值表示小数位数。此时实型数以小数形式 输出。n例：write（x：10：2）；n -125.6010位n常常在read语句前加write语句，打印输入 提示信息。n例：writeln（input two num：）；n read（hours，rate）；n运行：input two num：n read语句nread语句用于在程序执行时从外部输入数 据给变量.n一般形式:read(变量表)nread语句中,输入数据与输入变量之间必 须赋值相容.n布尔变量的值不能直接输入,可根据输入 的整型或字符型,给布尔变量赋相应值.read语句举例Program example(input,output);Varhours,rate:integer;ch1,ch2,ch3:char;Begin End.read(hours,rate);writeln(hours,rate);nread(hours,rate)n输入30 45n输出两变量的值read语句举例n输入a b cn输出三变量的值Program example(input,output);Varhours,rate:integer;ch1,ch2,ch3:char;Begin End.read(ch1,ch2,ch3);writeln(ch1,ch2, ,ch3);nread(hours,rate)n输入30 45n输出两变量的值nread(ch1,ch2,ch3 )n输入abcn输出三变量的 值readln语句n输入数据为 ：n1.5 3.7 2.4n5.7 2.1 8.9n9.2 1.7 5.3n2.8 3.4 2.9Program example(input,output);Vara,b,c,d,e,f,g,h:real;Begin End.read(a,b); read(c,d,e,f); read(g,h); Writeln(a,b,c,d,e,f,g,h)A B C D E F G H 1.5 3.7 2.4 5.7 2.1 8.9 9.2 1.7readln语句n输入数据为 ：n1.5 3.7 2.4n5.7 2.1 8.9n9.2 1.7 5.3n2.8 3.4 2.9Program example(input,output);Vara,b,c,d,e,f,g,h:real;Begin End.readln(a,b); readln(c,d,e,f); readln(g,h); Writeln(a,b,c,d,e,f,g,h) A B C D E F G H 1.5 3.7 2.4 5.7 2.1 8.9 9.2 1.7 1.5 3.7 5.7 2.1 8.9 9.2 2.8 3.4练习n任意输入5个数，求它们的和。n （要求：只能定义两个变量）样程：nProgram ex(input,output);n varn sum,x:real;n beginn sum:=0;n read(x); sum