freepascal语言教学第三课.ppt

1、走进Pascal的世界,赋值语句与读入语句,赋值语句,已知圆的半径为3，输出圆的周长和面积。,Program ex15; Begin writeln(c=,3.14*3*2, ,s=,3.14*3*3); End.,如果我要多次使用周长和面积的值，怎么办呢？ 有没有办法直接用c来保存周长的值，用s来保存面积的值？,程序改如下： Program ex21; Begin c:=3.14*2*3; s:=3.14*3*3; write(c=,c, ,s=,s); End.,赋值语句格式： 变量标识符:=表达式；,Program ex21; var c,s:real; begin c:=3.14*2*

2、3; s:=3.14*3*3; write(c=,c, ,s=,s); end.,任何字符都能作为变量吗？,标识符的使用,标识符的分类： 1、保留字 有51个pascal保留字，如begin、program、div、mod等 2、标准标志符Pascal语言预先定义的标识符，可以直接使用的 ， 如integer,real,char、boolean等类型标识符 3、用户自定义标识符（定义前pascal不认识的标识符） 标识符的定义：标识符就是以字母或下划线开头的字母数字序列，最大长度为63个字符，并且大小写等效 可以用来标示常量、变量、程序、函数等 请你分辨下列哪几个是合法的标识符，哪几个是非法的

3、标识符： _ab1 123 pi end,常量、变量和表达式,1、常量 在程序运行过程中,其值不能被改变的量称为常量，如123，abc，等. 常量的定义： program ex; const pi3.14； 是不合法的标识符 var r,c,s:real; . 符号常量一经定义,在程序的执行部分就只能使用该常量标识符,而不能修改其值. 使用符号常量比直接用数值更能体现“见名知义”的原则,也便于修改参数,所以一个较好的程序中,应尽量使用符号常量,在执行部分基本上不出现直接常量.,2、变量 变量代表了一个存储单元,其中的值是可变的,所以称为变量.（在内存开辟一块空间，空间的大小由变量的类型决定）

4、变量有三个要素是:变量名,变量类型,变量值. 1）变量名是用一个合法的标识符代表一个变量 2）变量的类型 变量是有类型的数据,变量在某一固定时刻用来存放一个常量,因此也应有相应的类型.如整型变量用来存放整数,实型变量用来存放实数. 3）变量说明 在程序中若要使用变量,变量的名称及类型在程序的变量说明部分加以定义,变量的值则在程序的执行部分中才能赋给. 变量说明的一般格式: VAR a，b：integer；,常量、变量和表达式,数值类型 整数 integer:-32768.32767 longint:-2147483648 . 2147483647 实型 real,变量说明的格式： ,:,3、表

5、达式 1)常用的有以下6个算术运算符: + (加) - (减) * (乘) / (实数除)得到结果为实型.如5.0/2.0=2.5, 5/2= 2. 5,4/2=2.0而不等于2 DIV (整除) ，要求除数和被除数均为整型, 结果也为整型. 如10 DIV 3=3, 5 DIV 10=0， -15 DIV 4= -3 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)运算优先顺 运算优先级和数学一样。 例子：a+3.1

6、4159*5/8.4-abs(-1123),常量、变量和表达式,已知已知圆的半径为3，输出圆的周长和面积。,Program ex21; var c,s:real; begin c:=3.14*2*3; s:=3.14*3*3; write(c=,c, ,s=,s); end.,赋值语句,注意：,Program e2; Var a,b,c:integer; d,e:real; Begin a:=3; d:=3; c:=3.14; d:=a; End.,例 1下面的程序执行后，变量 b、c、d 的值是多少？ program p2_1; Const a=256; Var b,d:integer; c

7、:real; Begin b:=a div 16;计算表达式 a div16 的值为 16，赋值给变量 b c:=a/b;计算表达式 a/b 的值，也就是 将 a 的值 256 除以b 的值，结果为 16， 但是因变量 c 的类型是实型， 所以赋予给变量 c 的值应为 16.0 d:=a; 变量 d 的值为 256 end.,【例 】 写出执行下面的程序后，变量 a、b 的值。 program p4_2 (input,output); var a,b:integer; begin a:=3; b:=a; b:=a+1; a:=a+1; b:=b+1; writeln(a=,a); writel

8、n(b=,b); end.,例 3：某仓库 5 月 1 日有粮食 100吨，5 月 2 日又调进 20 吨， 5 月 3 日卖出库存的 3 分之二，5 月 4日又调进库存的 3 倍粮食， 问该仓库从 5 月 1 日到 5 月 4 日期间每天的粮食分别是多少吨？ (输出每天的 库存量),分析：在这个问题中，主要要描述从 5 月 1 日到 5 月 4 日期间仓库的粮食库存量，且易知它是不断变化的。因此我们可以用一个变量 A 来描述仓库的粮食库存量。,Program ex1; Var A : integer; Begin A:=100;Writeln( 5/1:,A); A:=A+20;Writel

9、n( 5/2:,A); A:=A div 3; writeln( 5/3:,A); A:=A *4; writeln( 5/4:,A); End.,例 4：有三个小朋友甲乙丙。甲有 50粒糖果，乙有 43粒糖果，丙有 13粒糖果。现在他们做一个游 戏。从甲开，将自己的糖分三份， 自己留一份，其余两份分别给乙与丙，多余的糖果 自己吃掉，然后乙与丙也依次这样做。问最后甲、乙、丙三人各有书多少粒糖果？,分析：这个问题中我们关心的是在游戏过程中每个小朋友的糖果个数，且他们所拥有的的糖果数是在变化的。因此可用 a,b,c三个变量分别存放 甲乙丙三个小朋友在某一时刻所拥有的糖果数。对于每人，分糖后，他的糖

10、果数一定为原来的糖果数 div 3 （因为分糖过程糖果的数 目不一定都刚好分完，用整除恰恰可以表示多余的糖 自己吃掉）。而其他两人则增加与这个小朋友现在拥有的一样的糖果。,参考程序,program ex2; var A,B,C:integer; begin A:=50;B:=43;C:=13; 初始时每个小朋友所拥有的糖果数 A:=A div 3; B:=B+A;C:=C+A; 甲小朋友分糖果后，每个 人拥有的糖果数变化情况 B:=B div 3; A:=A+B;C:=C+B; 乙小朋友分糖果后，每个 人拥有的糖果数变化情况 C:=C div 3; A:=A+C;B:=B+C; 丙小朋友分糖果

11、后，每个 人拥有的糖果数变化情况 writeln(A=,A,B=,B,C=,C); 输出结果 end.,已知圆的半径为3，输出圆的周长和面积。,完整程序如下： Program ex21; Const pi=3.14; Var c,s:real; Begin c:=pi*2*3; s:=pi*3*3; write(c=,c, ,s=,s); End.,输入圆的半径为R，输出圆的周长和面积。,读语句的一般格式： read(); readln(); 其中变量名表是用逗号隔开的若干个变量名组成的。 功能：从标准输入文件 (即 INPUT,一般对应着键盘 )中读入数据,并依次赋给相应的变量。,说明： read和 readln 是标准过程名,它们是标准标识符。 执行到 read 或 readln语句时，系统处于等待状态，等待用户从键盘上输入数据，系统根据变量的数据类型的语法要求判断输入的字符是否合法。如执行 read(a)语句，a 是整型变量，则输入的字符为数字字符时是合法的，当输入结束时，则自动将刚接受的一串数字字符转换为整数赋给变量 a。 在输入数值型（整型或实型）数据时，数据间要用空格或回车分隔开各个数据，输入足够个数的数据，否则仍要继续等待输入，但最后