1、第二讲 Pascal语言基础,program 程序名；可以省略 var 变量说明； begin 语句； 语句； 语句; end.,Pascal程序的基本结构,程序的基本结构,完整程序：,程序首部是程序的开头部分，有保留字program后接程序名及程序参数表组成，由分号结束。程序名是用户自己定义的标识符，参数表一般是文件变量名，用于该程序与外界的数据交流。最常用的参数为input和output。在turbo pascal语言中，首部中的参数表可以省略，首部也可省略。,用来描述程序中用到的变量、常量、类型、过程与函数等。本程序中第二行是“变量说明“，用来定义变量的名称、类型。PASCAL规定，凡程
2、序中用到所有变量、符号常量、数组、标号、过程与函数、记录、文件等数据都必须在说明部分进行定义（或称“说明“）。也就是说，不允许未说明先使用。,以“begin“开始，以“end“结束，其间有若干个语句，语句之间以分号隔开。一条语句执行一定的功能，所有语句完成程序设计的任务。允许一行写多个语句，也允许一个语句写几行，最后一行的end后加一.号表示结束。,2、完整的pascal程序框架：,program 程序名（程序参数表）；label标号说明；const 常量说明；type类型说明；var变量说明；function函数说明；procedure 过程说明； begin程序语句1；程序语句n； end
3、.,程序首部,程 序 体,说 明 部 分,执 行 部 分,创建程序与运行,1. 启动Free Pascal2.0.4 2创建程序文件菜单File中的New命令 3. 程序代码的输入与保存菜单File中的Save保存文件，按提示输入文件名（ex1） 4程序的编译与运行compile菜单中compile命令（Alt+F9）Run菜单中的Run命令（Ctrl+F9）Debug中的User screen （Alt+F5）按任意键返回到编辑窗口,编写程序的过程： 编辑：写程序代码 编译：检查程序有无语法错误 运行：验证程序运行结果的正确性,输入长方形的边长a和b，输出面积s。 参考程序： (新建文件)
4、vara,b ,s:integer; beginreadln(a,b);s:=a*b;writeln(s); end.,试一试 ：求长方形的面积？,运行后输入：10 20 中间空格隔开,知识预备 基本符号、保留字、标识符 一、变量的定义说明： 二、Pascal数据类型（整型、实型） 三、基本语句(赋值语句、输入语句read、输出语句write) 四、算术运算符和算术表达式 五、标准函数（数值型函数）,语言基础一,基本符号、保留字、标识符,1基本符号： 是ASCII字符集，主要有： 26个英文字母(不分大小写，字符串中的字母例外。 十个数字符号。 特殊符号 + - * / = = ( ) :=
5、. , ； : ,2保留字： 保留字是指pascal语言中一些有特殊含义的英文单词，它们已被pascal语言自己使用，都有专门的用途。 Pascal 语言中保留字有36个，可分为以下六种类型： 程序、函数、过程的符号： program，function，procedure 说明部分的专用定义符号： array，const，file，label，packed，var，record，set，type，of 语句专用符号： case，do，downto，else，for，goto，if，repeat，then，to，until，while，with，forward 运算符号： and，div，in，
6、mod，not，or 分隔符号： begin，end 空指针常量： Nil 7. PROTECTED, PUBLIC, PUBLISHED, TRY, FINALLY, EXCEPT, RAISE （fp新增保留字）,3. 标识符：标识符是以字母开头的字母数字序列(大小写等效，可跟下划线_)，用来标识常量、变量、程序、函数等。Pascal中允许的标识符的有效长度为63。 标识符分为两大类： 标准标识符：标准常量：false，true，maxint(32767)标准类型：integer，real，char，boolean，text标准文件：input，output标准函数：abs，arctan，
7、chr，cos，eof，eoln，exp，ln，odd， ord，pred，round，sin，sqr，sqrt，succ，trunc标准过程：get，new，pack，page，put，read，readln，reset，rewrite，unpack，write，writeln 自定义标识符由用户自己在程序首部或说明部分进行定义，但要注意以下几点：不能与保留字同名；避免与标准标识符同名；最好有一定的含义，增加程序的可读性。例如：在程序中如用到数学中的，则在定义该常量时可用PI表示。,一、变量的定义说明： 在程序中用到的所有变量必须事先定义。 格式： Var : ；: ；,如：输入3个整数，求
8、这3个数的平均值。 Var a，b，c：integer;aver:real;,说明： 1）同一类型的变量可以放在一起，也可分开写，不同类型的不能放在一起。 2）变量名：可以是一个字母，也可以是多个字母和数字的组合，但字母开头。 3）不能重复定义变量。,二、Pascal数据类型,整型、实型、（字符型和布尔型）,1、整型,类型 数值范围 占字节数Byte 0 255 1Word 065535 2Shortint -128 127 1Integer -3276832767; 2Longint -2147483648 2147483647 4Longword 04294967295 4Int64 -9
9、223372036854775808 9223372036854775807 8QWord 0 18446744073709551615 8,2、实数 类型 范围 有效位数 占用字节Real 2.9e-391.7e38 1112 6 Single 1.5E-45 3.4E38 7-8 4Double 5.0E-324 1.7E308 15-16 8Extended 1.9E-4951 1.1E4932 19-20 10Comp -2E64+1 2E63-1 19-20 8,Varbeginread(a,b);c:=a*b;d:=a/b;writeln(c);writeln(d); End.,?
10、,例: 输入:两个整数a、b(=3000)，输出它们的乘积c，商d。,实数的定点型格式输出: 实数表达式：域宽：小数位数 T=63.123 write(t)； 6.312300000000E+01 write(t：6：2)； 63.12 write(t：6：5)； 63.12300 如果要求小数点后精确2位小数. Writeln(x:0:2);,a,b:integer; c:longint; d:real;,1、赋值语句 赋值语句是最简单的语句. 1)、赋值语句的格式 变量名:=表达式； 其中“:=”称为赋值号。 2)、执行过程 计算机先计算赋值号右边表达式的值，然后将表达式的值赋给变量名代表
11、的变量。 如：A：=（9*8）-（2-1）; A:=A+1,三、基本语句,、输入语句read和readln 功能： 从键盘读入数据项，并把它存到变量中去，使该数据能在以后的计算中使用。 输入语句的一般形式为：read(v1，v2，vn)；readln(v1，v2，vn)； 从键盘逐次读入数据，分别赋给变量v1，v2，vn，一行输入多个变量值时，要求数据之间用空格分隔，readln语句要求输入数据后必须回车，使得后继操作从下一行的头上开始。,read语句与readln语句区别是：1) read语句是一个接一个地读数据，在执行完本Read语句( 读完本语句中变量所需的数据)后,下一个读语句接着从该
12、数据输入行中继续读数据，也就是说，不换行。如：Read(a,b);Read(c,d);Read(e);如果输入数据行如下:123456 则a,b,c,d,e的值分别为1,2,3,4,5,如果后面无读语句则数据6是多余的，这是允许的。,Readln则不同，在读完本Readln语句中变量所需的数据后, 该数据行中剩余的数据多余无用，或者说，在读完本Readln语句中变量所需数据后，一定要读到一个回车，否则多余的数据无用。 设有下列语句:read(a,b,c);readln(d,e);readln;readln(f,g); 其中,所有变量均为整型。设输入的数据如下：1234567891011 12
13、13,Var a,b,c,d,e,f,g:integer; beginread(a,b,c);readln(d,e);readln;readln(f,g);writeln(a, ,b, ,c, ,d, ,e, ,f, ,g); end.,2)readln语句与read语句的第二个区别是: read 后一定要有参数表, readln可以不带参数表,即可以没有任何输入项, 只是等待读入一个换行符(回车)。经常用于暂停程序的运行，直到输入一个回车,输出语句write和writeln 功能： 把程序计算的结果，按适当的形式输出到屏幕。 1)、write语句 格式Write(表达式1，表达式2，)； 如
14、: write(x,5,a+b); write(My name is Liping); 2)、writeln语句 格式: Writeln(表达式1，表达式2，) 或writeln,Write语句与writeln语句格式上都相似，但它们在功能上有所不同，两个语句的区别在于:write语句将其后括号中的表达式一个接一个输出后，没有换行。而writeln语句则在输出各个表达式的值后换行。 例如以下两个程序段的输出分别为：write(1,2,3,4);write(5,6);输出为：123456writeln(1,2,3,4);write(5,6);输出为：123456,实数的输出格式 实数（real）
15、以浮点型格式输出。例如805.67对应的浮点数为8.056700000000E+02。这种实数表达方式很不方便。我们可以通过下述形式强迫实数以定点型格式输出：实数表达式：域宽：小数位数 例如，t的值设为63.123。下面三条输出语句分别有它们右边所示的输出格式：write(t)； 6.312300000000E+01write(t：6：2)； 63.12write(t：6：5)； 63.12300write(t:0:0);,var a,b,t:integer; begin read(a,b); t:=a; a:=b; b:=t; writeln(a=,a,b=,b) end.,例：输入两个整数
16、a，b，交换他们的值，并输出. 如：输入：30 34输出：34 30,四、算术运算符和算术表达式,1.算术运算符 运算符 运算 运算对象 结果类型 + 加 整型、实型 只要有一个运算对象是实型，结果就 - 减 整型、实型 是实型，如果全部的运算对象都是整 * 乘 整型、实型 型并且运算不是除法，则结果为整型 / 除 整型、实型 若运算是除法，则结果是实型。 div 整除 整型 整型 mod 取余 整型 整型,2、表达式 是通过运算符把常量、变量、函数调用结合起来组成的。3+x1+b,上机练习题目： 输入一个3位的正整数，输出他们的各位数字之和与乘积。 如： 输入： 436 输出： 13 72,
17、五、标准函数,+ a-b ,算术函数 函数标识符 自变量类型 意 义 结果类型 abs 整型、实型 绝对值 同自变量 sqrt 整型、实型 平方根 实型 int 整型、实型 整数部分 实型exp 整型、实型 指数 实型 ln 整型、实型 自然对数 实型sqr 整型、实型 平方 同自变量cos 整型、实型 余弦 实型 sin 整型、实型 正弦 实型 arctan 整型、实型 反正切 实型 frac 整型、实型 小数部分 实型,abs(-4)=4 abs(-7.49)=7.49 int(-3.71)=-3.0 sqrt(4)=2 Sqr(2)=4,正确的书写表达式：1）、,2）、xy3）、,2,上
18、机练习 1、输入三角形的三条边a，b，c，输出三角形的面积。（a，b，c是正整数100，满足三角形条件）,上机练习2,var a,b,t:integer; begin read(a,b); t:=a; a:=b; b:=t; writeln(a=,a,b=,b) end.,例：输入两个整数a，b，交换他们的值，并输出. 如：输入：30 34输出：34 30,上机练习3,输入一个3位的正整数，输出他们的各位数字之和与乘积。 如： 输入： 436 输出： 13 72,varn,a,b,c,x,y:longint; beginreadln(n);a:=n div 100;b:=(n div 10) mod 10;c:=n mod 10;x:=a+b+c;y:=a*b*c;writeln(x);writeln(y); end.,
