pascal顺序、分支结构.ppt

1、PASCAL程序设计,pascal语言介绍 基本语句、顺序结构,pascal语言介绍,它是结构化的语言。PASCAL语言提供了直接实现三种基本结构的语句以及定义过程和函数(子程序)的功能。可以方便地书写出结构化程序。 有丰富的数据类型。PASCAL提供了整数、实型、字符型、布尔型、枚举型、子界型以及由以上类型数据构成的数组类型、集合类型、记录类型和文件类型。 能适用于数值运算和非数值运算领域。 PASCAL程序的书写格式比较自由。,界面,基本语句,1、输入语句把数据送到计算机内存的过程称为输入。 Pascal语言的输入语句有如下两种形式：read()；readln()； 是一个或几个由逗号隔开

2、的变量标识符，它们必须在程序说明部分预先说明，可以是整型、实型或字符型,基本语句,2、输出语句输出是将内存中的数据送到外设的过程。 Turbo Pascal的输出语句有两种形式：write()writeln() writeln语句允许不含有输出项，即仅writeln;表示换行。,基本语句,3、赋值语句 赋值语句是最简单的语句，其一般形式为：:= 赋值语句的作用是计算表达式的值，并赋给变量。对于任何一个变量必须首先赋值，然后才能引用，,基本语句,复合语句： 复合语句是由若干语句组成的序列，语句之间用分号“；”隔开，并且以begin和end括起来，作为一条语句。复合语句的一般形式：begin语句1

3、；语句2；语句n；end,下面程序的输出结果是什么？,program example（input,output）;var a,b:integer;begina:=3;b:=2;writeln(a);writeln(b);a:=a+b;writeln(a);writeln(b);,b:=a-b;writeln(a);writeln(b);a:=a-b;writeln(a);writeln(b);readlnend.,Pascal语言程序的基本结构,program 程序名； label 标号说明； const 常量说明； type 类型说明； var 变量说明； function 函数说明； pr

4、ocedure 过程说明；,begin 语句； 语句； 语句 end.,程序首部,说明部分,执行部分,已知半径，求圆的周长与面积：,练习：求所输入两个整数的和。,Program sum(input,output); var a,b,s:integer; begin read(a,b); s:=a+b; write(s) end.,思考：,变量值的交换：输入两个数，将其值交换后输出。,指定场宽的输出格式,指定单场宽.格式：write(表达式:N)或writeln(表达式:N),其中N为自然数，为指定的单场宽，所有数据按指定场宽输出。若数据实际长度小于指定场宽时，则一律向右靠齐，左留空格。如wri

5、te(1234:8);write(abcdef:12)输出结果:1234abcdef,指定双场宽如果输出项是实数时，若希望输出的实数不用科学记数法输出,而用小数形式输出,可以用指定双场宽方法输出。双场宽输出格式为：write(实型表达式：m：n)，其中m和n都是自然数，m 用以指定整个数据所占的宽度,n指定输出实数的小数位数。如 : write(sqrt(75):9:4);输出:8.6602如果双场宽不能满足输出数据的最低要求, 系统自动突破指定的场宽限制，按实际长度输出。,指定场宽的输入输出格式,分支结构程序设计,布尔（逻辑）类型 在Pascal语言中真用ture表示，假用False表示。所

6、以布尔类型只有TRUE与FALSE两个常量。布尔变量（BOOLEAN）如果我们将某些变量说明成布尔型，那么这些变量就是布尔变量，它们只能用于存放布尔值（ture或false）。例如，VAR A，B：BOOLEAN,关系表达式与布尔表达式,用小括号、=、将两个算术表达式连接起来的式子就称为关系表达式（比较式）。如：3+78,x+y10,2*7=13等都是关系表达式。 关系表达式的值为真或假，即布尔型。,布尔运算及布尔表达式,为了表示更复杂的命题，Pascal还引入三种逻辑运算符：not、and、or。它们分别相当于数学上的“非”、“且”和“或”的意义。,分支结构IF语句,格式、IF 布尔表达式T

7、HEN 语句；、IF 布尔表达式THEN 语句 ELSE 语句；（注意型IF语句中语句后无；号）,例 输入一个整数，判断是否为偶数。（是输出“”否则输出“”）。 Program ex4_2;Var a:integer;Begin Write(a=);readln(a);If (a mod 2 =0)then writeln(yes)Else writeln(no);Readln;End.,练习：华榕超市里卖电池,每个电池角钱，若数量超过个，则可打7.5折。,Program ex4_3;Var Num:integer;Price,Total:real;BeginWrite(Num=);readln(Num);Pr