广东省汕头市金山中学高中信息技术 pascal教程03 第三课 基本语句（一）教案.doc

第三课 基本语句（一）3.1 程序的三种结构从程序结构化设计的角度来讲，程序可以分成三种基本结构：顺序结构、分支结构和循环结构，在下面结束基本语句中，将进行详细的介绍。aba条件b是否a条件是否顺序结构 分支结构 循环结构3.2 赋值语句赋值语句是程序设计中最基本的语句，其作用是计算表达式的值，并把它赋给一个变量。赋值语句的一般形式： : = ；其中表达式可以是算术表达式、布尔表达式、字符表达式或集合表达式。200(1) (2) (3)200 + 30*2a200aba200 - 50【例】 (1) a := 200； (2) b := a + 30*2； (3) a := a50;使用赋值语句，必须注意：（1） 任何一个变量必须先赋值，然后才能引用。（2） “:=”称为赋值号，不要与数学上的等号“=”混淆。（3） 一个赋值语句只能给一个变量赋值，如：a := b:= 3； 或 a , b := 3.1；都是错的！（4） 赋值号右边的表达式必须是一个能够计算出来的值！（5） 赋值号“ : = ”的左边只能是变量，而不允许是表达式，如 a : = 0； a + b * c : = a * b； 等都是错误的。（6） 表达式计算值的类型和变量的类型必须是赋值兼容的： 变量和表达式的类型相同； 变量是实型，而表达式计算结果为整型，反之则不能； 变量是长整型，而表达式计算结果为整型，反之则会引起程序出错；3.3 写语句输出计算结果，它有两种形式：write（）；writeln（）；是一串逗号分隔的输出项。若输出项为常量或变量，直接输出常量或变量的值；若输出项为表达式，则先对表达式进行计算，然后输出计算结果；若输出项为字符串，原样输出。 write和writeln的区别：执行write语句时，是一项接着一项连续地输出，并不换行。【例】 x := 20； y := 30； write（x，+，y，=）； 输出字符或字符串须用单引号括起 write（x + y）；执行上述语句后，在显示屏输出： 20+30=50执行writeln语句，也是一项接着一项输出，但输完最后一项后自动换行。 【例】 x := 20； y := 30； writeln（x，+，y，=）； writeln（x + y）； 执行上述语句后，在显示屏输出： 20+30= 50write语句至少必须输出一项内容，writeln语句允许不输出任何内容，仅仅换行。即：writeln；是合法的，而write；是不合法的。write或writeln语句可带有参数，其格式取决于变量的类型，现描述如下： write（e:n）； n为整数表达式。在n个字符宽的输出域上，以右对齐方式输出。 write（r:n:m）； n、m为整数以右对齐方式在n个字符宽的输出域上输出r值，其中小数点之后带m个数字。 【例】：下面的例子，说明如何使用参数。program form； var r ：real； c ：char； begin c := a； r := 3. 5； writeln（c : 6）； writeln（r）； writeln（r : 9）； writeln（r : 1）； writeln（r : 9 : 3）； writeln（r : 2 : 3）； end.输出： a3.5000000000e+003.50e+003.50e+003.5003.500* 当输入域宽说明n大于输出数据字符数时，输出时左面自动补空格。* 当输入域宽n小于所要求的字符数时，输出时将自动突破域宽说明限制，按实际字符数输出。3.4 读语句把键盘输入的数据赋给相应的变量。有两种形式的读语句：read（）；readln（）；是一串用逗号隔开的变量标识符。程序运行时，执行到read或readln语句时，系统处于等待状态，等待用户从键盘输入数据。输入数值型数据时，数据间用空格分隔，然后按回车键，表示输入结束；输入字符型数据时，数据间不能用空格分隔，可以连续输入。当输入项中的变量为多个时，要求输入的数据不能少于其变量个数，若少于变量个数时，系统仍处于等待状态，接着输入的数据无论是换行输入还是不换行输入均有效。 read 和readln的区别：readln语句与read语句不同之处是依次读入一串数据到相应变量中去后自动换行。当输入的数据多于变量个数时，readln将忽略同一行输入中多余的数据，后面若还有read或readln语句，将从下一行数据读起。而执行read后，多余的数据要么被忽略，要么被下一个read或readln语句读入。【例】 read（x , y , z）；表示从键盘上输入三个数，并把它们依次存放到变量x，y，z中去。 当输入： 20 30 40 （然后按回车键表示本行数据输完） 其结果为 x=20，y=30，z=40。这条语句也可以写成以下三个读语句： read（x）；read（y）；read（z）；【例】 read（a ，b ，c）； readln（i ，j ，k）； readln（x ，y）； 当输入数据： 1 2 3 4 5 6 7 8 9 10 11 读入结果为： 1 2 3 4 5 a b c i j 6 7 8 k 9 10 11 x y 使用读语句要注意几个问题： （1）输入数据的类型和顺序必须与该读语句中变量的类型和顺序一致。（2）读语句中的变量不能是布尔类型和枚举类型。 （3）read语句中必须至少有一个变量，而readln语句允许不含变量，其作用是读入一个回车换行符。即：readln；是合法的，而read；是不合法的。（4）整型和实型变量可以共用一个输入语句，但字符型变量不能与整型、实型变量同时出现在一个read或readln语句中。3.5 标准函数和过程的使用pascal中预定义了许多标准函数，在p12页附录3中列出了一些常用的函数。函数就是系统预先做好的一些程序，能进行一些常用的运算，调用它，函数会根据你给的不同参数，进行运算，然后将运算结果返回给你。函数常用于表达式中，如p7页程序中， s:=pi*sqr(r)；下面，再对随机函数的使用做详细的介绍。请大家把下列程序输入，并运行几次，比较一下运行结果。var j:real;begin j:=random; random函数产生一个0-1之间的随机小数（不含1），赋给j writeln(j); j以指数的形式输出end.大家会发现，几次运行的结果都是一样的，这是因为我们产生的随机数是伪随机数，需要进行初始化，否则每次会产生同样的随机序列。请大家在程序中加入一句：var j:real;加上这句begin randomize; j:=random; writeln(j); end.这回产生的随机数每次都不同了。注意，不管程序中使用了多少次random函数，randomize只须写一次！我们再将程序改动一下：var j:integer; 这里改为整型 begin randomize; j:=random(100); 加上参数100 writeln(j); end.这次，将产生一个0到99的随机整数，注意，加上参数后，产生的是整数！ “标准过程”也是系统预先编写好的一些程序，能实现某些常用的功能，例如上面例子中的randomize，就是一个标准过程。标准过程的使用和函数不一样，没有返回值，要作为单独的语句使用。下面再列出几个常用的标准过程： inc(x) 给变量x加上1，等价于 x:=x+1 inc(x , n) 给变量x加上n，等价于 x:=x+n dec(x) 将变量x减去1，等价于 x:=x-1dec(x , n) 将变量x减去n，等价于 x:=x-nexit 从子程序中返回halt 中断程序运行课后练习三：1、下面程序是输入三条边长度，根据海伦公式求该三角形面积，阅读程序回答问题。var x, y, z, p, s : real ；beginreadln (x,y,z)； p:=(x+y+z)/2; s:=sqrt(p*(p-x)*(p-y)*(p-z);writeln (s:10:2);end.(1) s 是什么类型的变量：_(2) 输出结果时保留几位小数：_(3) 输入：3 4 5 输出：_2、阅读程序，回答问题。var a,b,c,d,e : char ；begin read(a,b,c); read(d,e); writeln(e=, e );end. 若输入： (表示按回车) ufo et 则输出：_ 再想想，为什么？3、计算下列表达式的值： x=4，y= 5，z=9 sqrt（ord（k） ord（b）= sqr（z abs（y）= （z + 100）mod（round（37 / 3）= 12 / x = 12 div x = chr（103）= pred（m）= 4、将下列数学表达式表示成p